appel d'une fonction ayant comme argument l'objet Range

Salut j'ai voulu faire un appel d'une fonction qui utilise comme argument deux variables de type range, le problème c'est que j'ai ce message:
" Type d'argument ByRef incompatible"

En voici le code:

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13

Sub test(X As range, Y As range)   A = range("X" & 1).Value B = range("Y" & 1).Value   MsgBox "les valeurs demandées sont" & A & B   End Sub ----------------------------------------------- Private Sub CommandButton1_Click() test A, B End Sub

---

Est ce que la syntaxe est bonne ou y a-t-il quelque qui manque ?

je vous remercie de votre aide ?

Bonjour,
Un objet Range est une cellule
Un exemple ci-dessous

Code:

---

1 2 3 4 5 6 7

Sub Test(x As Range, y As Range) x.Value = "Toto" y.Value = "Tutu" End Sub Sub r() Test Range("A1"), Range("A2") End Sub

---

Bonjour,

Si tu utilises des variables de type Range en paramètre d'une procedure (ou d'une fonction), il faut lui transmettre ce type de variable.

dans ton cas A et B du commandButton doivent être de type range
Est ce le cas?

Code:

---

1 2 3

Private Sub CommandButton1_Click() test A, B End Sub

---

@corona : Merci pour l'explication fournie, j'ignorais complètement que le range était une cellule, c'est normal je débute ;)

@jfontaine: peut être que j'ai mal choisi le type des arguments de ma fonction, en faite je veux créer une fonction "comparer (X, Y)" qui compare deux colonnes X et Y ligne par ligne pour l'utiliser dans la suite dans une boucle dans un autre module.

Quelqu'un a une idée ?

Citation:

---

en faite je veux créer une fonction "comparer (X, Y)" qui compare deux colonnes X et Y ligne par ligne pour l'utiliser dans la suite dans une boucle dans un autre module.

---

Peux tu developper.

On compare les memes lignes? Que retourne la fonction?

l".a fonction retourne un "string" si dans le cas d'égalité on met "OK" dans une autre colonne sinon "KO"
Autremant dit:

Code:

---

1 2 3

if cells(i,j).value=cells(i,k) then cells (i,y) ="OK"

---

J, K les indices des colonnes mis en entrées de la fonction en question, le y est l'indice de la colonne ou sera stocké le résultat de la comparaison.

A essayer (code non testé)

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18

Function comparer(x as integer, y as integer) as String   dim i as long dim strTemp as string   strTemp="KO"   for i = 2 to Cells(1, x).End(xlDown).Row   if cells(i,x).value = cells(i,y).value then strtemp="OK"   next i   comparer = strTemp   end function

---

Par contre en voulant exécuter ce code, un message d'erreur m'indiquant :"Type d'argument Byref incompatible" , une explication possible ?

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18

Sub test(X As Range, Y As Range) Dim i As Integer   For i = 1 To Range("X1").End(xlDown).Row If Range("X" & i).Value = Range("Y" & i).Value Then With Range("C" & i) .Value = "OK" .Interior.ColorIndex = 4 End With Else With Range("C" & i) .Value = "KO" .Interior.ColorIndex = 3 End With End If Next i End Sub

---

Code:

---

1 2 3 4

Sub CommandButton1_Click() test A, B End Sub

---

on en revient au même problème d’où viennent tes variables A et B ?

Citation:

---

Envoyé par jfontaine

....

dans ton cas A et B du commandButton doivent être de type range
Est ce le cas?
..

---

Citation:

---

Envoyé par bbil

on en revient au même problème d’où viennent tes variables A et B ?

---

j'ai changé l'appel de la fonction comme suit:

Code:

---

1 2	test Range("A1"), Range("B1")

---

ça passé mais à la ligne

Code:

---

1 2	For i = 1 To Range("X1").End(xlDown).Row

---

ça indique un "dépassement de capacité", le row prend la valeur max de 65535 !! donc il faut en trouver une autre méthode pour détecter la dernière ligne nn ?

Salut,déjà sélectionner Integer puis F1
mais aussi lire et assimiler http://silkyroad.developpez.com/vba/fonctions/

Citation:

---

Envoyé par kiki29

Salut,déjà sélectionner Integer puis F1
mais aussi lire et assimiler http://silkyroad.developpez.com/vba/fonctions/

---

loool oui parfois on arrive à faire rentrer un tigre dans un sac de voyage :lol:

de toute façon sur l'exemple sur lequel j’exécute mon code je suis sure de ne pas dépasser la taille max d'un integer, donc j'ai changé le "X1" en "X", ça marché :

Code:

---

For i = 1 To Range("X").End(xlDown).Row

---

Par contre

Code:

---

