Bloc d'instructions 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.
Vous pouvez imbriquer un bloc With à l'intérieur d'un autre. Toutefois, l'objet du bloc With externe est masqué dans le bloc interne, vous devez fournir dans ce dernier une référence complète pour toutes les propriétés et méthodes d'un objet figurant dans le bloc externe. L'exemple suivant vous montre comment utiliser cette instruction :

Sub BlocWith()
   With Range("A1")
      .Value = DateValue("22/01/01")
      .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