Attention, Workbooks ne désigne que des classeurs OUVERTS
Si on ne précise pas le classeur, on parle du classeur actif , si on ne précise pas la feuille, on parle de la feuille sélectionnée :
Sheets("machin").Range("A1") renvoie la cellule A1 de la feuille machin du classeur actif
On peut également dire ActiveWorkbook.Sheets("machin").Range("A1")
Attention, ActiveWorkbook n’est pas forcément le classeur contenant la macro en cours, ce dernier s’appelle ThisWorkbook.
Dans VBA, pas de ";" seulement des points(.) pour séparer les objets, et des virgules (,) pour séparer les arguments.
® Exemple
Sub truc()
Lin = Inputbox("n° de ligne ?")
Col = 5
Val = Inputbox("valeur ?")
Sheets(2).Cells(lin,col) = val
End Sub
® Ou, plus court,
Sheets(2).Cells(Inputbox("n° de ligne ?"), 5) = Inputbox("valeur ?")
Attention !
Quand on dit Sheets("machin"), machin est le nom de la feuille désignée
Sheets("machin") est un objet et machin ou Sheets("machin").Name est un texte
De même Range("A1:B2") est un objet, "A1:B2" est un texte qui représente d'adresse de la plage. Si on a écrit adr = "A1:B2", on peut écrire Range(adr)
adr (sans guillemet) représente l'adresse. Range(adr).Address renvoie le texte "A1:B2"
ne pas confondre
Cells(1).Value = truc (inscrit la valeur de truc dans la cellule) et
truc = Cells(1).Value (affecte la valeur de la cellule à truc)
Sheets("chose").Cells(2,2) = Sheets("truc").Cells(1,1) recopie en B2 de chose la valeur de la cellule A1 de la feuille truc, ce qui est donc très différent de
Sheets("truc").Cells(1,1) = Sheets("chose").Cells(2,2) qui fait l'inverse.
chose = Cells(1,1) chose est la valeur contenue dans la cellule A1 (en toute
rigueur, il faudrait dire chose = Cells(1,1).Value
Set chose = Cells(1,1) chose est la cellule A1 (objet), on peut écrire chose.Value
pour désigner la valeur de chose
Autres objets utiles :
On peut facilement insérer dans une feuille de calcul Excel ou dans une feuille Word divers objets (des "contrôles") comme
des boutons
des boutons d’option, des cases à cocher
des zones de texte modifiables (TextBox)
des barres de défilement (ScrollBar)
ou bien des boutons-toupies (SpinButton), des zones de liste, des listes déroulantes,
des zones de texte (label)…
Il suffit de cliquer sur l’icône "boîte à outils" de la barre d’outils VBA (ou bien Affichage / Barres d'outils / Commandes), de sélectionner le contrôle souhaité et de l’insérer à la souris à l’endroit désiré.
On peut également utiliser tous ces "contrôles" dans une boite de dialogue (Userform) que l’on peut créer dans VBA par Insertion / Userform, puis faire apparaître à l'exécution d'une macro par
Userform("truc").Show
et disparaître par
Useform("truc").Hide.
Les différents paramètres de réglage des contrôles peuvent être visualisés et modifiés par la fenêtre propriétés dans VBA.
(pour les contrôles insérés dans une feuille de calcul, passer en mode création grâce à la barre d'outils VBA, et double-cliquer sur le contrôle).
Par exemple, pour un simple bouton, on peut modifier les dimensions, position, texte, police du texte, aspect de la souris sur le bouton, verrouillage…
Pour écrire une macro liée à un contrôle, rechercher l'événement adéquat dans les deux listes déroulantes
Remarque : pour des opérations simples avec des contrôles dans une feuille Excel, on peut se passer de macro VBA avec Affichage / Barres d'outils / Fomulaires
Les propriétés des objets :
Il s'agit de nombres (dimensions, valeurs), textes (adresses, nom), ou variables booléennes (le fait d'être visible ou non, d'être verrouillé ou non) relatifs à un objet.
Le nom (Name), le chemin d'accès (Path) d'un fichier, le texte (Caption) d'un contrôle, l'adresse d'une cellule (Address), la valeur (Value) d'une cellule ou d'une barre de défilement, le fait pour un contrôle d'être visible (Visible) ou déverrouillé (Enabled)…
Syntaxe : toujours commencer par l'objet auquel s'applique la propriété
La propriété peut être lue :
MsgBox(ActiveWorkbook.Path) annonce le chemin du fichier Excel actif
(ActiveDocument dans Word)
…ou modifiée :
Cells(1,1).Value = 10 inscrit 10 dans la cellule A1
Sheets(1).Name = "truc" va renommer la première feuille
CommandButton1.Visible = False fait disparaître le bouton
exemple :
Private Sub ScrollBar1_Change()
Label12.Caption = ScrollBar1.Value
End Sub
Label12.Caption est le texte de la zone de texte, ScrollBar1.Value est la valeur associée à la position de la barre de défilement
Agir sur les objets (les "méthodes")
On peut ouvrir (Open), fermer (Close), enregistrer (Save, SaveAs), activer (Activate), imprimer (Print)… des classeurs :
Workbooks("truc").Save
Sélectionner (Select) ou activer (Activate) des feuilles :
Workbooks("truc").Sheets("chose").Select
Sélectionner (Select), activer (Activate), copier (Copy), couper (Cut), coller (Paste)… des cellules ou des plages
Cells(1,1).Copy
Syntaxe : on commence toujours par l'objet sur lequel on veut agir, et on termine par la méthode.
Exemples :
® saisie manuelle de cours de bourse ,
Dans la feuille de code de la feuille "simvhist" :
Private Sub CommandButton1_Click()
ThisWorkbook.Sheets("simvhist").Activate
UserForm1.Show
End Sub