Partager via


Méthode Application.Intersect (Excel)

Renvoie un objet Range qui représente l’intersection rectangulaire de deux plages ou plus. Si une ou plusieurs plages d’une autre feuille de calcul sont spécifiées, une erreur est retournée.

Syntaxe

expression. Intersect (Arg1, Arg2, Arg3, Arg4, Arg5, Arg6, Arg7, Arg8, Arg9, Arg10, Arg11, Arg12, Arg13, Arg14, Arg15, Arg16, Arg17, Arg18, Arg19, Arg20, Arg21, Arg22, Arg23, Arg24, Arg25, Arg26, Arg27 , Arg28, Arg29, Arg30)

expressionUne variable qui représente un objetApplication.

Paramètres

Nom Requis/Facultatif Type de données Description
Arg1 Obligatoire Range Plages ayant une intersection. Au moins deux objets Plage doivent être spécifiés.
Arg2 Obligatoire Range Plages ayant une intersection. Au moins deux objets Plage doivent être spécifiés.
Arg3Arg30 Facultatif Variant Plage qui se croise.

Valeur renvoyée

Plage

Exemple

L’exemple suivant sélectionne l’intersection de deux plages nommées, rg1 et rg2, dans la feuille Sheet1. S'il n'y a pas d'intersection entre les plages, l'exemple affiche un message.

Worksheets("Sheet1").Activate 
Set isect = Application.Intersect(Range("rg1"), Range("rg2")) 
If isect Is Nothing Then 
 MsgBox "Ranges don't intersect" 
Else 
 isect.Select 
End If

L’exemple suivant compare la propriété Worksheet.Range , la méthode Application.Union et la méthode Intersect .

Range("A1:A10").Select                            'Selects cells A1 to A10.
Range(Range("A1"), Range("A10")).Select           'Selects cells A1 to A10.
Range("A1, A10").Select                           'Selects cells A1 and A10.
Union(Range("A1"), Range("A10")).Select           'Selects cells A1 and A10.
Range("A1:A5 A5:A10").Select                      'Selects cell A5.
Intersect(Range("A1:A5"), Range("A5:A10")).Select 'Selects cell A5.

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.