Créer CommandButton dans feuille Excel (VBA) Résolu

Question

Bonjour, 

J'ai un menu en vba dans un form "Menu" assez classique. Je voudrais ceci :
 - Lorsque l'utilisateur choisit "Saisir de nouvelle valeur" dans le menu
 - Alors on cr&#233;er un commandbutton appell&#233; BtnMenu2 au niveau de la cellule B2
 - Avec comme caption "Retour", comme ForeColor du rouge
 - Et qu'il se d&#233;place en m&#234;me temps qu'on se d&#233;place dans la feuille excel (hsitoire de ne pas le perdre de vue, ou d'&#234;tre oblig&#233; de revenir l&#224; ou il a &#233;t&#233; cr&#233;er)
 - Enfin, lorqu'on clik dessus, ce bouton est supprimer et ma form "Menu" s'affcihe &#224; nouveau (show)

Merci d'avance !!

Bop

Utilisateur anonyme · Accepted Answer

Bijour,

Tout d'abord dans un module

Option Explicit
Public BtnRetour As Object

Public Sub BtnRetour_Click()
  BtnRetour.Delete
  FrmMenu.Show
End Sub

Puis dans la form 'Menu' appel&#233; FrmMenu

Option Explicit

Private Sub TonMenu_Click()
  Set BtnRetour = Feuil1.Buttons.Add(Feuil1.Cells(2, 2).Left, Feuil1.Cells(2, 2).Top, 288.75, 131.25)
  BtnRetour.OnAction = "BtnRetour_Click"
  BtnRetour.Font.ColorIndex = 3
End Sub

Pour le d&#233;placement du bouton automatique, j'ai pas trouv&#233;, d&#233;sol&#233;.

Kenji
<hr size="2" width="100%">
Merci de cliquer sur "R&#233;ponse accept&#233;e" si une r&#233;ponse vous convient.

BeebopMcFly · Answer

Salut !!

Bon j'ai un gros bouton de cr&#233;er, et la commade BtnRetour.OnAction = "BtnRetour_Click" marche &#224; merveille !!

En revanche, mon bouton &#224; Button 1033 ou Button 1099 en caption, c'est &#224; dire qu'il est g&#233;r&#233; automatiquement.

Tu saurais mettre ce caption "Retour", en tahoma, 18 et gras ??

Utilisateur anonyme · Answer

Oui, c vrai, j'ai oublier pour le nom de bouton
Rajoute

[...]
Set BtnRetour = Feuil1.Buttons.Add(Feuil1.Cells(2, 2).Left, Feuil1.Cells(2, 2).Top, 288.75, 131.25)
BtnRetour.OnAction = "BtnRetour_Click"
BtnRetour.Text = "Retour"
BtnRetour.Font.ColorIndex = 3
BtnRetour.Font.Name = "Tahoma"
BtnRetour.Font.Size = 18
BtnRetour.Font.FontStyle = "Gras"
[...]

Kenji
<hr size="2" width="100%">
Merci de cliquer sur "R&#233;ponse accept&#233;e" si une r&#233;ponse vous convient.

BeebopMcFly · Answer

Ok merci beaucoup, je vais surement pouvoir finir &#231;a avant 2006 

Bye !!

infoyassmedianet · Answer

Infoyassmedianet

infoyassmedianet · Answer

merci mon amie  mais aodez moi g'aiun probleme avec le boutton recherche dans la base do donn&#233;e s-a-d-quoi

Infoyassmedianet

Créer CommandButton dans feuille Excel (VBA)

6 réponses

Discussions similaires