RechercheV avec paramètre variable

Version imprimable

Bonjour, dans le cadre d'un stage je suis amené à créer un programme VBA, voici où ça bloque :

Dans un fichier "tampon", je dois comparer un grand nombre venant de documents différents.
J'utilise donc une rechercheV, le premier paramètre dépends d'une variable i et le dernier d'une variable j...au final ça ne fonctionne pas.

Voici ce que je rentre :
Code:

1 2 3 4 5 6 7 8 9 10 11 12 Dim i, j as Integer Dim X, Y As Double X = VLOOKUP(cells(i,2),'[" + CStr(SuiviGF) + "]Pool DATA'!R8C4:R2000C140,91 + j,False)" Y = VLOOKUP(cells(i,2),'[" + CStr(RapprochementFIM) + "]REPORT'! R17C3:R2000C140,j+1,False)" Windows("Poids.xls").Activate Sheets("Poids").Select Cells(i, j + 2).Select ActiveCell.FormulaR1C1 = _ "=IF(ABS(X - Y) < 0.0001, ""OK"", ""ECART"")"
Je ne vois pas où est l'erreur.
Au passage, à quoi sert "Option Explicit" et quelle est la différence entre long et integer ?

Merci d'avance pour votre aide.

Code:

1
2
3
X = VLOOKUP(cells(i,2),'[" + CStr(SuiviGF) + "]Pool DATA'!R8C4:R2000C140,91 + j,False)"
 
Y = VLOOKUP(cells(i,2),'[" + CStr(RapprochementFIM) + "]REPORT'! R17C3:R2000C140,j+1,False)"

Tu n'aurais pas un problème de ' ou de " (nombre impair de " ) ??

21/07/2010, 16h13
zyhack

Bonjour

pour commencer tu ne peux pas utiliser VLookup dirrectement comme ça ensuite attention à l'utilisation des ' et ", pour finir pour concatener des chaine de caractère utilise plutot & que +

je pense que ta première ligne devrait plutot ressembler à ça

Code:

X = Application.WorksheetFunction.VLookup(Cells(i, 2), "[" & CStr(SuiviGF) & "]Pool DATA'!R8C4:R2000C140," & 91 + j & ",False)")

Il n'y a que la partie entre ( ) qui dépend de ce que tu attend.
21/07/2010, 17h56
Gayzou

Merci pour votre aide, zyhack j'ai appliqué ton code, .VLookup devient surligné en bleu et je reçois le message d'erreur suivant :

Erreur de compilation :
Argument non facultatif

Que dois-je faire ?
En fait je ne connais pas la structure de la fonction rechercheV, j'ai copié-collé une fonction rechercheV (qui fonctionnait dans une case : ActiveCell.FormulaR1C1...).

Merci pour vos conseils !
21/07/2010, 20h34
zyhack

dans l'aide excel tu peux trouver comment utiliser RECHERCHEV avec le détail des paramètre

RECHERCHEV(valeur_cherchée;table_matrice;no_index_col;valeur_proche)

pour VB c'est presque pareil, le tout est de définir pour VLookup

valeur_cherchée : Cells(i, 2)
table_matrice : Workbooks(CStr(SuiviGF)).Worksheets("Pool DATA").Range("D8:EJ2000")
no_index_col : 91 + j
valeur_proche : False

le tout séparé par des virgules

ce qui devrait donné quelque chose dans le genre

Code:

X = Application.WorksheetFunction.VLookup(Cells(i, 2), Workbooks(CStr(SuiviGF)).Worksheets("Pool DATA").Range("D8:EJ2000"), 91 + j, False)

sauf que dans ton premier code tu utilises les variable i et j mais ou sont elles écritent ???

ou est écrit la variable SuiviGF ? il s'agit bien du nom du classeur dans cette variable ??

"Pool DATA" est bien le nom de la feuille ??

Ca marche bien, j'ai un peu changé le code, le problème est que pour Y, à un moment, la rechercheV ne fonctionne pas (c'est pas écrit mais après avoir vérifier dans le classeur sondé, ça renvoit NA), et je n'arrive pas à mettre un If ISNA, voici mon bout de code :
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 If WorksheetFunction.IsNA(WorksheetFunction.VLookup(Cells(i, 2), Workbooks(CStr(SuiviGF)).Worksheets("Pool DATA").Range("D8:EJ2000"), 91 + j, False)) = True Then X = 1000 'Valeur abhérante Else: X = WorksheetFunction.VLookup(Cells(i, 2), Workbooks(CStr(SuiviGF)).Worksheets("Pool DATA").Range("D8:EJ2000"), 91 + j, False) End If If WorksheetFunction.IsNA(WorksheetFunction.VLookup(Cells(i, 2), Workbooks(CStr(RapprochementFIM)).Worksheets("REPORT").Range("C17:EJ2000"), j + 1, False)) = True Then Y = 100 'Valeur abhérante Else: Y = WorksheetFunction.VLookup(Cells(i, 2), Workbooks(CStr(RapprochementFIM)).Worksheets("REPORT").Range("C17:EJ2000"), j + 1, False) End If If (Abs(X - Y) < 0.0001) Then Cells(i, j + 2) = "OK" Else: Cells(i, j + 2) = Abs(X - Y) End If
En soit, c'est pas écrit NA sur mon fichier Excel, mais ça bloque ma boucle, et je n'arrive pas à y remédier.
Si vous avez une piste, n'hésitez pas.
Merci.

22/07/2010, 15h42
delphine35

Pourquoi ne pas faire un "FIND" ?? C'est ce qui ressemble le plus au RechercheV .... ;)
22/07/2010, 16h32
Gayzou

J'ai creusé sur la fonction Find mais je n'arrive pas à l'utiliser, y a toujours quelquechose qui bloque.
Comment t'en servirais tu dans le cas présent ?
Je pensais à un If find.... then X = WorksheetFunction.VLookup(Cells(i, 2), ...
Mais j'ai du mal à utiliser ce fameux find.

Ca soit etre quelque chose comme ca :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
With Workbooks(CStr(RapprochementFIM)).Worksheets("REPORT").Range("C17:EJ2000")
 
    Set c = .Find(ActiveSheet.Cells(i, 2), LookIn:=xlValues)
    If  c Is Nothing Then
        Y = 100
    Else
        Y = c.Offset(0, j + 1).Value    
    End If
 
End With
 
If (Abs(X - Y) < 0.0001) Then
    ActiveSheet.Cells(i, j + 2) = "OK"
Else
    Cells(i, j + 2) = Abs(X - Y)
End If

J'ai modifier 2 ou 3 choses ... voir code ci-dessus

22/07/2010, 17h41
Gayzou

Merci beaucoup, ça marche très bien, je ne comprends pas bien cette ligne :

Code:

Y = c.Offset(0, j + 1).Value

Ca va beaucoup nous aider !
26/07/2010, 10h39
delphine35

Code:

Y = c.Offset(0, j + 1).Value

1- offset permet de faire un "decalage" a partir du cellule (ici c) d'un nombre de ligne et d'un nombre de colonne

Range.Offset(nbre_ligne, nbre_colonne)

donc ici tu va a la cellule qui est à 0 ligne et j+1 colonne de c
Ex :

Si c => "A1"
et j = 2
alors c.offset(0, j+1) => "D1"

2- Value : permet de recuperer la valeur de la cellule

Essayer la touche "F1" :ccool: