Case a cocher 3 clic

Bonjour,

J'ai créé une checkliste sur excel avec des cases à cocher a chaque étape.

J'aimerais qu'il y ai 3 étapes à ce "cochage":

1/ Check = fait

2/ Croix = pas fait

3/ Retour à une case vide

Est ce possible et comment puis je faire? En VBA?

Merci par avance,

Bonjour,

tu pourrais utiliser des Case d'option

par exemple:

Bonjour,

Merci pour votre réponse. C'est effectivement une possibilité

Si je ne trouve pas comment cocher mes cases avec rien, X ou V, je ferais surement ça. Merci

Bonjour et

Salut Isabelle

Je ne sais pas si j'ai compris ? ... une proposition liée au double-clic en cellule C3 (en activant les macros !)

C'est aussi possible avec une simple Mise en Forme Conditionnelle et un jeu de deux icônes

Les deux solutions sont en pièce jointe

Bonjour,

S'il s'agit d'un contrôle Activex, il possède la propriété TripleState :

Private Sub Workbook_Open()
    Worksheets("Feuil1").CheckBox1.TripleState = True
End Sub

Bonjour U Milité,

Merci ^^ je suis contente de ce forum, vous êtes hyper réactif c'est super!

J'adore votre solution, c'est top! Mieux que les cases à cocher je pense Merci pour cette solution

Bonjour pijaku,

Merci pour votre message. La solution de U Milité me plait bien mais je vais tester quand même

U Milité,

Je me permet de revenir vers vous pour l'adaptation de votre macro. Comment puis je demander a ce que cette macro s'applique sur toutes les cellules de la colonne B?

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)

If Target.Address <> "$B$8" Then Exit Sub

If Target.Count > 1 Then Exit Sub

Cancel = True

If Target = "" Then Target = "P": Exit Sub

If Target = "P" Then Target = "O": Exit Sub

If Target = "O" Then Target = "": Exit Sub

End Sub

Edit:

J'ai trouvé mais je le note si ça peut aider:

If Target.Column<> 2 Then Exit Sub

En revanche, si jamais vous savez comment puis je faire pour que cela n'affecte que les cellules B8 à B11 et B13 à B18 (par exemple)

Bonsoir tout le monde,

comment puis je faire pour que cela n'affecte que les cellules B8 à B11 et B13 à B18

Peut-être ainsi....

If Not Application.Intersect(Target, Union(Range("B8:B11"), Range("B13:B18"))) Is Nothing Then

Cordialement,