Discussion :

[darchisgod]

Bonjour,

J'essaye de programmer via vba une rechercheV, parfois cela marche et d'autres fois non.
En effet j'obtiens le message suivant : "Erreur d'execution 1004 : impossible de lire la propriété VLookUp de la classe WorkSheetFunction"

Voici la partie code que j'ai écrit et qui pose problème :


nbcells = Application.WorksheetFunction.CountA(Feuil1.Range("$A:$A")) - 3

For i = 1 To nbcells - 2

If Sheets("PPA").Cells(i + 4, 1).Interior.Color = RGB(255, 128, 128) Then
Sheets("PPA").Cells(i + 4, 2).Value = ""
Else
If Sheets("PPA").Cells(i + 4, 2).Value = 0 Then
Else
With Sheets("PPA")
.Cells(i + 4, 14).Value = WorksheetFunction.VLookup(.Cells(i + 4, 2).Value, Sheets("Indices").Range("A6:C150"), 3, False)
End With
End If
End If
Next i

Si vous avez une réponse à mon problème, ce serait parfait!
Merci à vous

[jfontaine]

Bonjour,

Une erreur 1004 est généré, si Vlookup ne trouve pas l'occurence recherchée.
Es tu dans ce cas ?

[hopee]

Bonjour,

je profite de cette discusion

cette code est bien placé dans Private Sub Worksheet_Change(ByVal Target As Range)
quand la colonne N est remplie, et la colonne est vide (c'est la colonne où je veux afficher le résultat d'une rechercheV)

Fiche_Article est l'onglet où je vais affichier les colonnes
lst_simplifiée est où je stocke la base des données.

Code :

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

1
2
3
4
5
6
 
For i = 5 To 1000
    If Not IsEmpty(Sheets("Fiche_Article").Range("N" & i)) And IsEmpty(Sheets("Fiche_Article").Range("O" & i)) Then
    Sheets("Fiche_Article").Range("O" & i).Value = Application.WorksheetFunction.VLookup(Sheets("Fiche_Article").Range("N" & i).Value, Sheets("lst_simplifiée").Range("I:L"), 4, 0)
    End If
Next i

vous pouvez me donner une idée pourquoi ce code marche pas et m'afficher le message d'erreur 1004 impossible de lire la propriété VLookup de la classe worksheetFunction?
je suis sous excel 2010.

Hopee