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 ???