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

Messages postés
23
Date d'inscription
mercredi 25 février 2004
Dernière intervention
5 septembre 2006
- 29 déc. 2005 à 11:23 - Dernière réponse :
Messages postés
2
Date d'inscription
mardi 20 décembre 2005
Dernière intervention
29 décembre 2005
- 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

Meilleure réponse
Messages postés
3181
Date d'inscription
dimanche 15 février 2004
Dernière intervention
9 avril 2017
29 déc. 2005 à 12:07
3
Merci
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.

Merci Charles Racaud 3

Avec quelques mots c'est encore mieux Ajouter un commentaire

Codes Sources a aidé 92 internautes ce mois-ci

Meilleure réponse
Messages postés
3181
Date d'inscription
dimanche 15 février 2004
Dernière intervention
9 avril 2017
29 déc. 2005 à 13:01
3
Merci
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.

Merci Charles Racaud 3

Avec quelques mots c'est encore mieux Ajouter un commentaire

Codes Sources a aidé 92 internautes ce mois-ci

Messages postés
23
Date d'inscription
mercredi 25 février 2004
Dernière intervention
5 septembre 2006
29 déc. 2005 à 12:22
0
Merci
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 ??
Messages postés
23
Date d'inscription
mercredi 25 février 2004
Dernière intervention
5 septembre 2006
29 déc. 2005 à 14:53
0
Merci
Ok merci beaucoup, je vais surement pouvoir finir ça avant 2006

Bye !!
Messages postés
2
Date d'inscription
mardi 20 décembre 2005
Dernière intervention
29 décembre 2005
29 déc. 2005 à 20:26
0
Merci
Infoyassmedianet
Messages postés
2
Date d'inscription
mardi 20 décembre 2005
Dernière intervention
29 décembre 2005
29 déc. 2005 à 20:29
0
Merci
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.