[Résolu] VBA - mise en majuscule/nom propre

[maxx-lamenace]

Bonjour à tous,
Je cherche à forcer la majuscule dans une colonne et le format "nom propre" dans une autre colonne (première lettre en majuscule, le reste en minuscule) sous l'événement worksheet_change.

Voici ce que j'utilise pour l'instant pour la majuscule :

Private Sub Worksheet_Change(ByVal Target As Range)
Set Target = Intersect(Target, Range("A3:A103"))
If Target Is Nothing Then Exit Sub
Application.EnableEvents = False
For Each Target In Target
If Application.IsText(Target) Then Target = UCase(Target)
Next
Application.EnableEvents = True
End Sub

Donc le texte est forcé en majuscule sur A3:A103.
Je voudrais forcer la première lettre en majuscule et le reste en minuscule sur la plage B3:B103.

J'ai essayé de réécrire le code pas mal de fois mais sans succès, je suis pas super calé en VBA...
Merci d'avance pour votre aide !

 

[gosselien]

Bonjour,

If Application.IsText(Target) Then Target = Application.Proper(Target) à la place de UCASE 🙂

P.

 

[maxx-lamenace]

Bonjour,

Merci pour votre réponse.
En fait je cherche à faire les deux à la fois :
- forcer la majuscule sur A3:A103
- forcer la mise en nom propre sur B3:103

Je n'arrive pas à écrire un code qui combine les 2 dans le même événement Worksheet

 

[Modeste geedee]

Bonsour®

Bonjour à tous,
Je cherche à forcer la majuscule dans une colonne et le format "nom propre" dans une autre colonne (première lettre en majuscule, le reste en minuscule) sous l'événement worksheet_change.

Private Sub Worksheet_Change(ByVal Target As Range)
    If Not intersect(Target,Range"A3:B103") Is Nothing Then
              Application.EnableEvents = False
              select case target.column
                     Case 1
                             target=UCASE(Target)
                     Case 2
                             target=Application.Proper(Target)
                     case Else
                             Target=Lcase(Target)
              end select
              Application.EnableEvents = True
    else
             exit sub
    end if
End Sub

 

[maxx-lamenace]

Bonsour®

Private Sub Worksheet_Change(ByVal Target As Range)
    If Not intersect(Target,Range("A3:B103")) Is Nothing Then
              Application.EnableEvents = False
              select case target.column
                     Case 1
                             target=UCASE(Target)
                     Case 2
                             target=Application.Proper(Target)
                     case Else
                             Target=Lcase(Target)
              end select
              Application.EnableEvents = True
    else
             exit sub
    end if
End Sub

Hello, ton code fait exactement ce que je souhaite, merci beaucoup. Seul problème : si les cellules sont effacées, cela provoque une erreur de type 13 (à partir de la ligne "target=UCASE(Target)").

EDIT : résolu en rajoutant un petit If Target.Cells.Count > 1 Then Exit Sub en début de code.

Merci à tous pour votre aide.