Lecture en boucle

Bonjour,

Je souhaite résoudre un problème d'automatisation.

Si quelqu'un peut m'aider, j'en serai ravi.

Ci-attaché un fichier avec 02 onglets, le 1er onglet est un fichier non traité et comprend un code-une date-une désignation- une quantité d'article.

dans le 2nd onglet je veux reporter le code de l'article parallèlement à cahque mouvements en créant une cellule vide; le report du code change une fois que le code change.

Et c'est cela que je voudrai automatisé, le fichier n'est qu'un extrait mais il y a en tout ds le 20 mille lignes à faire.

Merci d'avance.

Salut Jason,

voici ton fichier. A tester en configuration réelle!

Un petit bouton rouge en attendant de savoir comment tu souhaites déclencher cette macro à l'avenir.

Private Sub cmdGO_Click()
'
Dim tTab
'
Application.EnableEvents = False
Application.ScreenUpdating = False
'
iRow = Cells(Rows.Count, 1).End(xlUp).Row
Columns(1).Insert shift:=xlToRight
Range("A1:A" & iRow).Font.Bold = True
'
tTab = Range("A1:B" & iRow)
For x = 1 To UBound(tTab, 1)
    If tTab(x, 2) = "" Then iFlag = iFlag + 1
    If Not IsNumeric(Left(tTab(x, 2), 1)) And tTab(x, 2) <> "" Then
        sFlag = tTab(x, 2)
    Else
        tTab(x, 1) = sFlag
    End If
    If iFlag = 2 Then
        tTab(x, 1) = "DEL"
        iFlag = 0
    End If
Next
Range("A1:A" & iRow) = tTab
For x = UBound(tTab, 1) To 1 Step -1
    If tTab(x, 1) = "DEL" Then Rows(x).Delete shift:=xlUp
Next
'
Application.ScreenUpdating = True
Application.EnableEvents = True
'
End Sub

Bon travail!

A+

Merci.