Worksheetfunction.vlookup

[Flofr91]

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]

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

[Flofr91]

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]

« 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

[Flofr91]

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]

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