Discussion :

[neninio31]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[Fvandermeulen]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[aalex_38]

Bonjour,

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