Modification code à mettre en gras

[apdf1]

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

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

 

[Hellboy]

Re : Modification code à mettre en gras

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)
With Target
.Value = Application.Proper(.Value)
.Font.Bold = True
End With
End If
EnCours = False
End Sub

essaie ceci ....

 

[apdf1]

Re : Modification code à mettre en gras

Bonjour Helboy

Je te remercie et te souhaite une bonne journée

@+

Max