Cellule agissant comme case à cocher

Salut le forum,

est-il possible de faire agir une cellule comme une case à cocher?

C'est-à-dire que, si je clique sur la cellule, elle affiche "oui" sinon elle affiche "non".

Merci pour votre aide.

Bonjour,

Une macro de Boisgontier :

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
  temp = Array("OUI", "NON")
  p = Application.Match(Target, temp, 0)
  If Not IsError(p) Then
    If p = UBound(temp) + 1 Then p = 0
  Else
    p = 0
  End If
  Target = temp(p)
  Cancel = True
End Sub

Amicalement

Nad

Merci Nad,

ça fonctionne très bien sauf que ça fonctionne pour la feuille en entier. Dans mon cas, ce n'est que pour quelques cellules que je dois l'appliquer.

Nouveau code :

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
  temp = Array("OUI", "NON")
  If Not Application.Intersect(Target, Range("B2:B10")) Is Nothing Then
    With Target
  p = Application.Match(Target, temp, 0)
  If Not IsError(p) Then
    If p = UBound(temp) + 1 Then p = 0
  Else
    p = 0
  End If
  Target = temp(p)
  Cancel = True
  End With
  End If
End Sub

Modifie la plage B2:B10 en fonction de ton besoin

Nad

Ça fonctionne super bien.

Dernière question si je puis me permettre d'exagérer un peu. Si je veux ajouter un 2e range, comment je fais? J'ai essayé avec un AND et ensuite avec une virgule après le premier Range et ça ne fonctionne pas.

Re,

Je pense que comme ça ça doit fonctionner :

If Not Application.Intersect(Target, Range("B2:B10", "D2:D10")) Is Nothing Then

Amicalement

Nad

Tout à fait!!!

J'avais une parenthèse de trop.

Merci Nad.

Bonsoir,

je pense qu'avec ceci, cela devrait le faire :

 If Not Application.Intersect(Target, Range("B2:B10, D2:D10")) Is Nothing Then

La différence avec le code de Nad (ou Dan), est que avec mon code, seules les cellules de B2 à B10 ET D2 à D10 sont significatives

Avec le code de Dan (ou Nad), en cliquant en C8, la condition est remplie, la zone étant comprise entre B2 et D10