Faire référence à plusieurs plages
En utilisant la méthode appropriée, vous pouvez faire facilement référence à plusieurs plages. Utilisez les méthodes Range et Union pour faire référence à un groupe quelconque de plages. Utilisez la propriété Areas pour faire référence au groupe de plages sélectionnées sur une feuille de calcul.
Utilisation de la propriété Range
Référez-vous à plusieurs plages avec la propriété Range en insérant des virgules entre deux ou plusieurs références. L'exemple suivant montre comment supprimer le contenu de trois plages dans Feuil1.
Sub ClearRanges()
Worksheets("Sheet1").Range("C5:D9,G9:H16,B14:D18"). _
ClearContents
End Sub
Les plages nommées permettent à la propriété Range de travailler plus facilement sur plusieurs plages. L'exemple suivant fonctionne si les trois plages nommées se trouvent sur la même feuille.
Sub ClearNamed()
Range("MyRange, YourRange, HisRange").ClearContents
End Sub
Utilisation de la méthode Union
Vous pouvez combiner plusieurs plages en un seul objet Range à l'aide de la méthode Union. L'exemple suivant montre comment créer un objet Range nommé myMultipleRange
, le définir comme étant constitué des plages A1:B2 et C3:D4 puis mettre l'ensemble en gras.
Sub MultipleRange()
Dim r1 As Range, r2 As Range, myMultipleRange As Range
Set r1 = Sheets("Sheet1").Range("A1:B2")
Set r2 = Sheets("Sheet1").Range("C3:D4")
Set myMultipleRange = Union(r1, r2)
myMultipleRange.Font.Bold = True
End Sub
Utiliser la propriété Areas
Utilisez la propriété Areas pour faire référence à la plage sélectionnée ou à la collection de plages dans une sélection multi-zones. La procédure suivante compte les zones de la sélection. S'il y en a plusieurs, un message d'avertissement s'affiche.
Sub FindMultiple()
If Selection.Areas.Count > 1 Then
MsgBox "Cannot do this to a multiple selection."
End If
End Sub
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.
Commentaires
https://aka.ms/ContentUserFeedback.
Bientôt disponible : Tout au long de 2024, nous allons supprimer progressivement GitHub Issues comme mécanisme de commentaires pour le contenu et le remplacer par un nouveau système de commentaires. Pour plus d’informations, consultezEnvoyer et afficher des commentaires pour