VBA-Creer Bouton dans une cellule spécifique
Résolu
weNgorP
-
Aspirhyne -
Aspirhyne -
Bonjour,
J'aimerais savoir comment creer un bouton dans une cellule spécifique avec VBA. Ex Range("R2").
merci,
J'aimerais savoir comment creer un bouton dans une cellule spécifique avec VBA. Ex Range("R2").
merci,
A voir également:
- Bouton dynamique excel
- Tableau croisé dynamique excel exemple - Guide
- Liste déroulante excel - Guide
- Word et excel gratuit - Guide
- Déplacer colonne excel - Guide
- Si ou excel - Guide
8 réponses
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
Aspirhyne
Merci beaucoup pour l'aide, cela m'a aidé également:)
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)
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)
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question
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....
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....
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,
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,