Discussion :

[hanou88]

bonjour
Je voudrais pouvoir insérer dans un tableau Excel à l'intérieur d'une cellule une case que l'on peut ensuite cocher ou décocher. Pouvez-vous m'aider SVP ? Merci d'avance ps : je suis débutante

[jijie]

Bonsoir,

si tu utilise l'enregistreur tu pourrais trouver ça :

Code :

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

1
2
3
4
Range("A19").Select
    ActiveSheet.OLEObjects.Add(ClassType:="Forms.CheckBox.1", Link:=False, _
        DisplayAsIcon:=False, Left:=5.25, Top:=213.75, Width:=6.75, Height:= _
        8.25).Select

et si tu imagine le placer ds une cellule active on pourrait imaginer ça :

Code :

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

1
2
3
4
5
6
7
8
9
Dim t, l
 
          t = ActiveCell.Top
          l = ActiveCell.Left
          ActiveSheet.OLEObjects.Add(ClassType:="Forms.CheckBox.1", Link:=False, _
               DisplayAsIcon:=False, Left:=l + 2, Top:=t + 2, Width:=10, Height:=10 _
               ).Select
 
          Selection.Name = "fraise" 'Nomme le checkbox