Problème fonction find

salut la communauté

j'ai un petit problème en fait je cherche à trouvé une chaîne de caractère dans une colonne d'une autre feuille
voilà mon programme

Code:

---

1 2 3 4 5 6 7 8 9 10

For l = 5 To 2000 If Worksheets(2).Cells(l, 51).Value = "y" Or Worksheets(2).Cells(l, 51).Value = "Y" Then Act = Worksheets(1).Cells(l, 13).Value Set cherche = Worksheets(1).Columns(13).Cells.Find(what:=Worksheets(2).Cells(l, 13).Value) If cherche Is Nothing Then Else Worksheets(1).Cells(ligne1, 51).Value = "y" End If   End If

---

mais quand je le lance ça me met erreur '1004' erreur définie par l'application ou par l'objet.

Je ne comprends pas mon erreur

merci d'avance pour votre aide

Citation:

---

Act = Worksheets(1).Cells(l, 13).Value
Set cherche = Worksheets(1).Columns(13).Cells.Find(what:=Worksheets(2).Cells(l, 13).Value)

---

Essaie en enlevant Cells et en spécifiant explicitement que tu recherches dans la valeur des cellules (xlValues) et non dans les formules, ainsi que dans une partie du texte (xlPart) et non pas la totalité

Code:

---

Set cherche = Worksheets(1).Columns(13).Find(what:=Worksheets(2).Cells(l, 13).Value, LookIn:=xlValues, LookAt:=xlPart)

---

Autrement, si ça ne fonctionne toujours pas, sur quelle ligne apparaît l'erreur ?
Comment est déclaré Cherche ? qui devrait être As Range...

Citation:

---

If Worksheets(2).Cells(l, 51).Value = "y" Or Worksheets(2).Cells(l, 51).Value = "Y" Then

---

Tu pourrais simplifier en forçant la casse de vérification

Code:

---

If LCase(Worksheets(2).Cells(l, 51).Value) = "y" Then

---

merci pour tes réponses je vais essayer tout ça

Bonjour le fil, bonjour le forum,

Aucune variable n'est déclarée dans ton code ! La variable Act est définit puis non utilisée et la variable Ligne1 n'est définie nulle part... Peut-être que c'est fait dans le code complet mais le bout de code que tu fournis est incohérent.

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12

Dim l As Integer Dim Ligne1 As Integer dim Act as ... Dim cherche As Range   For l = 5 To 2000 Ligne1 = ... If UCase(Worksheets(2).Cells(l, 51).Value) = "Y" Then Act = Worksheets(1).Cells(l, 13).Value Set cherche = Worksheets(1).Columns(13).Cells.Find(what:=Worksheets(2).Cells(l, 13).Value) If Not cherche Is Nothing Then Worksheets(1).Cells(Ligne1, 51).Value = "y" End If

---