Discussion :

[zandru]

Bonjour,

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

Code :

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

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 :

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

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

Pourquoi ???

[Minick]

Salut,

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

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

Code :

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

LookAt:=xlWhole

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

Code :

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

LookAt:=xlPart

Et eventuellement

Code :

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

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

[Gorfael]

Salut zandru et le forum
essaie avec

Code :

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

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+

[zandru]

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 ?

[Minick]

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

[zandru]

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

Merci encore !