Insertion automatique de cases à cocher

[norskfred]

Bonsoir,
J'ai besoin de vos lumières... N'étant encore pas trop aguerri avec Excel, je souhaiterai un éclairage.
Je suis en train de créer un fichier ou j'aimerais insérer des cases à cocher de manière automatique.
Quand j'insère un nom dans un cellule, je souhaiterais qu'apparaissent les cases à cocher automatiquement et évidement déjà paramétrées... J'ai joint deux fichiers pour illustrer ma demande 😕
D'avance merci

 

[job75]

Re : Insertion automatique de cases à cocher

Bonsoir,

Ah ben oui, pour illustrer ça illustre 🙄

A+

 

[JCGL]

Re : Insertion automatique de cases à cocher

Bonjour à tous,
Salut Gérard,

Dans un module :

Sub Création_CaseàCocher()
    ActiveSheet.DrawingObjects.Delete
    'Application.ScreenUpdating = False
    Col = 1
    For Lig = 2 To 13
        PosX = Cells(Lig, Col).Left
        PosY = Cells(Lig, Col).Top
        Largeur = Cells(Lig, Col).Width
        Hauteur = Cells(Lig, Col).Height
        With ActiveSheet.CheckBoxes.Add(PosX, PosY, Largeur, Hauteur)
            .LinkedCell = Cells(Lig, Col).Address
            .Characters.Text = "Nom " & Format(Lig - 1, "00")
        End With
    Next Lig
    'Application.ScreenUpdating = True
    Range("A1").Select
End Sub

A+ à tous

 

[phlaurent55]

Re : Insertion automatique de cases à cocher

Bonjour fred,

Salut Jean-Claude, Job

une solution avec des fausses cases à cocher

à+
Philippe

 

[norskfred]

Re : Insertion automatique de cases à cocher

Super! Merci à vous!
Fred🙄