Structures de contrôles VBAWith End With
Bloc d'instruction With End With
Cette instruction permet d'exécuter une série d'instructions se rapportant à un même objet ou à un même type défini par l'utilisateur. Elle permet une exécution du code plus rapide et évite les saisies répétitives car vous n'écrivez qu'une seule fois le nom de l'objet ou de la variable.
Exemple: Ecrire la date du jour dans la cellule active
Sub BlocWith()
With ActiveCell
.Value = Date
.Interior.Color = RGB(255, 255, 204)
With .Font
.Color = RGB(0, 51, 102)
.Italic = True
.Bold = True
.Name = "Comic sans MS"
' par contre ici vous ne pouvez écrire .NumberFormatLocal = "jjjj j mmmm aaaa"
End With
.NumberFormatLocal = "jjjj j mmmm aaaa"
End With
End Sub
With ActiveCell
.Value = Date
.Interior.Color = RGB(255, 255, 204)
With .Font
.Color = RGB(0, 51, 102)
.Italic = True
.Bold = True
.Name = "Comic sans MS"
' par contre ici vous ne pouvez écrire .NumberFormatLocal = "jjjj j mmmm aaaa"
End With
.NumberFormatLocal = "jjjj j mmmm aaaa"
End With
End Sub
