Bonjour,
Je n’arrive pas régler une erreur 1004 : impossible de lire la propriété VLookUp de la classe WorkSheetFunction"
Voici le code :
Sub recherche ()
Dim A as integer
Dim B as integer
Dim C as range
Dim D as variant
Dim E as range
B= sheets(1).cells(rows.count,2).end(xlup).row
Set C = thisworkbook.sheets(2).range(« G:AM »)
Sheets(1).activate
For A= 4 to B step 1
Set D = sheets(1).cells(A,7)
Set E = sheets(1).cells(A,3)
If is empty (E) then
D=application.worksheetfunction.vlookup(E,C,33,0)
A= A+1
End If
Next
End sub
Quelqu’un voit-il une erreur ?
Merci du coup de pouce 
FFO
2
Bonsoir
Pour moi le soucis est ici :
D=application.worksheetfunction.vlookup(E,C,39,0)
La plage de recherche est défini par la variable C defini par cette ligne de code :
Set C = thisworkbook.sheets(2).range(« G:AM »)
Soit de la colonne G à la colonne AM
La colonne G représente la colonne 1 de la plage AM la colonne 33 de cette plage
Or l’instruction demante la donnée de la colonne 39 :
D=application.worksheetfunction.vlookup(E,C,39,0)
Dans cette partie :
vlookup(E,C,39,0)
Impossible si la plage n’a que 33 colonnes
Soit augmenter celle-ci à 39 colonnes au moins soit reduire le numéro de la colonne qui doit être <= à 33 dans laquelle la donnée doit être récupérée
A voir et adapter
Bonjour,
Merci de votre réponse, vous avez raison il y a une erreur dans la matrice cependant même après correction cela ne fonctionne pas…
FFO
4
« cependant même après correction cela ne fonctionne pas… »
Est-ce le même message ou une autre anomalie et laquelle
Merci d’être precis sinon transmettre le fichier sans donnée confidentielle
J’ai compris, la valeur cherchée est une cellule vide parce qu’il y a l’instruction If isempty…
Merci d’avoir pris du temps pour moi…
FFO
6
Donc affaire classée et resolue
N’oublies pas de valider ma réponse un petit geste bien sympathique
Au plaisir de t’aider une prochaine fois
system
A fermé ce sujet ()
7
Ce sujet a été automatiquement fermé après 30 jours. Aucune réponse n’est permise dorénavant.