Amélioration de code

Bonjour,

J'ai ce petit bout de code qui permet d'ajouter le chiffre "1" en cliquauant simplement dans une cellule dans un range défini.

Quelqu'un saurait-il le modifier de manière a faire en sorte que si je reclique sur une case du même range, ça efface le chiffre "1" ?

Exemple : je clique en D9 > La cellule se rempli avec un 1.

Si je reclique dessus, le 1 s'efface.

Voici le code :

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Intersect(Target, Range("C9:K162")) Is Nothing Then
'on affecte le numéro de ligne sélectioné à la cellule'
Range("av9").Value = Target.Row
End If
Dim dval As Integer
If Not Intersect(Target, Range("D9:I162")) Is Nothing Then
dval = Target
Target = dval + 1
End If
End Sub

D'avance un grand merci :)

Eric

Bonjour,

Un test à adapter à vos besoins :

If Not Intersect(Target, Range("D9:I162")) Is Nothing Then
    If Target <> "" Then
        Target.ClearContents
        Else
        Target = 1
    End If
End If

Cdlt,

Bonjour,

A tester

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
  If Not Intersect(Target, Range("C9:K162")) Is Nothing Then
    'on affecte le numéro de ligne sélectioné à la cellule'
    Range("av9").Value = Target.Row
  End If
    Dim dval As Integer
  If Not Intersect(Target, Range("D9:I162")) Is Nothing Then
    dval = Target
    If dval = 1 Then
      Target = ""
    Else
      Target = 1
    End If
  End If
End Sub

HelloOOOoo !

J'hallucine à chaque fois de la vitesse des réponses sur ce forum !

Merci beaucoup !!

La solution de M12 fonctionne parfaitement !

Merci aussi à Ergotamine ;)

Bonne journée à vous

Eric