Passage d'une page de cellules à une fonction VBA

J'ai tableau dans une feuille Excel de 2 lignes et 7 colonnes A1:G2

Je souhaite passer ce tableau à un fonction VBA.

J'ai écrit une petite fonction pour illustrer le problème :

Code:

---

1 2 3 4 5 6

Public Function Test(MaPlage As Range) As Variant For i = 1 To 100 If MaPlage(1, i) = "" Then Exit For Next i Test = i-1 End Function

---

Test(E1:G2) renvoie 3. C'est normal

Test(A1:C2) renvoie 7. Ce n'est pas normal. La fonction devrait renvoyer également 3. C'est comme si la plage A1:C2 était automatiquement étendue à A1:G2

Test(C1:D2) renvoie 5. Ce n'est pas normal. La fonction devrait renvoyer 2. C'est comme si la plage C1:D2 avait été étendue automatiquement à C1:G2

Comment interdire c'est extension automatique de plage ?

Merci pour votre aide.

Bonjour,
Ta boucle for dépasse la plage initiale, essaye ceci

Code:

---

For i = 1 To maplage.Columns.Count

---

Bonjour,
Le passage de l'objet Range est correct, ce qui ne l'est pas c'est la gestion de ta boucle.
Si le but de ta demande est de savoir si la plage (objet Range) est bien passée. Tu n'as pas choisi le meilleur test

Il te suffisait simplement d'écrire MsgBox maplage.Address pour obtenir son adresse et MsgBox maplage.Count pour obtenir le nombre de cellules (remplies ou vides)

Ca marche. Merci

Bonjour,

La fonction s'appuie sur une valeur numérique.
Dès lors, pourquoi la déclarer en Variant?

Cela dit, je m'interroge sur l'opportunité d'une telle fonction.

Comme le mentionne Halaster, que je salue au passage, autant considérer le nombre de colonnes de la plage.

De là à créer une fonction avec une boucle pour tester une valeur nulle et sortir de la boucle :cfou: