première lettre en majuscule Résolu/Fermé

Question

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

















Configuration: Windows / Firefox 61.0

f894009 · Answer

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

JCB40 · Answer

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

Première lettre en majuscule

2 réponses

Discussions similaires