Discussion :

[HillsongC]

Bonjour à tous,

Débutant en VBA sous EXCEL, j'ai un problème avec la fonction Application.Match.

Vous trouverez ci-dessous ma ligne de code:

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
19
20
21
22
23
24
25
26
27
28
29
30
31
32
Sub Med()
 
Dim L As Long
 
L = Sheets("08_MinMedMax").Range("B2").End(xlDown).Row
 
Dim b As Variant
 
b = 2
 
Dim k As Integer
 
k = 2
 
Dim x As Variant
 
Do While b < L
 
Sheets("08_MinMedMax").Select
 
Range("I" & k).Select
ActiveCell.FormulaR1C1 = "=VLOOKUP(R2C5, R" + CStr(b) + "C[-8]:R" + CStr(L) + "C[-6],3,FALSE)"
 
x = Application.Match(Range("E2").Value, Worksheets("08_MinMedMax").Range("A"&b":A" & L), 0)
 
b = x + 1
 
k = k + 1
 
Loop
 
End Sub

Le message : Erreur de compilation; Attendu : séparateur de liste ou ) s'affiche.

J'ai regardé sur le net si ma syntaxe est bonne et ça à l'air d'être le cas.

Pouvez-vous m'aider à trouver d'où vient le pb?

Pour info, mon but est de chercher une valeur dans une colonne, lorsque celle-ci est trouvée, j'écris la valeur de la colonne +2 à la même ligne dans une autre cellule.
Je fais cela jusqu'à avoir parcouru toute la colonne.

Merci d'avance pour votre aide!!!

[joe.levrai]

Bonjour,

en lisant juste la ligne 24 de ton code, il manque un "&" après ta variable b ?

je n'ai pas vérifié l'intégrité et le bon résultat de la formule

[HillsongC]

Bonjour,

en lisant juste la ligne 24 de ton code, il manque un "&" après ta variable b ?

je n'ai pas vérifié l'intégrité et le bon résultat de la formule

L'erreur vient bien de là

Merci

[vinc_bilb]

Bonjour,

L'erreur est sur quelle ligne? (utiliser le mode pas à pas si pas fait, par exemple), peut-être celle là?

Code :

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

x = Application.Match(Range("E2").Value, Worksheets("08_MinMedMax").Range("A"&b":A" & L), 0)

PS: votre code pourrait être bien simplifié.... Les 'Select' ne servent à rien en général et sont très lents