2 Fois Worksheet_Change

[guitou77]

Bonjour le forum,

J'ai un petit souci pour faire une colonne toute Majuscules et une colonne
avec première lettre en Majuscule sur une même feuille (en VBA).

Merci de vous penchez sur ce petit problème, je n'ai pas trouvé de correspondance sur ce Forum.

@+

 

[jp14]

Re : 2 Fois Worksheet_Change

Bonjour

Code a tester

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim maj As String
If Target.Value = "" Then Exit Sub
If Not Intersect(Range("B:B"), Target) Is Nothing Then
maj = Left(Target, 1)
Target = UCase(maj) & Right(Target, Len(Target) - 1)
End If
If Not Application.Intersect(Target, Range("A:A")) Is Nothing Then
Target = UCase(Target)
End If
End Sub

JP

 

[BOISGONTIER]

Re : 2 Fois Worksheet_Change

Bonjour,

Private Sub Worksheet_Change(ByVal Target As Range)
 If Not Application.Intersect(Target, Range("A:A")) Is Nothing Then
  Application.EnableEvents = False
  Target = UCase(Target)
  Application.EnableEvents = True
End If
If Not Intersect(Range("B:B"), Target) Is Nothing Then
  Application.EnableEvents = False
  Target = Application.Proper(Target)
  Application.EnableEvents = True
End If
End Sub

JB

 

[pierrejean]

Re : 2 Fois Worksheet_Change

bonjour guitou

vois si cela te convient

If Target.Column = 2 Then
  Target.Value = UCase(Left(Target.Value, 1)) & Right(Target.Value, Len(Target.Value) - 1)
End If

 

[guitou77]

Re : 2 Fois Worksheet_Change

Bonjour JP14 et rebonjour le Forum,

JP merci pour ta formule, mais je dois toujours resélectionner la cellule pour que la Majuscule apparaisse et c'est ce que veut éviter, je voudrais que celà
s'effectue lors de la validation.

Merci et @+.

 

[guitou77]

Re : 2 Fois Worksheet_Change

Bonjour BOISGONTIER et pierrejean,

Merci pour vos formules qui fonctionnent très bien.

Encore merci @+.