Première lettre en majuscule

Résolu

JCB40 Messages postés 3008 Date d'inscription Statut Membre Dernière intervention -
JCB40 Messages postés 3008 Date d'inscription Statut Membre Dernière intervention - 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:

Excel première lettre en majuscule
Telecharger macro convertir chiffre en lettre excel - Télécharger - Tableur
Liste déroulante excel - Guide
Clavier iphone chiffre et lettre - Guide
Mise en forme conditionnelle excel - Guide
É majuscule - Guide

2 réponses

Réponse 1 / 2

f894009 Messages postés 17277 Date d'inscription Statut Membre Dernière intervention 1 713

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 3008 Date d'inscription Statut Membre Dernière intervention 463

Bonjour f894009

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

Discussions similaires

Formule Excel pour afficher les mois (chiffres) en lettre

Convertir un mois en chiffre en lettre RESOLU

Votre réponse

Discussions similaires