With, instruction

  • Article

Exécute une série d’instructions sur un objet unique ou un type défini par l’utilisateur.

Syntaxe

Withobject [ statements ] End With

La syntaxe de l’instruction With comprend les éléments suivants :

Élément Description
object Obligatoire. Nom d’un objet ou d’un type défini par l’utilisateur.
statements Facultatif. Une ou plusieurs instructions à exécuter sur object.

Remarques

L’instruction With vous permet d’exécuter une série d’instructions sur un objet spécifié sans requalifier le nom de l’objet. Par exemple, pour modifier plusieurs propriétés sur un même objet, placez les instructions d’affectation de propriétés dans la structure de contrôle With et faites référence une fois à l’objet, au lieu d’y faire référence à chaque affectation de propriété.

L’exemple suivant illustre l’utilisation de l’instruction With pour assigner des valeurs à plusieurs propriétés du même objet.

With MyLabel 
 .Height = 2000 
 .Width = 2000 
 .Caption = "This is MyLabel" 
End With

Remarque

Une fois que vous avez pénétré dans un bloc With, object ne peut pas être modifié. Par conséquent, vous ne pouvez pas utiliser une même instruction With pour agir sur plusieurs objets différents.

Vous pouvez imbriquer des instructions With en plaçant un bloc With dans un autre. Toutefois, étant donné que les membres des blocs With externes sont masqués dans les blocs With internes, vous devez fournir une référence d’objet qualifiée complète dans un bloc With interne à tout membre d’un objet dans un bloc With externe.

Remarque

En général, il est recommandé de ne pas sauter dans ou hors d’un bloc With. Si des instructions dans un bloc With sont exécutées mais que l’instruction With ou End n’est pas exécutée, une variable temporaire contenant une référence à l’objet reste en mémoire jusqu’à ce que vous quittiez la procédure.

Exemple

Cet exemple utilise l’instruction With pour exécuter une série d’instructions sur un même objet. L’objet et ses propriétés sont des noms génériques utilisés à des fins d’illustration uniquement.

With MyObject 
 .Height = 100 ' Same as MyObject.Height = 100. 
 .Caption = "Hello World" ' Same as MyObject.Caption = "Hello World". 
 With .Font 
  .Color = Red ' Same as MyObject.Font.Color = Red. 
  .Bold = True ' Same as MyObject.Font.Bold = True. 
 End With
End With

Voir aussi

Assistance et commentaires

Avez-vous des questions ou des commentaires sur Office VBA ou sur cette documentation ? Consultez la rubrique concernant l’assistance pour Office VBA et l’envoi de commentaires afin d’obtenir des instructions pour recevoir une assistance et envoyer vos commentaires.