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
Dim butTop, butLeft, Bouton
 
For i = 1 To 50 Step 25
Range("D" & i).Select
butTop = Range("D" & i).Top
butTop = Range("D" & i).Left
butHeight = Range("D" & i).Height
butWidth = Range("D" & i).Width
 
 
 
 
  Bouton = ActiveSheet.OLEObjects.Add(ClassType:="Forms.CommandButton.1", Link:=False _
        , DisplayAsIcon:=False, Left:=butTop, Top:=butTop, Width:=butWidth, Height _
        :=butHeight * 2).Select
 
 Next
il me colle tous les boutons au même endroit ...
le top retourne la position par rapport au haut de l'écran ?
commant lui faire décaller les boutons ... ???