Discussion :

[boguista1985]

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 :

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

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 ?

[Philippe Tulliez]

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

Code :

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

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

[jfontaine]

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 :

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

1
2
3
Private Sub CommandButton1_Click()
test A, B
End Sub

[boguista1985]

@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 ?

[jfontaine]

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?

[boguista1985]

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

Code :

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

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.

[jfontaine]

A essayer (code non testé)

Code :

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

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

[SfJ5Rpw8]

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

....

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

[boguista1985]

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 :

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

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

ça passé mais à la ligne

Code :

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

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 ?

[kiki29]

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

[boguista1985]

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

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 :

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

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

Par contre

Code :

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

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

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

[SfJ5Rpw8]

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

Code :

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

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

ça passé mais à la ligne

Code :

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

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 :

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

[boguista1985]

.. 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 :

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
merci