Première lettre en majuscule [Résolu/Fermé]

Signaler
Messages postés
2279
Date d'inscription
lundi 2 juillet 2018
Statut
Membre
Dernière intervention
23 avril 2021
-
Messages postés
2279
Date d'inscription
lundi 2 juillet 2018
Statut
Membre
Dernière intervention
23 avril 2021
-
Bonjour,
Je n'arrive pas a avoir ce que je désire avec ce code
Dans la plage C2:I26 dans chaque cellule j'ai 1 nom et 1 prénom ,je voudrais que la première lettre du nom et du prénom se mettent en majuscule.
Je sais tout mettre en majuscule ou uniquement le nom

Private Sub Worksheet_Change(ByVal Target As Range)
Dim Rg As Range, C As Range
Set Rg = Intersect(Range("C2:I26"), Target)
If Not Rg Is Nothing Then
    Application.EnableEvents = False
    For Each C In Rg
        If C <> "" Then
            C.Value = UCase(Left(C, 1)) & LCase(Right(C, Len(C) - 1))
        End If
    Next
    Application.EnableEvents = True
End If
End Sub

Merci pour votre aide
Cordialement

















2 réponses

Messages postés
15739
Date d'inscription
dimanche 25 novembre 2007
Statut
Membre
Dernière intervention
21 avril 2021
1 483
Bonjour,

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Count > 1 Then Exit Sub
    If Not Intersect(Range("C2:I26"), Target) Is Nothing And Target <> "" Then
        Application.EnableEvents = False
        Target = Application.Proper(Target)
        Application.EnableEvents = True
    End If
End Sub
Messages postés
2279
Date d'inscription
lundi 2 juillet 2018
Statut
Membre
Dernière intervention
23 avril 2021
394
Bonjour f894009

Merci pour ta réponse exactement ce que je cherchais
Cordialement