Union, méthode
Pour renvoyer des plages multizones, c'est-à-dire, des plages composées d'au
moins deux blocs de cellules contiguës, utilisez Union(range1, range2, ...).
L'exemple suivant montre comment créer un objet correspondant à l'union
des plages A1:B2 et C3:D4, puis sélectionner la plage définie.
Dim r1 As Range, r2 As Range, myMultiAreaRange As Range
Worksheets("sheet1").Activate
Set r1 = Range("A1:B2")
Set r2 = Range("C3:D4")
Set myMultiAreaRange = Union(r1, r2)
myMultiAreaRange.Select
Si vous utilisez des sélections contenant plusieurs zones, la propriété Areas est
très utile. En effet, elle subdivise une sélection multizones en objets Range
distincts, puis renvoie les objets sous la forme d'une collection. La propriété
Count peut être appliquée à la collection renvoyée afin de vérifier si une
sélection contient plusieurs zones comme indiqué dans l'exemple suivant.
Sub NoMultiAreaSelection()
NumberOfSelectedAreas = Selection.Areas.Count
If NumberOfSelectedAreas > 1 Then
MsgBox "You cannot carry out this command " & _
"on multi-area selections"
End If
End Sub