Première lettre en majuscule

Résolu/Fermé

JCB40 Messages postés 2878 Date d'inscription lundi 2 juillet 2018 Statut Membre Dernière intervention 14 avril 2024 - Modifié le 16 juil. 2018 à 23:54
JCB40 Messages postés 2878 Date d'inscription lundi 2 juillet 2018 Statut Membre Dernière intervention 14 avril 2024 - 17 juil. 2018 à 09:59

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

A voir également:

Vba majuscule première lettre
É majuscule - Guide
Mettre un texte en majuscule - Guide
Adobe premiere pro - Télécharger - Montage & Édition
Application pour écrire les chiffre en lettre - Télécharger - Outils professionnels
Telecharger macro convertir chiffre en lettre excel - Télécharger - Tableur

2 réponses

Réponse 1 / 2

f894009 Messages postés 17185 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 15 avril 2024 1 701
16 juil. 2018 à 18:16

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

Réponse 2 / 2

JCB40 Messages postés 2878 Date d'inscription lundi 2 juillet 2018 Statut Membre Dernière intervention 14 avril 2024 461
17 juil. 2018 à 09:59

Bonjour f894009

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

Discussions similaires

Touches majuscule et minuscule inversées sur mon clavier

[Excel] Majuscule sur la première lettre

"L'indice n'appartient à la sélection" + VBA

Formule Excel pour afficher les mois (chiffres) en lettre

VBA : Range avec références variables..

Discussions similaires

Newsletters