VBA : intersection de plages

[garth_algar]

[résolu] VBA : intersection de plages

Bonjour,

J'ai besoin de déterminer l'intersection de 2 plages dans une fonction VBA. Apparement il faut utiliser Application.Intersect mais ma fonction ne donne pas ce que j'attends. J'ai donc comparé l' "Intersect" de VBA et l'intersection classique d'Excel :

J'ai créé cette fonction :

Public Function INTERSEC(x As Range, y As Range) As Range
INTERSEC = Application.Intersect(x, y)
End Function

En tapant =NB(ntersec($B$15:$E$18;$E$1:$E$30)), j'obtiens 0, alors qu'en tapant simplement =NB($B$15:$E$18 $E$1:$E$30) j'obtiens 4.

Est-ce que quelqu'un voit mon erreur dans ma fonction INTERSEC ?
Merci d'avance.

 

[pierrejean]

Re : VBA : intersection de plages

bonjour garth_algar

Teste:

Public Function INTERSEC(x As Range, y As Range) [COLOR=red]As Integer[/COLOR]
INTERSEC = Application.Intersect(x, y[COLOR=red][COLOR=black])[/COLOR].Count[/COLOR]
End Function

 

[garth_algar]

Re : VBA : intersection de plages

En effet ça marche, mais en fait ce n'est pas le nombre de cellules que je cherche. Le "NB" me sert uniquement - j'ai oublié de le préciser - à vérifier si ma fonction donne la bonne intersection, c'est-à-dire celle que fournit Excel, en l'occurence non pour l'instant.
Je souhaiterais créer l'intersection en tant que variable.

 

[tototiti2008]

Re : VBA : intersection de plages

Bonjour à tous,

essaye :

Public Function INTERSEC(x As Range, y As Range) As Range
[COLOR=red]Set[/COLOR] INTERSEC = Application.Intersect(x, y)
End Function

pour les objets, Set est obligatoire

 

[garth_algar]

Re : VBA : intersection de plages

Parfait, merci beaucoup !