Airone784
XLDnaute Occasionnel
Bonjour à tous,
Dans une UF, j'ai ce code qui s'éxecute lorsque je clique un commandbutton:
Ce que je ne comprends pas c'est pourquoi mon code est assez lent à s’exécuter. Environ 30 secondes. Alors que le code ne me semble pas très compliqué...
Du fait de la lenteur j'aimerais intégrer ce code qu ej'ai récupéré sur le net :
Comment faire pour intégrer ce code pour que mon pourcentage évolue au fur et à mesure que mes lignes de codes sont exécutées????
Merci pour le coup de main 🙂
Dans une UF, j'ai ce code qui s'éxecute lorsque je clique un commandbutton:
Code:
Private Sub CommandButton1_Click()
'Bouton créer
Application.ScreenUpdating = False
'Copie du nom de la course
Sheets("1ère").Range("A1") = Me.TextBox1
Sheets("Engagés").Range("A1") = Me.TextBox1
Sheets("Scratch").Range("A1") = "CLASSEMENT DU " & Me.TextBox1
Sheets("Clt points").Range("A1") = Me.TextBox1
Sheets("Classement_par_équipes").Range("A1") = Me.TextBox1
Sheets("Primes").Range("A1") = Me.TextBox1
'Copie de la date de l'épreuve
Sheets("Engagés").Range("A3") = CDate(Me.DTPDateDebut)
Sheets("Scratch").Range("B2") = CDate(Me.DTPDateDebut)
Sheets("1ère").Range("B3") = CDate(Me.DTPDateDebut)
'Copie du type de l'épreuve
Sheets("Scratch").Range("D2") = Me.TextBox2
'Copie des catégories de l'épreuve
Sheets("Scratch").Range("G2") = Me.TextBox3
Sheets("1ère").Range("G3") = Me.TextBox3
'Copie de toutes les infos sur la feuille d'émargement
Sheets("feuille_émargement").Range("A1") = Me.TextBox1 & Chr(32) & Chr(32) & Chr(32) _
& UCase(Format(CDate(Me.DTPDateDebut), "d mmmm yyyy")) & Chr(32) & Chr(32) & Chr(32) & "LISTE D'EMARGEMENT"
Unload Me
Application.ScreenUpdating = True
end ifCe que je ne comprends pas c'est pourquoi mon code est assez lent à s’exécuter. Environ 30 secondes. Alors que le code ne me semble pas très compliqué...
Du fait de la lenteur j'aimerais intégrer ce code qu ej'ai récupéré sur le net :
Code:
Dim i As Long
For i = 1 To 1000000
' mon action
If i Mod 10000 = 0 Then
Application.StatusBar = Int(i / 10000) & "% effectués"
End If
Next i
Application.StatusBar = FalseComment faire pour intégrer ce code pour que mon pourcentage évolue au fur et à mesure que mes lignes de codes sont exécutées????
Merci pour le coup de main 🙂