VBA-Creer Bouton dans une cellule spécifique [Résolu/Fermé]

- - Dernière réponse :  Aspirhyne - 22 juin 2017 à 09:30
Bonjour,

J'aimerais savoir comment creer un bouton dans une cellule spécifique avec VBA. Ex Range("R2").

merci,


Afficher la suite 

8 réponses

Meilleure réponse
Messages postés
8714
Date d'inscription
dimanche 8 avril 2007
Statut
Contributeur
Dernière intervention
24 novembre 2019
1027
5
Merci
    With range("R2")
    Set Obj = ActiveSheet.OLEObjects.Add(ClassType:="Forms.CommandButton.1", _
    Link:=False, DisplayAsIcon:=False, Left:=.left, Top:=.top, Width:=.ColumnWidth, Height:=.RowHeight)
    End with

Dire « Merci » 5

Quelques mots de remerciements seront grandement appréciés. Ajouter un commentaire

CCM 64075 internautes nous ont dit merci ce mois-ci

Merci beaucoup pour l'aide, cela m'a aidé également:)
Messages postés
8714
Date d'inscription
dimanche 8 avril 2007
Statut
Contributeur
Dernière intervention
24 novembre 2019
1027
1
Merci
Bonjour,
Une petite recherche sur CCM t'aurais pobablement renseigné
A+
Messages postés
8714
Date d'inscription
dimanche 8 avril 2007
Statut
Contributeur
Dernière intervention
24 novembre 2019
1027
1
Merci
C'est comme si tu tapais le code dans le module de la feuille à la dernière ligne.
Messages postés
8714
Date d'inscription
dimanche 8 avril 2007
Statut
Contributeur
Dernière intervention
24 novembre 2019
1027
1
Merci
Merci énormement.......Viva Les forums...
Non, non et non...
Merci énormement.......Viva Les forums de CCM...
Le meilleur... :DDDDD :o)
A+ hi.
L'expérience instruit plus sûrement que le conseil. (André Gide)
Si tu te cognes à un pot et que ça sonne creux, c'est pas forcément le pot qui est vide. ;-)(Confucius)
Messages postés
7
Date d'inscription
lundi 5 juillet 2010
Statut
Membre
Dernière intervention
17 août 2010
0
Merci
VBA excel ? ou?
0
Merci
merci,

Mon problème est presque résolu..Le code que tu m'a donné a belle et bien
fonctionner. Par contre je n'arrive pas à creer mon bouton dans la cellule "R2"
... je suis conscient qu'il faut jouer sur Left-Top-Width-Height...Mais c'est long..

Voici un petit code qui fonctionne bien a ce que je voudrais..mais je n'arrive pas
à l'intégrer avec OLEObject afin de creer mon bouton...

'Creer un bouton qui fit avec une cellule et le nommer
Range("R2").Select
ActiveSheet.Buttons.Add ActiveCell.Left, ActiveCell.Top, ActiveCell.Width, ActiveCell.Height
ActiveSheet.Shapes("Button 1").TextFrame.Characters.Text = "Bouton Test!"

Merci d'avance....
0
Merci
Merci,,
au faite voici le bon code
Range("R2").Select
Set Obj = ActiveSheet.OLEObjects.Add(ClassType:="Forms.CommandButton.1", _
Link:=False, DisplayAsIcon:=False, Left:=ActiveCell.Left, Top:=ActiveCell.Top, Width:=ActiveCell.Width, _
Height:=ActiveCell.Height)
Obj.Name = "BoutonTest"


Mais je voudrais mieux comprendre ton code

'Ajoute la macro en fin de module feuille
With ActiveWorkbook.VBProject.VBComponents(ActiveSheet.Name).CodeModule
.insertlines .CountOfLines + 1, Code
End With

Je ne comprends pas trop à quoi il sert..Pourrais tu me guider..je suis rooky dans
le VBA..

Merci encore une fois,
0
Merci
Merci énormement.......Viva Les forums...C drole je suis nouveau ds le VBA & ds les Forums....Si je savais j'aurai pu faire mieux que B ds mon cours du language C...:(...Seulement si...


Merci gros...;)


On a pas de rémède pour les si....Domage...