Astuce VBA : créer une barre de progression

Voici un exemple de barre de progression qu'il est possible de créer en VBA en utilisant quelques contrôles simples :

Tuto vidéo

Pour apprendre à créer une barre de progression avec Excel, consultez ce tutoriel vidéo :

Code VBA

Dans cet exemple, pour avoir le temps de voir la barre de progression, 250'000 valeurs sont entrées dans les cellules et la barre avance ensuite en fonction de la progression:

Private Sub CommandButton1_Click()
    
    'Source : https://www.excel-pratique.com/fr/astuces_vba/progress_bar
    
    Application.ScreenUpdating = False
    
    UserForm_demo.Height = 131.25

    compteur = 0
    progression = 0
    
    For ligne = 1 To 5000
        For col = 1 To 50
        
            compteur = compteur + 1
            Cells(ligne, col) = ligne + col
            
            If compteur Mod 2500 = 0 Then '=> sera exécuté 100x
                
                progression = progression + 1
                Image_barre.Width = progression * 1.5
                Label_barre.Caption = progression & "%"
                DoEvents
                
            End If
            
        Next
    Next
    
    Application.ScreenUpdating = True
    UserForm_demo.Height = 142.5
    
End Sub

Et l'image utilisée pour cette barre de progression :