Couleur ne change pas

Question

XL 2007 Bonjour a tous et toutes, forum bonjour,

Voila ce petit code me permets de changer la premiere lettre en majuscule gras et rouge

dans la plage G2:H27. MAIS vous l'aurez deviner souci.

(1) J'entre un mot en minuscule en G3 Ex: raymond

(2) Je valide par enter ET ca ne change pas immédiatement

(3) Si je repasse avec le curseur sur la cellule

(4) LA ca change bien ????

(5) Pourquoi cela ne change t'il pas lors de la premiere validation

Si quelqu'un svp veut bien me modifier le code, ca serai super gentil, car je ne trouve pas la cause

'*** CODE PREMIERE LETTRE MAJUSCULE GRAS et ROUGE ZONE G2:H27
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
With Target
If Not Intersect(Target, [G2:H27]) Is Nothing Then
If .Count <> 1 Then Exit Sub
Application.EnableEvents = False
.Font.ColorIndex = 1
.Font.Bold = False
With Target.Characters(1, 1)
.Font.ColorIndex = 3
.Font.Bold = True
.Text = UCase(.Text)
End With
Application.EnableEvents = True
End If
If Not Intersect(Target, [G2:H27]) Is Nothing And .Count = 1 Then
If Target = "" Then
.Font.ColorIndex = 1
.Font.Bold = False
End If
End If
End With
End Sub

Merci a vous et de votre temps, une bonne journée

Raymond

Nad-Dan · Answer

Modifie Private Sub Worksheet_SelectionChange(ByVal Target As Range) par Private Sub Worksheet_Change(ByVal Target As Range) Amicalement Nad...

wilfried_42 · Answer

Réponse à la question 5, tout est dans la 1ere ligne Private Sub Worksheet_ Selection Change(ByVal Target As Range) tu lances ta macro à la sélection et non pas à la saisie Private Sub Worksheet_Change(ByVal Target As Range) enleve Selection et ça fonctionnera oups : bonjour Nad-Dan, je n'avais pas raffraichi...