Discussion :

[Gayzou]

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 :

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

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.

[delphine35]

Code :

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

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 " ) ??

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

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

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.

[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 !

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

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

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

[Gayzou]

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 :

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

[delphine35]

Pourquoi ne pas faire un "FIND" ?? C'est ce qui ressemble le plus au RechercheV ....

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

[delphine35]

Ca soit etre quelque chose comme ca :

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

[Gayzou]

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

Code :

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

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

Ca va beaucoup nous aider !

[delphine35]

Code :

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

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"