Création de plusieurs CommandButton via des cellules précises

Bonjour à tous,

Peut-on créer via vba plusieurs CommandButton d'un seul coup , s'il vous plaît ? (j'ai 20 commandbutton à créer).

De plus, tous les commandButton seront affectés à une cellule précise.

Voici le code :

Private Sub CommandButton30_Click()

TextBox1 = Sheets("BDD").Range("B2")

CommandButton30.Caption = Sheets("BDD").Range("B2").Value

End Sub

Merci à vous,

Storm28

Bonjour Storm28,

voici un exemple,

Merci pour ta réponse.

Mais, je peux mettre le code dans un userform ?

et je voudrai des commandButton, c'est possible ?

Merci à toi,

Storm28

Bonjour Storm28,

voici un autre exemple sur un UserForm

Merci de ton aide mais, mes données sont dans une feuille en colonne.

Dans ton code, je ne vois pas où, je peux mettre l'onglet de mes données ainsi que la colonne.

Pourrais-tu me dire où, je peux le mettre, s'il te plaît ?

Merci à toi

Bonjour,

Je relance le sujet.

Merci par avance,

Storm28

Bonjour Storm28,

désolé pour le retard de ma réponse,

j'ai du m'absenté quelques jours.

voici un autre exemple, j'espère que celui-ci sera plus compréhensif pour toi.

ps / dans cette exemple, l'action exécuté par chacun des CommandButton est de sélectionner une feuille du classeur

cette action peut être modifier facilement sur la macro Private Sub MonCb_Click()

qui est sur le module de classe ClassCb

Merci à toi,

mais j'ai un message d'erreur :

De plus, je possède un Private Sub UserForm_Initialize()

Cela ne pose pas de soucis ?

De plus,

J'aimerai que quand j'appuie sur les commandbutton créés par la macro soit affichée dans le TextBox1.

Et aussi, que je puisse les bouger de place.

Je demande beaucoup car , je débute et je m'excuse par avance.

Storm28

Storm28 a écrit :

De plus,

J'aimerai que quand j'appuie sur les commandbutton créés par la macro soit affichée dans le TextBox1.

Et aussi, que je puisse les bouger de place.

Je demande beaucoup car , je débute et je m'excuse par avance.

Storm28

re,

désolé je ne comprend pas cette nouvelle question.

peut être si vous joignez votre fichier en explication plus en détail le but visé.

Pas de soucis, je reformule ma question.

Avec le code que vous m'avez donné, je peux effectivement créer des commandButtons.

Sauf que ces commandbuttons sont figés en colonnes et que je ne peux les déplacer dans mon userform.

==> Comment faire pour que les commandbutton (qui ont été crée par le code cité dans les posts ci-dessus) puissent être déplacer et les organiser à ma façon ?

De plus, lorsque que je veux appuyer sur l'un des commandbutton créé par le code, je voudrai que cela affiche le nom de la commandbutton dans un TextBox.

D'ailleurs, lors de mon 1er post, j'avais donné mon code concernant le TextBox.

Peut-on faire ceci ?

Je m'excuse par avance, si ma première question était incompréhensive.

Merci par avance,

Storm28 a écrit :

Sauf que ces commandbuttons sont figés en colonnes et que je ne peux les déplacer dans mon userform.

l'emplacement des CommandButton se fait dans la macro Private Sub UserForm_Initialize()

le code à modifier est celui-ci,

    
 With UserForm1
    Set cb = .Controls.Add("Forms.CommandButton.1", True)
      With cb
        .Height = 20              'hauteur du CommandButton
        .Width = 120              'largeur du CommandButton
        .Top = x                  'emplacement du CommandButton - situer à partir du haut
        .Left = 100               'emplacement du CommandButton - situer à partir de la gauche
        .Caption = Sheets("Menu").Range("A" & i)  'Nom affiché sur le CommandButton
       End With
    End With

ps/

si tu as créé manuellement les TextBox sur le UF

tu peux aussi définir l'emplacement des CB en fonction des TB