Bonjour
Je souhaiterais utiliser une barre Progression lors de l'éxécution de la boucle For et je souhaiterais que mon k incrémente mon pourcentage de progression.
Voici ma boucle:
Dim i As Long
Application.Calculation = xlManual
For i = 0 To UBound(timeAndAmplArray, 2)
' Time
Worksheets("Réglages").Cells(i + 2, 15).Value = timeAndAmplArray(0, i)
Worksheets("Réglages").Cells(26, 9).Value = k
' Amplitude
Worksheets("Réglages").Cells(i + 2, 14).Value = timeAndAmplArray(1, i)
Next
Application.Calculation = xlAutomatic
Merci d'avance.
Bonne journée.
Je souhaiterais utiliser une barre Progression lors de l'éxécution de la boucle For et je souhaiterais que mon k incrémente mon pourcentage de progression.
Voici ma boucle:
Dim i As Long
Application.Calculation = xlManual
For i = 0 To UBound(timeAndAmplArray, 2)
' Time
Worksheets("Réglages").Cells(i + 2, 15).Value = timeAndAmplArray(0, i)
Worksheets("Réglages").Cells(26, 9).Value = k
' Amplitude
Worksheets("Réglages").Cells(i + 2, 14).Value = timeAndAmplArray(1, i)
Next
Application.Calculation = xlAutomatic
Merci d'avance.
Bonne journée.