Bonjour a vous tous
Tous d'abord, je m'excuse pour mon ignorance en matière de VBA
J'ai trouvé sur internet ces codes pour montrer comment fonctionne une barre de progression

1- Code d’exécution dans Excel

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
Sub Ellipse1_Cliquer()
Application.ScreenUpdating = False
i = 0
couleur = 1
maBArre.afficher
For lign = 1 To 300
        If lign Mod 2 = 0 Then
        couleur = 3
        Else
        couleur = 1
        End If
   For col = 1 To 300
        If couleur = 3 Then
        couleur = 1
        Else
        couleur = 3
        End If
i = i + 1
Cells(lign, col).Select
Selection.Interior.ColorIndex = couleur
    maBArre.actualiser CInt(100 * i / 90000)
  Next col
Next lign
Application.ScreenUpdating = True
End Sub
2- Code afficher

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
Sub afficher()
    Me.Show
End Sub
3- Code actualiser

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
Sub actualiser(taux As Integer)
 
    barreProgression.Width = (taux * textePourcentage.Width) / 100
    textePourcentage = taux & "%"
    If taux = 100 Then
        Unload Me
    End If
 
    DoEvents
End Sub
Mes questions si c'est possible sont:
1- D’après vous quelles sont les modifications a faire dans le 1 er code VBA pour que cette progress barre soit dynamique, autrement dit je ne doit pas écrire dans le code le numéro de la dernière cellule ici c'est
Code : Sélectionner tout - Visualiser dans une fenêtre à part
maBArre.actualiser CInt(100 * i / 90000)
soit la cellule excel KN300 ?

2- Quand j'écrit
Code : Sélectionner tout - Visualiser dans une fenêtre à part
maBArre.actualiser CInt(100 * i / 90000)
l’exécution du code vba est normal mais quand j'écrit
Code : Sélectionner tout - Visualiser dans une fenêtre à part
maBArre.actualiser CInt(100 * i / (300*300))
le code bug dans cette ligne, je ne sais pas pourquoi ?

Merci pour vos éclaircissement
Cordialement