Changer couleur de cellule par un clic

Le voici

(Pour info je l'ai bien enregistré avec un format prenant en charge les macros)

Bonjour,

Je relance ce post, je dois faire un changement de couleur sur la colonne G entre du vert et du rouge, tout en gardant la possibilité de remplir le tableau en texte.

• je voudrai figer le changement de couleur à la colonne G
• garder la possibilité de remplir mon tableau.

Actuellement avec la formule suivante, ce sont toutes les cases qui changent de couleur au double clic, et je ne peux compléter les autres case uniquement en désactivent "les macros.

la formulation:

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

Dim couleurs()

couleurs = Array(RGB(0, 226, 113), RGB(218, 66, 24))

On Error GoTo color

Target.Interior.color = couleurs(Application.WorksheetFunction.Match(Target.Interior.color, couleurs, 0) Mod 3)

Cancel = True

Exit Sub

color:

Target.Interior.color = couleurs(0)

Cancel = True

End Sub

Pourriez-vous s'il vous plait m'aider ?

d'avance, merci