Comment utiliser Union dans VBA (avec exemple)

Vous pouvez utiliser la méthode Union dans VBA pour combiner plusieurs plages en une seule.

Voici une façon courante d’utiliser cette méthode dans la pratique :

Sub UseUnion()

Set UnionRange = Application.Union(Range("A1:A10"), Range("C1:C10"))
UnionRange.Formula = "=RANDBETWEEN(1, 100)"

End Sub

Cette macro particulière combine la plage A1:A10 et C1:C10 en une seule plage, puis attribue la formule Excel =RANDBETWEEN(1, 100) à chaque valeur de cette plage combinée, ce qui produit une valeur aléatoire comprise entre 1 et 100.

L’exemple suivant montre comment utiliser la méthode Union dans VBA dans la pratique.

Exemple : Comment utiliser Union dans VBA pour combiner des plages

Nous pouvons définir la macro suivante dans VBA pour utiliser la méthode Union pour combiner les plages A1:A10 et C1:C10 :

Sub UseUnion()

Set UnionRange = Application.Union(Range("A1:A10"), Range("C1:C10"))
UnionRange.Formula = "=RANDBETWEEN(1, 100)"

End Sub

Lorsque nous exécutons cette macro, nous recevons le résultat suivant :

Chaque cellule des plages A1:A10 et C1:C10 contient désormais la formule =RANDBETWEEN(1, 100) , qui renvoie un entier aléatoire compris entre 1 et 100.

Notez également que nous pouvons fournir plus de deux plages à la méthode Union .

Par exemple, nous pourrions créer la macro suivante qui utilise la méthode Union pour combiner trois plages différentes, puis insérer une formule dans la cellule de chaque plage :

Sub UseUnion()

Set UnionRange = Application.Union(Range("A1:A10"), Range("C1:C10"), Range("D1:D5"))
UnionRange.Formula = "=RANDBETWEEN(1, 100)"

End Sub

Lorsque nous exécutons cette macro, nous recevons le résultat suivant :

Les trois gammes que nous avons combinées en une seule contiennent désormais toutes la formule RANDBETWEEN .

Remarque : Vous pouvez trouver la documentation complète de la méthode VBA Union ici .

Ressources additionnelles

Les didacticiels suivants expliquent comment effectuer d’autres tâches courantes dans VBA :

Comment utiliser l’intersection dans VBA
Comment compter le nombre de colonnes utilisées dans VBA
Comment compter le nombre de feuilles dans un classeur en VBA