Bonjour,
Je suis à la recherche d'une modification de code.
Ce code oblige de mettre les noms en majuscule j'aimerais que les noms se mettent également en gras.
Ceci est mon code
Je vous remercie d'avance
@+
Max
Je suis à la recherche d'une modification de code.
Ce code oblige de mettre les noms en majuscule j'aimerais que les noms se mettent également en gras.
Ceci est mon code
Code:
Private Sub Worksheet_Change(ByVal Target As Range)
Static EnCours As Boolean
If EnCours Then Exit Sub
EnCours = True
If Not Application.Intersect(Target, Range("A3:B3,H5,H7:H9")) Is Nothing Then
Set Target = Target(1)
Target.Value = Application.Proper(Target.Value)
End If
EnCours = False
End Sub
Je vous remercie d'avance
@+
Max