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

BeebopMcFly 23 Messages postés mercredi 25 février 2004Date d'inscription 5 septembre 2006 Dernière intervention - 29 déc. 2005 à 11:23 - Dernière réponse : infoyassmedianet 2 Messages postés mardi 20 décembre 2005Date d'inscription 29 décembre 2005 Dernière intervention
- 29 déc. 2005 à 20:29
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éer un commandbutton appellé BtnMenu2 au niveau de la cellule B2
- Avec comme caption "Retour", comme ForeColor du rouge
- Et qu'il se déplace en même temps qu'on se déplace dans la feuille excel (hsitoire de ne pas le perdre de vue, ou d'être obligé de revenir là ou il a été créer)
- Enfin, lorqu'on clik dessus, ce bouton est supprimer et ma form "Menu" s'affcihe à nouveau (show)

Merci d'avance !!

Bop
Afficher la suite 

6 réponses

Charles Racaud 3181 Messages postés dimanche 15 février 2004Date d'inscription 9 avril 2017 Dernière intervention - 29 déc. 2005 à 12:07
+3
Utile
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é 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éplacement du bouton automatique, j'ai pas trouvé, désolé.

Kenji
<hr size="2" width="100%">
Merci de cliquer sur "Réponse acceptée" si une réponse vous convient.
Cette réponse vous a-t-elle aidé ?  
Charles Racaud 3181 Messages postés dimanche 15 février 2004Date d'inscription 9 avril 2017 Dernière intervention - 29 déc. 2005 à 13:01
+3
Utile
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éponse acceptée" si une réponse vous convient.
Cette réponse vous a-t-elle aidé ?  
BeebopMcFly 23 Messages postés mercredi 25 février 2004Date d'inscription 5 septembre 2006 Dernière intervention - 29 déc. 2005 à 12:22
0
Utile
Salut !!

Bon j'ai un gros bouton de créer, et la commade BtnRetour.OnAction = "BtnRetour_Click" marche à merveille !!

En revanche, mon bouton à Button 1033 ou Button 1099 en caption, c'est à dire qu'il est géré automatiquement.

Tu saurais mettre ce caption "Retour", en tahoma, 18 et gras ??
BeebopMcFly 23 Messages postés mercredi 25 février 2004Date d'inscription 5 septembre 2006 Dernière intervention - 29 déc. 2005 à 14:53
0
Utile
Ok merci beaucoup, je vais surement pouvoir finir ça avant 2006

Bye !!
infoyassmedianet 2 Messages postés mardi 20 décembre 2005Date d'inscription 29 décembre 2005 Dernière intervention - 29 déc. 2005 à 20:26
0
Utile
Infoyassmedianet
infoyassmedianet 2 Messages postés mardi 20 décembre 2005Date d'inscription 29 décembre 2005 Dernière intervention - 29 déc. 2005 à 20:29
0
Utile
merci mon amie mais aodez moi g'aiun probleme avec le boutton recherche dans la base do donnée s-a-d-quoi

Infoyassmedianet

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.