Code qui ne fonctionne pas

Bonsoir a tous, forum bonsoir,

Je souhaiterai afficher le mot "validé" dans la colonne (I)

dans le format "Validé"

Donc avec le "V" en majuscule et rouge et la suite "alidé" en Vert minuscule

Merci de votre aide pour rectifier le code ci-dessous que je n'arrive pas a finaliser.

Une bonne soirée a tous.

Cdlt Ray

 
 Dim i, Vali
                   i = Cells(Target.Row, "A").Row
              Vali = "validé"

            With Vali
            Range("I" & i).Value = UCase(Left(Vali, 1)) & LCase(Right(Vali, Len(Vali) - 1))

       Cells(Target.Row, "I").Row.ColorIndex = 4: .Characters(1, 1).Font.ColorIndex = 3

            End With

Bonsoir Ray

Si j'ai bien compris, voici le code à mettre dans la feuille concernée

Const sVal As String = "Validé"

Private Sub Worksheet_Change(ByVal Target As Range)
  Dim LigSel As Long, sTmp
  '
  LigSel = Target.Row
  ' Désactiver les évènements
  Application.EnableEvents = False
  '
  With Range("I" & LigSel)
    .Value = sVal
    .Characters(1, 1).Font.ColorIndex = 3
    .Characters(2, 5).Font.ColorIndex = 14
  End With
  ' Réactiver les évènements
  Application.EnableEvents = True
End Sub

A+

Salut BrunoM45,

Merci pour ta réponse rapide, c'est sympa.

j'ai incorporer ton code au mien et nickel de chez nickel ca fonctionne très bien.

je te remercie pour ton aide, j'ai passer du temps et en plus je ne suis pas arriver a mes fins

donc encore merci a toi, je te souhaite la bonne soirée

Bien cordialement Ray