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 renvoyée.

Intersect (Arg1, Arg2, ..., Arg30)


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

Arguments

Arg1, Arg2, ..., Arg30

Arg1 (Range) - Plages ayant une intersection. Au moins deux objets Plage doivent être spécifiés.

Arg2 (Range) - Plages ayant une intersection. Au moins deux objets Plage doivent être spécifiés.