VBA-Creer Bouton dans une cellule spécifiqueRésolu/Fermé

Question

Bonjour, 

J'aimerais savoir comment creer un bouton dans une cellule spécifique avec VBA. Ex Range("R2"). 

merci,


Configuration: Windows XP / Internet Explorer 6.0

lermite222 · Accepted Answer

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

coolilted · Answer

VBA excel ? ou?

lermite222 · Answer

Bonjour,
Une petite recherche sur CCM t'aurais pobablement renseigné
A+

weNgorP · Answer

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....

weNgorP · Answer

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,

lermite222 · Answer

C'est comme si tu tapais le code dans le module de la feuille à la dernière ligne.

weNgorP · Answer

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...

lermite222 · Answer

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)

VBA-Creer Bouton dans une cellule spécifique

8 réponses

Discussions similaires

Newsletters