Multiplebuttons

[CG2000]

Sur cet exellent forum :🙂
https://www.excel-downloads.com/threads/ajout-de-lignes-vides.114059/
GIBI nous offre cette macro

Sub CreerLigne()
 For L = Range("A65536").End(xlUp).Row - 1 To 2 Step -1
     If Int(Cells(L, 1) / 100) <> Int(Cells(L + 1, 1) / 100) Then
         n = Int(Cells(L, 1) / 100) * 100 + 20 - Cells(L, 1)
         If n > 0 Then
            Rows(L + 1 & ":" & L + n).Insert Shift:=xlDown
            For i = L + 1 To L + n
               Cells(i, 1) = Cells(i - 1, 1) + 1
            Next
         End If
     End If

 Next
    
End Sub

Elle fonctionne parfaitement. Par contre mais connaissance en vba étant très très limitées, je n'arrive pas à demander au bouton "CommandButton1" de l'UserForm1 en fichier joint (fichier de John Walkenbach) de déclencher cette macro.
Est-ce quelqu'un peut m'expliquer comment obtenir ce résultat et me permettre de l'appliquer à l'avenir sur les autres boutons de cet UserForm1.

Mon idée est de pourvoir regrouper des macro via cet UserForm1 au lieu d'avoir x boutons sur une ou plusieurs feuilles.

Merci par avance de votre aide.

 

[phlaurent55]

Re : Multiplebuttons

Bonjour cg2000

copie le code depuis FOR jusqu'à NEXT
ensuite---> Alt+F11
selectionne ton Userform
double-clic sur le bouton sur lequel tu veux mettre le code
et finalement colle ce que tu avais copié au départ

à+
Bonne journée

 

[CG2000]

Re : Multiplebuttons

Bonsoir phlaurent55,

🙂 Merci de ton aide. Avec ton explication j'y suis arrivé rapidement.
🙂 Je renouvelle mes remerciements pour cette réponse rapide et d'avoir surtout voulu répondre à une question qui paraissait simpliste.

A+

 

[CG2000]

Re : Multiplebuttons

Bonsoir phlaurent55,

Merci pour cette réponse rapide. Avec ta procédure à suvre j'y suis enfin arrivé. Merci pour ton aide.

CG2000

 

[CG2000]

Re : Multiplebuttons

Merci pour cette réponse rapide, en suivant toication j'y suis arrivé très vite.
Merci pour ton aide.

A+
CG2000