Remplacer valeur automatique + colorer cel en cliqt sur cel

Bonjour,

J'aurais besoin de votre aide concernant différent points sur un classeur excel, je suis débutant.

- Je voudrais premièrement que dans la colonne D, lorsque j'écris "C" ça le remplace directement par "Call" et "D" pour "Dej"

- Je voudrais que pour la colonne E lorsque j'ai fini d’écrire un texte et que je clic sur la cellule I2 ça colore la cellule en vert et lorsque je clic sur I4 en rouge.

Merci beaucoup

Bonjour Titus,

Regarde si ceci te convient.

Pour le remplacement, je t'ai fait une macro qui remplace tous les c par Call et d par Dej. C'est une des solution les plus simples.

Pour les couleurs, pareil, tu as deux macros (les bouton sont superposés avec les cellules dont tu parlais dans ta demande et de la même couleur.

Cordialement

Martin

C'est parfait merci beaucoup pour ta réponse, serais--tu d'accord pour m'expliquer cette ligne ?

SearchOrder:=xlByColumns, MatchCase:=True, SearchFormat:=False, _

ReplaceFormat:=False

Merci encore !

Bonjour,

Une autre proposition.

Cdlt.

Option Explicit

Private Sub cmdAchat_Click()
' green / vert
With ActiveCell
        If .Column = 5 Then .Interior.Color = RGB(0, 176, 80)
    End With
End Sub

Private Sub cmdRAZ_Click()
    Me.ListObjects(1).ListColumns(5).DataBodyRange.Interior.Color = xlNone
End Sub

Private Sub cmdVente_Click()
' red / rouge
    With ActiveCell
        If .Column = 5 Then .Interior.Color = RGB(255, 0, 0)
    End With
End Sub

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Count > 1 Then Exit Sub
    If Not Intersect(Target, Me.ListObjects(1).ListColumns(4).DataBodyRange) Is Nothing Then
        Application.EnableEvents = False
        Select Case Target.Value
            Case "C": Target.Value = "Call"
            Case "D": Target.Value = "Dej"
            Case Else:
        End Select
        Application.EnableEvents = True
    End If
End Sub