Etendre code à autre cellule

Bonjour à tous,

quelqu'un pourrait il me dire comment appliquer le code vba du fichier en PJ à toutes les cellules de la colonne F (le code est programmé simplement pour la cellule F4 actuellement)

Merci beaucoup!

JJ

Salut JJ,

Pourquoi ne pas plutôt utiliser une mise en forme conditionnelle ?

Sa répond à tes besoin sans avoir à recourir à la VBA.

Cf fichier ci-joint

Si tu a vraiment besoin de faire sa via VBA reviens vers nous

Bonjour, Salut Juice

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim pos%
    If Intersect(Target, Me.Columns("F")) Is Nothing Then Exit Sub
    With Target
        .Font.Color = vbBlack
        pos = InStrRev(.Value, "-")
        .Characters(pos, 255).Font.Color = vbGreen
    End With
End Sub

Cordialement.

Bonjour MFerrand,

c'est parfait, et c'est exactement ce qu'il me fallait. bravo