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