pb avec un find

Bonjour,

déjà le code qui pose problème :

Code:

---

1 2 3 4 5 6 7 8 9 10

With Worksheets(nomfeuille) 'code divers Dim lignefaccom As Integer lignefaccom = 13 For i = 0 To (faccreation.Listblavoir.ListCount - 1) If .Range("E:E").Find(what:=Workbooks(faccreation.Listblavoir.List(i) & ".xls").ActiveSheet.Cells(ligneblcom, 5), after:=.Cells(1, 5)) Is Nothing Then 'traitement End If Next end with

---

Mon soucis est que le find ne semble pas fonctionner.
quelque précision :

Code:

---

Workbooks(faccreation.Listblavoir.List(i) & ".xls").ActiveSheet.Cells(ligneblcom, 5), after:=.Cells(1, 5)

---

contient "com av1" et je le recherche sur la feuille Worksheets(nomfeuille), colonne E.
si il n'y est pas je veux qu'il fasse le traitement et si il y est déjà qu'il passe à la suite.
Le problème est que si il y est, ce code entre tout de même dans le if :aie:

Pourquoi ???

Salut,

Peut etre parce qu'il ne cherche pas comme il faut.

Si tu cherches "com av1" precisement ajoute l'option

Code:

---

LookAt:=xlWhole

---

Si tu cherches "com av1" quelque part dans les cellules ajoutes l'option

Code:

---

LookAt:=xlPart

---

Et eventuellement

Code:

---

Lookin:=Xlvalues

---

pour etre sur de chercher dans la valeur et non la formule.
(Find utilise les options de la dernier recherche dans excel si on ne change pas les options dans la macro)

Voila quelques pistes...

++
Minick

Salut zandru et le forum
essaie avec

Code:

---

Workbooks(faccreation.Listblavoir.List(i) & ".xls").Sheets("nom de feuille").Cells(ligneblcom, 5), after:=.Cells(1, 5)

---

Les paramètres d'Excel sont mis à jour de façon très particulière et je pense qu'utiliser Activesheet est une erreur.
A+

Merci pour vos réponses.

j'ai complété les propriétés du find comme tu me l'a conseillé Minick, mais cela ne change rien.

Gorfael, je ne peux pas utiliser Sheets("nom de feuille") car je ne connais pas le nom de la feuille. Par contre je sais que le fichier ne contient qu'une et unique feuille, c'est pour cela que j'utilise ActiveSheet.

Par contre je me demande si le fait que, sur certaine ligne dont celles qui contiennent ce que je cherche, la cellule colonne E soit fusionné avec les cellules des colonnes F et G gène le find ?

Salut,

Je pense que le probleme vient effectivement de la fusion de cellules
(Personnellement je ne l'utilise jamais, ca pause souvent des petits probleme...)

Donc si tu ne n'as pas "com av1" dans les colonnes F-G etend la plage de recherche a ces colonnes et ca devrait etre bon.

++
Minick

Bonjour,

merci de votre aide, le problème était bien la fusion des cellules.
J'ai donc étendu le find sur les colonnes F et G, et ça marche :D

Merci encore !