Exécuter une macro 100 fois

JeanDUJ -  
ccm81 Messages postés 11033 Statut Membre -
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

  1. ccm81 Messages postés 11033 Statut Membre 2 434
     
    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