Top Assistante - Macros : Simplifier le code

Macros / VBA > Index

04-Mai-2005

Simplifier le code : l'instruction With

Voici, pour mémoire, un court extrait de notre code :

Private Sub ok_Click()
.GoTo , , , "date"
.InsertAfter Format(datel, "d mmmm yyyy")
.GoTo , , , "adresse"
.InsertAfter societe & Chr(10) & contact & Chr(10) & rue1 & Chr(10) & rue2 & Chr(10) & cp & " " & ville
.GoTo , , , "vosref"
.InsertAfter vosref
.GoTo , , , "nosref"
.InsertAfter nosref
.GoTo , , , "objet"
.InsertAfter objet
...
End Sub

Vous avez sans doute remarqué que de nombreuses instructions débutent avec le même suffixe Selection, qu'il s'agisse de .Goto ou de .InsertAfter.

Il est possible de se simplifier l'écriture du code en regroupant toutes ces instructions à l'intérieur d'un bloc With... End with.

Il devient alors inutile de faire précéder

Ainsi notre code final deviendra donc :

Pour une meilleure lisibilité de votre code, n'oubliez pas d'appuyer sur la touche tabulation pour mettre les instructions encadrées par With Selection... End With en retrait.

L'utilisation du paramètre With... End with ne se limite pas à son emploi avec Selection, mais avec toute instruction répétitive, comme dans l'exemple ci-dessous :

Ci-contre, l'instruction With a d'abord été utilisée avec l'instruction Selection.Font puis avec l'instruction Selection.Paragraphs.

Faute d'utiliser l'instruction With, nous aurions dû répéter le membre Selection.Font ou Selection.Paragraphs sur chacune des lignes concernées.

Haut

Niveau

Pré-requis :

Avoir suivi les leçons
3, 4 et 5