Comment revenir à ma couleur d'origine?

Bonjour le forum

Si je tape stage par exemple à la place de toto dans des cellules colonnes H et I ça met Stage en rose

Si je me suis trompé et que je veuille revenir à ce qu'il y avait à l'origine toto je voudrais que mes cellules redeviennent en jaune clair = 36

Voici ma macro

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Count > 1 Then End
    If Not Application.Intersect(Target, Range("H5:I39")) Is Nothing Then
        If Not IsEmpty(Target) Then
            Application.EnableEvents = False
            Target = WorksheetFunction.Proper(Target)
            Target.Interior.ColorIndex = 7
           Target.HorizontalAlignment = xlCenterAcrossSelection          'ModeCentrage

            Application.EnableEvents = True
        End If
    Else
    End If
End Sub

Merci à vous pour vos éventuels retours

Cordialement

Salut Al

Salut le Forum,

Si je tape stage par exemple à la place de toto dans des cellules colonnes H et I ça met Stage en rose

Alors sauf erreur de ma part, tu met n'importe quoi dans une cellule et sa va le mettre en Rose (Stage ou pas Stage) :p

Bref! Pour répondre à ta question, avec le code ci-dessous, si tu met "toto" dans une cellule, alors celle-ci passe au jaune :

Édit : Code modifié pour prendre en compte les majuscules / minuscules

If Target.Value = "Toto" or Target.Value = "toto" Then Target.Interior.ColorIndex = 36

Tu le rajoute juste après cette ligne :

Target.HorizontalAlignment = xlCenterAcrossSelection

Restant à dispo

Bonjour Juice

Merci à toi

Ça fonctionne mais ce n'est pas toujours toto

Peut-être lui faire mettre blanc?

Cordialement

Re-

Ton code modifié :

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Count > 1 Then End
    If Not Application.Intersect(Target, Range("H5:I39")) Is Nothing Then
        If Not IsEmpty(Target) Then
            Application.EnableEvents = False
            Target = WorksheetFunction.Proper(Target)
            Target.HorizontalAlignment = xlCenterAcrossSelection          'ModeCentrage
            If Target.Value = "stage" Or Target.Value = "Stage" Then
                Target.Interior.ColorIndex = 7
                ElseIf Target.Value = "toto" Or Target.Value = "Toto" Then Target.Interior.ColorIndex = 36
                Else: Target.Interior.Pattern = xlNone
            End If
            Application.EnableEvents = True
        End If
    End If
End Sub

Si tu rentre le mot "Stage" dans une cellule, alors la cellule devient violette

Si tu rentre le mot "Toto" dans une cellule, alors la cellule devient jaune

Si tu rentre n'importe quelle autre mot que ceux ci-dessus, alors la cellule n'a aucun remplissage

Restant à ta dispo

Re Juice

Ça fonctionne sauf que ça doit toujours revenir jaune (36) et non aucun remplissage.

Après c'est bon

Merci à toi

Bien cordialement

Ça fonctionne mais ce n'est pas toujours toto

Peut-être lui faire mettre blanc?

Tu me dit blanc, je te fais blanc :p

Ci-dessous ton code modifié :

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Count > 1 Then End
    If Not Application.Intersect(Target, Range("H5:I39")) Is Nothing Then
        If Not IsEmpty(Target) Then
            Application.EnableEvents = False
            Target = WorksheetFunction.Proper(Target)
            Target.HorizontalAlignment = xlCenterAcrossSelection          'ModeCentrage
            If Target.Value = "stage" Or Target.Value = "Stage" Then Target.Interior.ColorIndex = 7
            If Target.Value <> "stage" And Target.Value <> "Stage" Then Target.Interior.ColorIndex = 36
        End If
        Application.EnableEvents = True
    End If
End Sub

Si Stage alors violet

Sinon jaune !

Restant à ta dispo !

Re Juice

Super c'est ce que je voulais

Mal expliqué? Comme d'hab!!!

Merci et bonne fin de soirée à toi et au forum

Cordialement