Ajouter un CommandButton dans une Feuille

[paul87]

Bonjour à tous, Bonjour le Forum,
Ce post fait suite à un de mes précédent
"Déplacer un CommandButton dans une Feuille"
Dans une feuille, je souhaite générer, via un UF, des CommandButton qui seront affectés ultérieurement à des actions spécifiques.
Ces CommandButton doivent être de taille égale mais la couleur de fond doit pouvoir être choisie par l'utilisateur final.
il sera positionné par défaut en B4, et déplacé par l'utilisateur, (voir post précédent) laissant la place libre en B4 pour création d'un nouveau CommandButton.
Je ne sais pas comment faire pour créer un CommandButton dans une feuille,
est-ce que s'est possible?...si oui, merci de me filer un coup de pouce.!!!
pour les propriétes du bouton, Taille et couleur, je croisque je saurais me débrouiller.....c'est juste la commande pour générer le bouton que je ne connais pas..!!!
Encore Merci!!!!
Paul

 

[skoobi]

Re : Ajouter un CommandButton dans une Feuille

Bonjour,

voici le code pour créer un CommandButton dans une feuille:

feuil1.shapes.AddOLEObject "Forms.CommandButton.1"

Regarde dans l'aide pour les autres arguments.
Bonne journée.

 

[paul87]

Re : Ajouter un CommandButton dans une Feuille

re
Bonjour et merci à toi skoobi
j'ai bien réussi à selectionner B4 pour le positionnement du bouton,
mais malgré l'aide,
je n'arrive pas à affecter d'arguments au bouton...😱
le .caption du bouton, issu du textbox1 du UF2
la couleur
la hauteur
la largeur
je connais bien pourtant ces codes, mais je n'y arrive pas...
Merci encore pour vos conseils.

 

[Lii]

Re : Ajouter un CommandButton dans une Feuille

Bonjour,

A voir.

 

[paul87]

Re : Ajouter un CommandButton dans une Feuille

Bonsoir à tous, Bonsoir le Forum,
Merci à toi Lii
j'ai transposé ton code dans mon appli test...
effectivement générer une forme rectangle marche bien aussi
mais ce que je souhaiterais c'est vraiment un CommandButton..
pour la fonctionnalité liée àu reste de l'appli..car je n'arrive pas à gérer le déplacement de la forme Rectangle tandis que le déplacement des CommandButton fonctionne
Et
meme en essayant de modifier ton code, je n'y arrive pas...
Help please!!!

 

[paul87]

Re : Ajouter un CommandButton dans une Feuille

Re bonjour à tous,.
si quelqu'un avait une soluce ou un coup de pouce svp..?

 

[skoobi]

Re : Ajouter un CommandButton dans une Feuille

Re bonjour,

j'ai bien réussi à selectionner B4 pour le positionnement du bouton,
mais malgré l'aide,
je n'arrive pas à affecter d'arguments au bouton...😱
le .caption du bouton, issu du textbox1 du UF2
la couleur
la hauteur
la largeur
je connais bien pourtant ces codes, mais je n'y arrive pas...
Merci encore pour vos conseils.

En PJ un exemple avec le titre et la couleur de fond prise en compte.

 

[skoobi]

Re : Ajouter un CommandButton dans une Feuille

Re,

pour compléter avec la hauteur, largeur et la position du bouton:

Set bouton = Feuil1.OLEObjects.Add("Forms.CommandButton.1", Left:=Range("B4").Left, Top:=Range("B4").Top, _
Width:=Range("B4").Width, Height:=Range("B4").Height)

Du coup, tu peux enlever Range("B4").Select et même remplacer Range("B4") par Activecell ou la variable que tu auras défini si la cellule est variable.

 

[Lii]

Re : Ajouter un CommandButton dans une Feuille

Bonjour,

skoobi, comment affectes-tu une macro à ton nouveau bouton ?
J'en suis au même stade. J'ai tout essayé (avec mes acquis) sans succès pour l'instant.

 

[skoobi]

Re : Ajouter un CommandButton dans une Feuille

Bonjour,

skoobi, comment affectes-tu une macro à ton nouveau bouton ?
J'en suis au même stade. J'ai tout essayé (avec mes acquis) sans succès pour l'instant.

Regarde ce fichier exemple de ce didacticiel partie "Visual Basic Editor": Créer dynamiquement un commandButton dans une feuille et y associer une macro.😉

 

[Lii]

Re : Ajouter un CommandButton dans une Feuille

Re,

skoobi, l'as-tu fait tourné, ce programme ?
Je me retrouve avec la même erreur rencontrée auparavant *:

With ActiveWorkbook.VBProject.VBComponents(ActiveSheet.Name).CodeModule

Complément : Erreur ...1004. L'accés par programme ... pas fiable

 

[skoobi]

Re : Ajouter un CommandButton dans une Feuille

Dans la sécurité des macros, va dans l'onglet "Editeurs approuvés" et coche "Faire confiance au projet visual basic" si c'est bien l'erreur "rencontrée auparavant".

 

[Lii]

Re : Ajouter un CommandButton dans une Feuille

Re,

Merci, c'était bien cela. Et dire que je cherchais depuis ...

 

[paul87]

Re : Ajouter un CommandButton dans une Feuille

Bonsoir à tous, Bonoir le Forum,
Grand merci à vous skoobi et Lii !!!
ça marche maintenant !!!
juste une dernière question...
Comment faire pour modifier la position par défaut du bouton créé...je n'y arrive pas ...😱 pire😱 je n'arrive pas à comprendre quelle est la ligne de code qui le positionne...!!!
je voudrais que le CommandButton crée vienne se positionner sur la cellule B2
sur la case Step1
encore Merci à vous...
Paul

 

[skoobi]

Re : Ajouter un CommandButton dans une Feuille

Re,

voici le code du bouton "valider" modifié (ajout en bleu), en rouge "l'ancien Top":

Private Sub CommandButton1_Click()
'Range("a1").Select
Set bouton = Feuil1.OLEObjects.Add("Forms.CommandButton.1")
With bouton
  .Object.Caption = TextBox1.Value
  .Width = 91.5
[COLOR=Red][B]  .Height = 33[/B][/COLOR]
[COLOR=Blue][B]  .Left = Range("B2").Left
  .Top = Range("B2").Top[/B][/COLOR]
  If OptionButton1 Then
    .Object.BackColor = RGB(255, 0, 0) 'rouge
  ElseIf OptionButton2 Then
    .Object.BackColor = RGB(0, 255, 0) 'vert
  ElseIf OptionButton3 Then
    .Object.BackColor = RGB(255, 255, 0) 'jaune
  ElseIf OptionButton4 Then
    .Object.BackColor = RGB(0, 0, 255) 'bleu
  End If
End With

Unload Me
Exit Sub
End Sub

Au fait, tu peux aussi enlever " Exit Sub" à la fin vu que tu décharge juste avant l'USF.