A trier

Visualisation de l'environnement VBA Excel

Diverses astuces

· Pour ne pas voir les différentes étapes de l'exécution d'un module VBA, il faut ajouter au début du module : application.MiseAJourEcran = Faux

· Pour écrire une longue ligne de code en plusieurs lignes, on peut utiliser le trait de soulignement à la fin des lignes

Utilisation de boîtes de dialogue personnalisées

Création

Dans l'environnement VBA : Insertion/UserForm

La boîte apparaît en mode création. Il est bien de changer son nom en BODNomBoite.

A l'intérieur, on peut créer différents contrôles, qu'il est aussi bien de renommer. Afin d'exécuter du code sur certains événemnets de certains contrôles, il suffit de doublecliquer dessus.

Utilisation

Une fois créée, cette boîte peut s'appeler avec la méthode Show. Par exemple, on pourrait, directement dans un onglet excel, placer un bouton (qu'on ne peut pas nommer d'ailleurs, je n'ai trouvé nulle part la propriété Name), et appeler une macro quand on clique sur ce bouton qui fait :

BDONomBoîte.Show

Directement dans la boîte de dialogue, il est bien de placer un bouton "Fermer", qui ferme simplement la boîte de dialogue. Placer simplement le code suivant sur le bouton :

BDONomBoîte.Hide

A partir de là, on peut bien évidememnt récupérer les valeurs entrées dans les différentes zones éventuelles d'édition de la boîte de dialogue pour en faire ce qu'on veut. Par exemple, ici, on récupère le contenu d'une zone de la boîte EDIEntree pour la placer dans la cellule A5 de l'onglet courant :

Range("A5").Value = EDIEntree

Affectations de contenus de cellules

Insertion d'une fonction

ActiveCell.FormulaR1C1 = "=SUM(R[-2]C:R[-1]C)"

Sélectionner une cellule ou une plage

Dans le cas ou on se trouve à l'angle en bas à droite d'un tableau et qu'on remonte dans le tableau, la syntaxe est plus complète :

ActiveCell.Offset(-3, -2).Range("A1:C4").Select

Dans ces exemples, j'ai utilisé CTRL SHIFT et flèches de direction. On constate que le tableau ne peut pas avoir une grandeur variable puisqu'apparemment Excel n'utilise pas les mots clés comme HOME ou END ou RIGHT ou LEFT, contrairement au déplacement simple (voir plus bas), ou ces mots clés sont utilisés par Excel.

Récupérer l'information d'une cellule

L'adresse 'une cellule nommée

MsgBox Range("CelluleNommée").Address

Imposer une formule dans une cellule

ATTENTION : Pour imposer une formule, il faut :

· Utiliser Range("B5").Formula et PAS .Value

· Utiliser le nom de fonction anglaise

· Utiliser des virgules à la place des points-virgules pour séparer les arguments

Exemple d'utilisation de RoundUp (Arrondi.Sup)

Range("B5").Formula = "=RoundUp(3.25,0)"

Dans le cas ou on veut récupérer la valeur ainsi obtenue :

Msgbox Range("B5").Value

(Le résultat est 4)

Ouverture et utilisation d'un classeur fermé

Dim XLFichier As Workbook

Set XLFichier = Workbooks.Open("D:\Atelier\zebre.xls")

MsgBox XLFichier.Worksheets(1).Range("a1").Value

Set XLFichier = Nothing

Importation manuelle d'une colonne de données Access

Global BDDExemple As Database

Global TBLClient As Recordset

Sub ImportationExempleMDB()

OuvertureBase

TBLClient.MoveFirst

Range("A1").Select

While Not TBLClient.EOF

ActiveCell = TBLClient("NomClient")

TBLClient.MoveNext

ActiveCell.Offset(1, 0).Range("A1").Select

Wend

' Range("A2").Value = "Caca"

FermetureBase

End Sub

Sub OuvertureBase()

Set BDDExemple = DBEngine.Workspaces(0).OpenDatabase("d:\atelier\Exemple.mdb")

Set TBLClient = BDDExemple.OpenRecordset("T_Client", dbOpenDynaset)

End Sub

Sub FermetureBase()

TBLClient.Close

BDDExemple.Close

Set BDDExemple = Nothing

Set TBLClient = Nothing

End Sub

Autres fonctions de conversions

Conversions de flottants en entiers :

SIM = 3.14

ENT = Fix(SIM)

Conversions de nombres en chaînes :

SIM = Val("24.5") ' Renvoie 24,5.

SIM = Val("24.51") ' Renvoie 24,51.

ENT = Val("24.5") ' Renvoie 24.

ENT = Val("24.51") ' Renvoie 25.

ENT = Val(" 2 45 7") ' Renvoie 2457.

ENT = Val("24 et 57") ' Renvoie 24.

Conversions de chaînes en nombres

CHA = Str(459) ' Renvoie " 459".

CHA = Str(-459.65) ' Renvoie "-459,65".

CHA = Str(459.001) ' Renvoie " 459,001".

Exemple complexe de ChaineNum

A noter : Le point décimal au lieu de la virgule

CHA2 = "19"

CHA3 = "95"

SIM = Val(CHA2 + "." + CHA3)

Range("A1").Select

ActiveCell.FormulaR1C1 = SIM

Affecter une valeur dans une colonne de plage

Cet exemple montre comment affecter 5 à chaque cellule de la colonne 1 dans la plage nommée "maPlage".

Range("maPlage").Columns(1).Value = 5

Propriétés de AddIn

Application	Toujours Microsoft Excel
Creator	Toujours 1480803660 (?)
Installed	Vrai ou faux selon que c'est installé
Parent	Toujours Microsoft Excel
Path	Chemin du fichier
Name	Nom du fichier (exemple : aUTOSAUV.XLA)
FullName	Chemin et nom du fichier (concaténation de Path et Name)

VB : Barres d'outils

Cette procédure exemple remplit une feuille de calcul avec toutes les barres d'outils existantes avec toutes leurs propriétés

On Error GoTo FaireErreur

Dim BarreCommande As CommandBar

Dim Prop As PropertyTest

Range("A1").Value = "Application"

Range("B1").Value = "BuiltIn"

Range("C1").Value = "Context"

Range("D1").Value = "Controls"

Range("E1").Value = "Creator"

Range("F1").Value = "Enabled"

Range("G1").Value = "Height"

Range("H1").Value = "Index"

Range("I1").Value = "Left"

Range("J1").Value = "Name"

Range("K1").Value = "NameLocal"

Range("L1").Value = "Parent"

Range("M1").Value = "Position"

Range("N1").Value = "Protection"

Range("O1").Value = "RowIndex"

Range("P1").Value = "Top"

Range("Q1").Value = "Type"

Range("R1").Value = "Visible"

Range("S1").Value = "Width"

Range("A2").Select

For Each BarreCommande In CommandBars

ActiveCell.FormulaR1C1 = BarreCommande.Application