Bonjour,

J'aimerai créer une fonction qui génère plusieurs boutons ActiveX et qui leur associe, à chacun, un nom ainsi qu'une fonction de CallBack.

Pour la 1ere partie, j'utilise le code suivant:

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
Sub Creat_Boutons()
Dim NouveauBouton As OLEObject
Dim Ind As Integer
 
For Ind = 1 To 7
'   Ajoute un bouton de Commande
    Set NouveauBouton = Sheets("Feuil1").OLEObjects.Add("Forms.CommandButton.1")
    With NouveauBouton
        .Object.Caption = "Bouton" & Ind
        .Name = "Bouton" & Ind
    End With
Next Ind
End Sub
J'aimerai ensuite pouvoir associer à chacun de ces boutons, une fonction du type Bouton&ind_click() associée à mes boutons.

Je ne pense pas que passer par les commandes:
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
With ThisWorkbook.VBProject.VBComponents(ActiveSheet.Name).CodeModule
      NextLine = .CountOfLines + 1
      .InsertLines NextLine, Code
    End With
ou mon code serait programmé soit intéressant puisque j'aimerai que tous mes boutons génèrent là même réponse à l'indice près:

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
' (Exemple simple:)
 MsgBox "Le bouton choisi est le" & ind
Merci de vos réponses.
EB