Exécuter une macro 100 fois

Fermé
JeanDUJ - 15 sept. 2020 à 17:44
ccm81 Messages postés 10903 Date d'inscription lundi 18 octobre 2010 Statut Membre Dernière intervention 19 novembre 2024 - 15 sept. 2020 à 18:31
Bonjour,

Je me permets de vous contacter afin d'automatiser un enchainement de macro.

La macro suivante permet de réaliser de manière automatique mes besoins. Je souhaite qu'elle se réalise dans cet ordre 4190 fois !! :

Sub autonmatisationtotal()
'
' autonmatisationtotal Macro
'


AUTOMAT
etape8



End Sub


Pouvez-vous m'aider à partir de cette macro ?
Merci par avance !
Jean






Configuration: Windows / Chrome 85.0.4183.102

1 réponse

ccm81 Messages postés 10903 Date d'inscription lundi 18 octobre 2010 Statut Membre Dernière intervention 19 novembre 2024 2 427
15 sept. 2020 à 18:31
Bonjour

Pas très clair, mais bon j'essaie quand meême !
Deux solutions
Solution 1. Avec une procedure qui relance 4090 fois ta macro
Sub ok()
Dim k As Long
For k = 1 To 4090
Call autonmatisationtotal
Next k
End Sub

Sub autonmatisationtotal()
'
' autonmatisationtotal Macro
'
AUTOMAT
etape8
End Sub


Solution 2. Boucle qui repéte 4090 fois la séquence contenue dans ta macro
Sub autonmatisationtotal()
Dim k As Long
'
' autonmatisationtotal Macro
'
For k = 1 To 4090
AUTOMAT
etape8
Next k
End Sub


Cdlmnt
0