If Range("X" & i).Value = Range("Y" & i).Value

---

la valeur est toujours vide du coup le résultat est toujours OK !!!

Citation:

---

Envoyé par boguista1985

j'ai changé l'appel de la fonction comme suit:

Code:

---

1 2	test Range("A1"), Range("B1")

---

ça passé mais à la ligne

Code:

---

1 2	For i = 1 To Range("X1").End(xlDown).Row

---

ça indique un "dépassement de capacité", le row prend la valeur max de 65535 !! donc il faut en trouver une autre méthode pour détecter la dernière ligne nn ?

---

.. attention de bien relire ton code avant de re-poster une question ..

pour
For i = 1 To Range("X").End(xlDown).Rowje ne crois pas au :

Citation:

---

donc j'ai changé le "X1" en "X", ça marché

---

Citation:

---

Envoyé par bbil

.. attention de bien relire ton code avant de re-poster une question ..

pour
For i = 1 To Range("X").End(xlDown).Rowje ne crois pas au :

---

si si voila un imprim écran :
http://img823.imageshack.us/img823/7264/codeq.jpg
By boguista at 2011-07-24

En faite, c'est que je tiens aux range c'est que j'ai un tableau Excel de plusieurs colonnes, sur lesquelles je ferais des comparaisons.
j'ai pensé:
1/ à définir les colonnes de données dans des ranges
Exemple : range("A1:A10").name="DATA_1"
2/ faire une procédure pour la comparaison entre 2 colonnes qui fait retourner un string "ok" ou "KO"
Exemple:
Compare(DATA_1, DATA_2)

Si vous avez d'autres idées que la mienne, j'en serais ravi :zoubi:
merci

Salut
Je crois que tu fais une grosse erreur de compréhension, relit les tutoriels.

Code:

---

Sub test(X As Range, Y As Range)

---

Déjà choisi des noms de variables plus parlants, dans les 9/10 des codes que tu trouveras sur le Net X et Y seront toujours des variables de type numériques.

Donc choisi plutôt quelque chose de ce style

Code:

---

Sub Test(rgCol1 As Range, rgCol2 As Range)

---

Ensuite dans ton code

Code:

---

For i = 1 To Range("X").End(xlDown).Row

---

Range("x") fait référence à la colonne X de la feuille active en aucun cas à ton range X (rgCol1)
Voila qui serait plus correcte:

Code:

---

1 2	For i = 1 To rgCol1.End(xlDown).Row If Cells(i,rgCol1.column).Value = cells(i,rgCol2.column).Value Then

---

Autant dire qu'il est inutile de passer des ranges en paramètres, pour au final n'en utiliser que le numéro de colonne.

De plus au final, tu travaille sur un 3eme range que tu définis de toute pièce.
Pourquoi vouloir faire une procédure à part juste pour faire cela? Tu l'utilises plusieurs fois dans ton code principal? sinon autant intégrer ta boucle directement dans ton code.
Dis nous en un peu plus, présente ton code dans son intégralité pour que l'on puisse t'aider efficacement.

++
Qwaz
++
Qwaz

Merci Stéphane pour tes conseils j'en tiendrais compte de suite, mais juste je voulais te dire que ça marche nickel avec quelques modifs sur le code et ça devient ainsi:

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19

Sub test(columnA As Range, columnB As Range) Dim i As Long   For i = 1 To columnA.End(xlDown).Row If columnA(i).Value = columnB(i).Value Then With Range("C" & i) .Value = "OK" .Interior.ColorIndex = 4 End With Else With Range("C" & i) .Value = "KO" .Interior.ColorIndex = 3 End With End If Next i   End Sub

---

Code:

---

1 2 3 4

Sub CommandButton1_Click() test Range("A1"), Range("B1") End Sub

---

je t'explique en faite je veux laisser le choix à l'utilisateur de choisir les colonnes à comparer avec une interface que je réaliserais après.
Le résultat de la comparaison s'affichera dans un tableau dans un sheet différent.

Exemple:
http://img706.imageshack.us/img706/6761/sansrehb.jpg

Uploaded with ImageShack.us

je metterais les données dans deux ranges
range1= FAL_MESSAGE_NAME
range2= OUTPUT_MESSAGE_NAME

le résultat sera dans un autre sheet (report).
voila

Ma méthode est un peu statique, car je vais définir les ranges de données une fois pour toute, si je veux rendre ceci plus dynamique, je devrais trouver un code qui fait un scan par rapport à un mot clé (par exemple MESSAGE_NAME) pour trouver les deux colonnes à comparer dans le sheet présent et relancer de suite la procédure .. c'est ce que je suis entrain de mettre en place. je postulerais un premier code peut être que vous m'aidiez la dessus ;)

merci en tout cas :ccool: