Incrémenter des cases à cocher

Bonsoir,

j'ai une matrice à 600 cellules,où je veux placer des cases à cocher, chaque case est liée avec une cellule.

J'aurai besoin de lier les cases avec les cellules, d'une manière séparée (chaque cellule est liée à une seule case), sans avoir besoin de traiter la formule de contrôle un par un, puisque c'est pas pratique pour un nombre de 600 cellules.

Merci pour votre attention.

Bonjour,

Evitez les objets sur la feuille et cases à cocher aussi. Mettez tout cela dans une cellule c'est nettement plus facile à gérer au niveau VBA. Pensez qu'une cellule cela ne bouge pas tandis qu'un objet c'est comme un post-it sur le frigo. On peut la créer par code et la cocher ou décocher via click dans la cellule.

Exemple --> https://forum.excel-pratique.com/excel/case-a-cocher-135359#p832675

Mettez votre fichier en ligne ce sera plus simple de vous donner le bon code

Cordialement

Bonjour,

Voici mon exemple. pour le premier tableau je veux mettre les cases

, afin de paramétrer le tableau au dessous.

Merci pour votre réactivité

Bonjour

Voici un code à utiliser. Pour le placer dans votre fichier

• Click droite sur le nom de la feuille (donc Feuil2 ici)
• Choisissez l'option "Visualiser le code"
• Dans la fenêtre coller le code ci-dessous
• Enregistrez votre fichier avec l'extension XLSM (pour accepter les macros)

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
'Dan
If Target.Count > 1 Then Exit Sub
If Not Intersect(Target, Range("D6:AG25")) Is Nothing Then

    With Target
        .Font.Name = "Wingdings 2"
        .Font.Size = 12
        If .FormulaR1C1 = "R" Then .FormulaR1C1 = "£" Else: .FormulaR1C1 = "R"
    End With

End If
End Sub

Il vous reste à cliquer dans une des cellules entre D6 et AG25.

Le click va créer la case à cocher et cochera la case. Pour décocher, cliquer d'abord dans une autre cellule puis recliquer sur la case à décocher. La case à cocher reste toujours présente une fois que vous l'avez créée (vous pouvez l'effacer en supprimant la donnée R ou £ dans la barre de formule)

Cordialement

Bonjour

Est-ce possible d'avoir un retour sur la proposition ?

Cordialement

Bonjour Dan,

Je vous remercie pour la proposition, ça marche avec une bonne performance.

Cdt,