Comment insérer plusieurs cases à cocher dans une colonne

Bonjour à tous !

J'ai un petit problème sous Excel (cf fichier joint), mon fichier est composé d'une colonne A avec des personnes, et je souhaiterai insérer dans les colonnes B (bière) et C (cigarette) des cases à cocher liées aux cellules. Ainsi je pourrais cocher pour chaque personne si elle bois, fume ou les 2 !

Je sais insérer des cases à cocher et les lier aux cellules, mais existe-t-il un moyen pour les insérer et les lier en une seule opération.

Merci !

Bonsour Kan3pz

Avec des boutons et pas de case à cochet, tu vois

cordialement

Bonjour,

Essaies cette macro (je n'en suis pas l'auteur)

Option Explicit

'd 'après '@+Thierry sur www.Excel-downloads.com
'installe des checkbox sur une feuille
Sub generer_cases_a_cocher()
Dim Chekbox As OLEObject
Dim lig As Integer, col As Byte, lig_fin As Integer
Dim Target As Range

'parametres
lig = 2 'ligne de départ
lig_fin = 50 'ligne fin
col = 2 'colonne d'implantation

Do Until lig = lig_fin + 1
    Set Target = ActiveSheet.Cells(lig, col)
        Set Chekbox = ActiveSheet.OLEObjects. _
                    Add(ClassType:="Forms.CheckBox.1", _
                    Left:=Target.Left, Top:=Target.Top, Width:=Target.Width, Height:=Target.Height)
    lig = lig + 1
Loop
End Sub

elle t'implante des cases à cocher dans la colonne B; Pour C tu changes la valeur de "col" à 3