Comment changer la couleur d'une cellule

bonjour, j'aimerai savoir comment faire pour changer la couleur d'une cellule en cliquant dessus.

ex; clic (ou double clic) sur la cellule A1 devient bleu (ou rouge ou autre en fonction du choix initial) je clic à nouveau elle redevient blanche comme au départ.

merci de m'aider, je sais que cela existe, mais je sais pas faire etr cela me servirait bien dans mon job, mùerci à tous ceux qui savent et qui me permettront d'apprendre merci

Bonsoir

Réponse sur:

Cordialement

Amadéus

merci pour l'info, pour moi ce que je recherche c'est avec le clic gauche, clic deux fois et hop ca change de couleur, reclic et ca redevient blanc, merci pour l'info je vais essayer d'exploiter cette piste, mais si quelqu'un a la formule que je recherche merci

Bonjour

Le Double clic gauche est déjà réservée pour la saisie dans les cellules!

amadéus

oui effectivement mais cela fonctionne malgré tout avec un clic gauche

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

Cancel = True 'evite le mode édition lié au double-clic

If Target.Interior.ColorIndex = 3 Then 'condition : si la couleur de la cellule est rouge

Target.Interior.ColorIndex = xlNone 'supprime la couleur

Else 'sinon

Target.Interior.ColorIndex = 3 'colorie la cellule de rouge

End If 'fin de la condition

End Sub

maintenant je voudrait savoir comment faire pourque je puisse affecter cette formule a une colonne, puis a une autre et ainsio de suite indépendamement

merci

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    Dim Colonne As Integer
    Cancel = True 'evite le mode édition lié au double-clic

    Colonne = Target.Column

    Select Case Colonne

        Case Is = 1:
        'colonne 1 couleur rouge
            If Target.Interior.ColorIndex = 3 Then
                Target.Interior.ColorIndex = xlNone
            Else
                Target.Interior.ColorIndex = 3
            End If
        Case Is = 2:
        'colonne 2 couleur blanc
            If Target.Interior.ColorIndex = 2 Then
                Target.Interior.ColorIndex = xlNone
            Else
                Target.Interior.ColorIndex = 2
            End If
        Case Is = 3:
        'colonne 3 couleur vert
            If Target.Interior.ColorIndex = 4 Then
                Target.Interior.ColorIndex = xlNone
            Else
                Target.Interior.ColorIndex = 4
            End If
        Case Is = 4:
        'colonne 4 couleur bleu
            If Target.Interior.ColorIndex = 5 Then
                Target.Interior.ColorIndex = xlNone
            Else
                Target.Interior.ColorIndex = 5
            End If
        Case Is = 5:
        'colonne 5 couleur jaune
            If Target.Interior.ColorIndex = 6 Then
                Target.Interior.ColorIndex = xlNone
            Else
                Target.Interior.ColorIndex = 6
            End If
        'etc....
    End Select
End Sub

merci, c''est tout à fait ce que je voulais, vraiment mille merci