1er Click gauche ="X", 2ème click= Rien

Bonjour,

J'aimerais que dans un tableau et sans avoir recours à une liste de choix les cellules restent vides ou "X" si je click gauche. Si 2ème click gauche ma cellule redevient vide!!! Merci beaucoup...

Bonjour,

Les click nécessitent un code mais on peut faire plus simple.

Utilise l'option excel en plaçant une liste de validation dans ta cellule par Données / validation et sous l'onglet "option", choisis "Liste" puis dans la rubrique "source" mets "X"

Amicalement

Re

Comme tu demandes sans liste, voici un code (à placer dans la feuille concernée) :

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
temp = Array("X", "")
  If Not Application.Intersect(Target, Range("B2:G10")) Is Nothing Then
  If Target.Count > 1 Then Exit Sub
    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)
  End With
  End If
End Sub

Plage B2:G10 à modifier bien sûr.

Amicalement

Nad

Re,

Oups déso... en lisant le post de nad et relisant la demande. C'est sans liste...

Avec ce code à placer dans la feuille concernée

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
'Macro Dan
On Error Resume Next
If Not Application.Intersect(Target, Range("B2:D20")) Is Nothing Then 'modifie ton tableau
If Target.count >1 then Exit Sub
If Target.Value = "" Then
Target.Value = "X"
Else
Target.Value = ""
End If
End If
End Sub

Pour placer le code, clique droite sur l'onglet de la feuille et choisir "visualiser le code". Ensuite coller le code dans la fenêtre.

Amicalement

Bonjour à tous,

Peut-être avec un double clic

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    If Not Application.Intersect(Target, Range("a2:e30")) Is Nothing Then
        With Target
            If .Value = "" Then
                .Value = "X"
            Else
                .Value = ""
            End If
             .Offset(1, 0).Activate
        End With
    End If
End Sub

Plage à adapter

Amicalement

Claude

Re,

Post cloturé ?

Apparemment cela devait être bon mais le saura-t-on jamais.

Comme on n'est jamais mieux servi que par soi-même.. merci à Nad, Claude et Dan. Cela fonctionne très bien ! 8)

Sebriga,

y-a pas de quoi !

Claude