Discussion :

[Roiser]

Bonjour ,

j'ai un code qui semble très simple cependant je ne comprend pas pourquoi la ligne 5 passe inaperçu lors de l'execution de la macro, j'ai essayé de l'executé en "pas a pas" pour debugger mais là, miracle ça marche, donc me voila un peu perdu ...

Code :

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

1
2
3
4
5
6
7
8
9
    For Each ligneSuivi In MaPlage.Rows
        If ligneSuivi.Cells(5) Like "*,*" Then
            FeuilleInvent.Cells.AutoFilter Field:=4, Criteria1:=ligneSuivi.Cells(4).value
            TraceCML.Cells(ligneFichier, 1) = ligneSuivi.Cells(4)
            TraceCML.Cells(ligneFichier, 2) = FeuilleInvent.Cells(Cells(Rows.Count, 4).End(xlUp).Row, 6).value
            TraceCML.Cells(ligneFichier, 3) = ligneSuivi.Cells(5)
            ligneFichier = ligneFichier + 1
        End If
    Next

Merci d'avance pour votre aide

[Roiser]

Désolé c'est juste moi qui suis idiot la ligne 5 etait fausse (voici ce le code bon)

Code :

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

TraceCML.Cells(ligneFichier, 2) = FeuilleInvent.Cells(FeuilleInvent.Cells(Rows.Count, 4).End(xlUp).Row, 6).value

et vu que je faisait du pas a pas sur FeuilleInvent ça marchait mais je faisait l'execution sur une autre feuille donc autant pour moi ...

[unparia]

Bonjour
Essaye en insérant un Doevents juste après ta ligne 3