Bonjour le forum,
cette discussion fait suite au post "Ajout de OLEObjects".

J'arrive maintenant à mettre une checkbox à chaque fois que j'insère une ligne.
Mon problème est maintenant le suivant: je souhaite régler les dimensions de la checkbox. Le code est le suivant:
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
Sub test()
    With Worksheets(1)
 
    For k = 1 To 3
        .Range("B" & k).Select
        Set Obj = .OLEObjects.Add(ClassType:="Forms.CheckBox.1", Link:=False, DisplayAsIcon:=False, Width:=10)
    Next k
End With
on peut aussi mettre le code suivant:
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
Sub test()
    With Worksheets(1)
 
    For k = 1 To 3
        .Range("B" & k ).Select
        Set Obj = .OLEObjects.Add(ClassType:="Forms.CheckBox.1", Link:=False, DisplayAsIcon:=False)
        With Obj
            .width = 10
            .Object.Caption = ""
        End With
    Next k
End With
le code fonctionne bien pour l'insertion de la checkbox, mais dès que je mets la ligne concernant la largeur de la box, la macro me place toutes les checkbox dans la cellule A1 , bien que je sélectionne la colonne B??

Avez vous une idée please??

Mercipar avance,
Johann

PS: au passage, à quoi sert le Link lors de l'ajout de la checkbox?