Autres Objets

Pour manipuler d'autres objets du langage, vous pouvez utiliser l'explorateur d'objets.

Mais la façon la plus rapide pour découvrir le code des objets du classeur et d'utiliser les macros.

Comme vous avez pu le voir, les macros que vous réalisez génèrent du code VB. Il vous suffit de réaliser une macro qui modifie un des objets du classeur pour connaître le code correspondant.

ExempleColorier l'intérieur de cellules

On réalise la Macro, ce qui nous donne le code suivant :

1
Sub Macro1()
2
'
3
' Macro1 Macro
4
'
5
6
'
7
    Range("A1:C6").Select
8
    With Selection.Interior
9
        .Pattern = xlSolid
10
        .PatternColorIndex = xlAutomatic
11
        .Color = 255
12
        .TintAndShade = 0
13
        .PatternTintAndShade = 0
14
    End With
15
End Sub
  • Sélectionne A1:C6
  • Avec la sélection :
    • texture solide
    • couleur de texture automatique
    • couleur 255 (correspond au rouge)
    • pas d'ombre
    • pas de texture d'ombre
On peut simplifier en ne mettant que le rouge aux cellules :
1
Sub Macro1()
2
'
3
' Macro1 Macro
4
'
5
6
'
7
    Range("A1:C6").Interior.Color = 255
8
9
End Sub
ExempleTrier des cellules
On réalise la Macro, ce qui nous donne le code suivant :
1
Sub Macro2()
2
'
3
' Macro2 Macro
4
'
5
6
'
7
    ActiveWorkbook.Worksheets("Feuil1").Sort.SortFields.Clear
8
    ActiveWorkbook.Worksheets("Feuil1").Sort.SortFields.Add Key:=Range("A1"), _
9
        SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
10
    With ActiveWorkbook.Worksheets("Feuil1").Sort
11
        .SetRange Range("A2:C6")
12
        .Header = xlNo
13
        .MatchCase = False
14
        .Orientation = xlTopToBottom
15
        .SortMethod = xlPinYin
16
        .Apply
17
    End With
18
End Sub
  • Le formulaire de tri de la feuille est vidé
  • Le formulaire de tri est initialisé :
    • la clef la cellule A1
    • tri des valeurs
    • tri ascendant
  • Le tableau trié correspond aux cellules A2:C6, il n'y a pas d'en-tête, le tri se fait selon les lignes
Il vous suffit de modifier les paramètres pour les adapter à votre cas particulier.