Cocher des cellules sur Excel

Bonjour,

Je voulais savoir, sur excel, s'il était possible de paramétrer une plage afin de "marquer" (ou cocher) une cellule rien qu'en la selectionnant ??...

Quelqu'un pourrait-il m'aider?

Merci d'avance pour vos réponses.

Romain.

Bonjour,

peut être une approche avec ceci, à placer dans le module de la feuille concernée, contrôle la plage A1 D10 :

Option Explicit
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Count > 1 Or Application.Intersect(Target, Range("A1:D10")) Is Nothing Then Exit Sub
With Target.Interior
    .ColorIndex = IIf(.ColorIndex = 3, xlNone, 3)
End With
End Sub

bon après midi

@+

Bonjour,

Une proposition avec un double clic, pour éviter toute confusion.

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Dim temp, p
    temp = Array("R", "")
    If Not Application.Intersect(Target, Range("A1:A20")) 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

Super ! Merci bcp !!

Bon après midi à vous !!

@+