Barre de progression

Bonjour le forum,

Je cherche a faire une barre de progression de ma macro.

Je trouve pour le faire quand il y a une boucle For, mais moi j'en ai 2 imbriquées et la je bloque.

Si quelqu'un peut m'aiguiller, pour y arriver cela serait super

Sub Gabarit()
Application.ScreenUpdating = False
Application.Calculation = xlCalculationManual
Dim k As Integer, i As Integer, j As Integer
k = Sheets.Count

For i = 7 To k
    last = Sheets(i).Range("b" & Rows.Count).End(xlUp).Row
    lastgab = Sheets("00-Gabarit").Range("b" & Rows.Count).End(xlUp).Row
        For j = 3 To last
            Set cherche = Sheets(i).Cells(j, 2)
            Set trouve = Sheets("00-Gabarit").Range("B3:B" & lastgab).Find(cherche, LookIn:=xlValues, lookat:=xlWhole)
                If trouve Is Nothing Then
                    If Sheets("00-Gabarit").Range("B3") = "" Then
                        lastgabarit = Sheets("00-Gabarit").Range("b" & Rows.Count).End(xlUp).Row + 2
                    Else
                        lastgabarit = Sheets("00-Gabarit").Range("b" & Rows.Count).End(xlUp).Row + 1
                    End If
                        Sheets(i).Rows(j).Copy
                        Sheets("00-Gabarit").Cells(lastgabarit, 1).PasteSpecial
                End If
       Next j
Next i
Dern = Sheets("00-Gabarit").Range("B" & Rows.Count).End(xlUp).Row

Sheets("00-Gabarit").Range("E3:E" & Dern).ClearContents

End Sub

Merci

Bonsoir,

l'idée est de découper votre barre en autant de sous barre que de boucle de I et de faire progresser ces sous barres en fonction de J :
Votre barre "pleine" = 300 pts
I va de 7 = 12 par exemple
J va de 3 à 15

Les "sous barre" correspondent dont à 300 / (12-7) = 60
à chaque boucle de J il faut faire avancer la barre de 60 / (15-3) = 5

Donc le Width de la barre augmente de 5 à chaque tour de J, et ce sur 12 de j x 5 tour de i = 5 x 12 x 5 = 300 pts, votre barre est pleine à la des boucles.

@ bientôt

LouReeD