VBA-Creer Bouton dans une cellule spécifique

    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

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

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

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 excel ? ou?

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

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,

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