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
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
1 2 3
| Sub afficher()
Me.Show
End Sub |
3- Code actualiser
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
maBArre.actualiser CInt(100 * i / 90000)
soit la cellule excel KN300 ?
2- Quand j'écrit
maBArre.actualiser CInt(100 * i / 90000)
l’exécution du code vba est normal mais quand j'écrit
maBArre.actualiser CInt(100 * i / (300*300))
le code bug dans cette ligne, je ne sais pas pourquoi ?
Merci pour vos éclaircissement
Cordialement
Partager