XL 2010 erreur 1004 avecfind

Zoulou17

XLDnaute Nouveau
hello à tous et d'avance merci de votre aide

j'ai récupére un bout de script pour la fonction find
celle ci fonctionnait tres bien mais j'ai du faire qqch qui la fait maintenant planter

VB:
Dim Trouve As Range, PlageDeRecherche As Range
Dim Valeur_Cherchee As String, AdresseTrouvee As String

'********* à adapter ***********
Valeur = Userform1.textbox1.value
Set PlageDeRecherche = Sheets("Feuil1").Columns(2)
'*******************************

'méthode find, ici on cherche la valeur exacte (LookAt:=xlWhole)

Set Trouve = PlageDeRecherche.Cells.Find(what:=Valeur, LookAt:=xlWhole)
cella me met une erreur 1004 : erreur définie par l'application ou par un objet
 

cp4

XLDnaute Impliqué
hello à tous et d'avance merci de votre aide

j'ai récupére un bout de script pour la fonction find
celle ci fonctionnait tres bien mais j'ai du faire qqch qui la fait maintenant planter

VB:
Dim Trouve As Range, PlageDeRecherche As Range
Dim Valeur_Cherchee As String, AdresseTrouvee As String

'********* à adapter ***********
Valeur = Userform1.textbox1.value
Set PlageDeRecherche = Sheets("Feuil1").Columns(2)
'*******************************

'méthode find, ici on cherche la valeur exacte (LookAt:=xlWhole)

Set Trouve = PlageDeRecherche.Cells.Find(what:=Valeur, LookAt:=xlWhole)
cella me met une erreur 1004 : erreur définie par l'application ou par un objet
Tu déclares une variable Valeur_Cherchee que tu n'utilises pas.
Ton code recherche une variable non déclarée Valeur = Userform1.textbox1.value (find(what:=Valeur).
Il faudrait mettre Valeur_Cherchee= Userform1.textbox1.value (find(what:=Valeur_Cherchee)

Bonne journée.
 

Discussions similaires


Haut Bas