création dynamique de commandbutton

Bonjour, voici mon problème

je souhaite qu'à l'ouverture de ma feuille "SELRESULT"
il y ait une création dynamique de boutons

En effet selon le nombre de lignes remplies de la feuille "SELRESULT"
(ce résultat est dans la cellule L2 avec n=L2.value), je voudrais qu'apparaisse
n boutons de commande en face des n lignes

g essayé ça mais pas de résultat :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19

Private Sub WorkSheet_initialize() Dim Obj As OLEObject   Dim i As Long Dim n As Long n = Sheets("BD").Range("X2").Value   For i = 1 To n Set Obj(i) = ActiveSheet.OLEObjects.Add("Forms.CommandButton.1")   With Obj(i) .name = "monBouton" .left = 762 .top = 184 + (i * 38) .width = 60 .height = 26.25 .Object.Caption = "VOIR" End With End Sub

---

Merci

Salut,
De mémoire j'avais fait comme ça (Adapté avec tes données), désolé pas l'occasion de tester pour l'instant...

Code:

---

1 2 3 4 5 6 7 8 9

Dim i As Long Dim n As Long n = Sheets("BD").Range("X2").Value   For i = 1 To n   Worksheets("SELRESULT").Shapes.AddOLEObject Left:=762, Top:=184 + (i * 38), Width:=60, Height:=26.25, ClassType:="Forms.CommandButton.1"   Next i

---

A+

P.S. Dans le code que tu as mis sur le forum tu n'avais pas de next i

Bonjour,

regardes, il y a une discussion pas loin qui peut t'intéresser ici

;)