Discussion :

[Arrakis27]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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.

[halaster08]

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

 For i = 1 To maplage.Columns.Count

[Philippe Tulliez]

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)

[Arrakis27]

Ca marche. Merci

[MarcelG]

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