XL 2010 erreur 1004 avecfind

[Zoulou17]

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

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]

BIENVENUE

Il faudrait lire la charte
un fichier serait le bienvenu aussi.

bonne soirée.

 

[cp4]

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

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.