Comment mettre en majuscule toute une colonne ?

[Paritec]

Bonjour,
J'aimerais que lorsque je saisi la colonne A tout soit en majuscule et qaund je saisi la colonne B je n'ai que la première lettre en Majuscule
merci d'avance de vos réponses
a+
Papou

 

[BOISGONTIER]

Re : Comment mettre en majuscule toute une colonne ?

Bonjour,

Private Sub Worksheet_Change(ByVal Target As Range)
  Application.EnableEvents = False
  If Target.Column = 1 And Target.Count = 1 Then
     Target = Ucase(Target)
  End If
  If Target.Column = 2 And Target.Count = 1 Then
     Target = Application.Proper(Target)
  End If
  Application.EnableEvents = True
End Sub

http://boisgontierjacques.free.fr/pages_site/evenements.htm#WorkSheetChange

JB
http://boisgontierjacques.free.fr


[/CODE]

 

[Paritec]

Re : Comment mettre en majuscule toute une colonne ?

Bonjour Jacques, le forum,
Je te remercie beaucoup, c'est parfait comme dab avec tes codes
amicalement
Papou