Microsoft 365 Code Excel pour mettre la première lettre en majuscule

Créer une discussion
Répondre

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

S'inscrire
Y

Yonissart

XLDnaute Nouveau
Bonsoir
Je cherche un code Excel pour mettre la première lettre de chaque mot en majuscule. j'en avais trouvé un super, mais il y a des mots qui doivent rester entièrement en majuscule, et ça ne suit pas, ça met meme tout en minuscule
Existe t-il un code Excel pour réussir ceci ?
Merci beaucoup
Cordialement
 
Solution
riton00
Bonsoir,

A tester ce code que j'ai sous le coude, provient d'un ancien fichier "le mettre dans la feuille même"

VB: 
Private Sub Worksheet_Change(ByVal Target As Range)
    Application.EnableEvents = False
    If Not Intersect(Target, [A1:Z100]) Is Nothing Then
        Dim cell As Range
        For Each cell In Target
            cell.Value = CapitaliserPremiereLettre(cell.Value)
        Next cell
    End If
    Application.EnableEvents = True
End Sub

Function CapitaliserPremiereLettre(ByVal texte As String) As String
    Dim mots() As String
    Dim mot As Variant
    Dim i As Integer

    mots = Split(texte, " ")

    For i = LBound(mots) To UBound(mots)
        If mots(i) <> "" Then
            ' Vérifier si le premier caractère est...
Trier par date Trier par votes
Bonsoir @job75 🙂,

1733165041417.png
 
Vote positif 0 Vote négatif
Bonjour
Merci pour vos réponses
La raison qui fait que je souhaite la première lettre de chaque mot en majuscule est qu'il s'agit soit de prénom et/ou de noms, soit de noms de rue...
Pour un autre fichier, je testerai un autre code, mis ici, je ne sais encore lequel, car ce fichier m'arrivera à partir de janvier
Merci
Cordialement
 
Vote positif 0 Vote négatif
Bonjour a tous,


Pour le plaisir, j'ai un peu joué avec l'I. A. ...

VB: 
=LAMBDA(text;
    TEXTJOIN(" "; TRUE;
        MAP(TEXTSPLIT(text; " ");
            LAMBDA(word;
                UPPER(LEFT(word; 1)) & RIGHT(word; LEN(word) - 1)
            )
        )
    )
)

il a juste oublié le paramettre "TRUE"

les phrasesresultats
Le peTiTs cHATS de 4ansLe PeTiTs CHATS De 4ans
Le peTiTs cHATS de 4ansLe PeTiTs CHATS De 4ans
ce' est etoCe' Est Eto
c'eC'e
c'est étonNANT mAIS ceLA 4Ans.C'est ÉtonNANT MAIS CeLA 4Ans.
je ne sAIS pASJe Ne SAIS PAS


le code en francais:

Code: 
=LAMBDA(texte,
    JOINDRE.TEXTE(" ", VRAI
        MAP(FRACTIONNER.TEXTE(texte, " "),
            LAMBDA(mot,
                MAJUSCULE(GAUCHE(mot, 1)) & DROITE(mot, STXT(mot, 2, 9999))
            )
        )
    )
)
 

Pièces jointes

Vote positif 0 Vote négatif
Bonsoir
Ayant testé tous les codes, ils fonctionnent bien tous, toutefois, est-ce possible, d'une que finalement seule la première lettre soit en majuscule (non je ne suis pas .... 🙂 ), et ensuite, ajouter un deuxième code, par exemple pour élargir les colonnes automatiquement, ou un troisième ?
Merci
Cordialement
 
Vote positif 0 Vote négatif
Rejoins nos membres "Supporter XLD" et booste ton expérience Excel !
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

M
  • Question Question
XL 2019 Mettre la 1ére lettre d'un mot en majuscule
Réponses
11
Affichages
458
Mimi1952
M
M
  • Question Question
XL pour MAC mise en forme
Réponses
2
Affichages
552
M.D
M
anthoYS
  • Résolu(e)
Microsoft 365 Si contient telle liste de mots, colorer en bleu, sinon autre liste en vert, autre en violet..., etc.
2
Réponses
17
Affichages
448
anthoYS
anthoYS
B
  • Question Question
XL 2019 Texte dans Excel
Réponses
9
Affichages
733
Dranreb
Dranreb
N
  • Question Question
XL 2021 déterminer heure de début et fin + pause en fonction de cellules de couleurs.
2
Réponses
17
Affichages
813
natadom
N
G
  • Question Question
XL 2021 Macro pour changer les titres de fichier d'archive
Réponses
3
Affichages
517
fanch55
fanch55
C
  • Résolu(e)
Autres Code VBA pour recherche et copie/coller de ligne avec mot clé.
Réponses
12
Affichages
757
Corentin26270
C
patricktoulon
  • Résolu(e)
Autres toutes versions tester le scrool avec la roulette sans passer par un hooking en addressof
42 43 44
Réponses
647
Affichages
10 K
patricktoulon
patricktoulon
patricktoulon
  • Question Question
Autres toutes versions tester le scrool avec la roulette sans passer par un hooking en addressof
Réponses
2
Affichages
118
patricktoulon
patricktoulon
O
  • Résolu(e)
Microsoft 365 mise en forme conditionnelle selon une lettre dans le texte de la cellule
2 3
Réponses
37
Affichages
3 K
odohe
O
T
  • Résolu(e)
XL 2021 de mettre une couleur sur chaque mot commencant par a ou b ou c
Réponses
4
Affichages
473
target
T
S
  • Résolu(e)
Microsoft 365 Mailing mise en forme HTML : revenir à la ligne automatique si trop de texte saisie
2
Réponses
17
Affichages
754
spike29
S
C
  • Question Question
Microsoft 365 je cherche un code excel pour copier la couleur d'une cellule, à toutes les cellules qui ont la même valeur dans mon tableau.
Réponses
1
Affichages
335
sylvanu
sylvanu
N
  • Question Question
Microsoft 365 afficher/masquer des lignes en fonction de la valeur d'une cellule qui aura été renseignée par une autre feuille (via un copier/collé automatique)
Réponses
5
Affichages
772
Nel'
N
N
  • Question Question
Microsoft 365 Remplissage automatique d'une feuille à l'autre
Réponses
2
Affichages
331
Nonoo
N
O
  • Question Question
Autres VBA test et action selon valeur de la première cellule visible en colonne A après un tri
Réponses
8
Affichages
928
Oko
O
O
  • Question Question
XL 2019 Code VBA pour automatiser la programmation des rotations des ouvriers qui travaillent à temps partiel et se relaient par période de temps constante.
2 3
Réponses
35
Affichages
2 K
olivier1984
O
F
  • Question Question
XL 2013 Code VBA pour afficher/maquer feuilles sur fichier protégé en lecture seule
Réponses
10
Affichages
681
Phil69970
Phil69970
S
  • Question Question
XL 2019 Calculer dimanche de pâques puis insertion du 29 février
2
Réponses
26
Affichages
775
dysorthographie
dysorthographie
C
  • Question Question
Autres Mettre en majuscule la première lettre de chaque chaîne, sauf…
Réponses
13
Affichages
843
patricktoulon
patricktoulon
Retour