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
437
Mimi1952
M
M
  • Question Question
XL pour MAC mise en forme
Réponses
2
Affichages
545
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
314
anthoYS
anthoYS
B
  • Question Question
XL 2019 Texte dans Excel
Réponses
9
Affichages
722
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
797
natadom
N
G
  • Question Question
XL 2021 Macro pour changer les titres de fichier d'archive
Réponses
3
Affichages
291
fanch55
fanch55
C
  • Résolu(e)
Autres Code VBA pour recherche et copie/coller de ligne avec mot clé.
Réponses
12
Affichages
682
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
110
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
461
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
536
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
300
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
668
Nel'
N
N
  • Question Question
Microsoft 365 Remplissage automatique d'une feuille à l'autre
Réponses
2
Affichages
317
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
899
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
661
Phil69970
Phil69970
S
  • Question Question
XL 2019 Calculer dimanche de pâques puis insertion du 29 février
2
Réponses
26
Affichages
687
dysorthographie
dysorthographie
C
  • Question Question
Autres Mettre en majuscule la première lettre de chaque chaîne, sauf…
Réponses
13
Affichages
826
patricktoulon
patricktoulon
Retour