Comment mettre en majuscule chaque mot dans Excel avec "Title Case" ?

Comprendre le "Title Case" dans Excel

Le "Title Case", ou "Capital Case" en anglais, consiste à mettre en majuscule la première lettre de chaque mot d'une chaîne de texte. Cette mise en forme est particulièrement utile pour les titres, les noms propres et d'autres éléments où une présentation soignée est requise.

Excel, par défaut, ne propose pas de fonction intégrée dédiée au "Title Case". Cependant, en combinant plusieurs fonctions existantes, il est tout à fait possible de parvenir au résultat souhaité.

Méthodes pour appliquer le "Title Case" dans Excel

Voici différentes approches pour transformer votre texte en "Title Case" dans Excel, allant de la plus simple à la plus complexe, avec leurs avantages et inconvénients.

1. Utilisation de la fonction NOMPROPRE (PROPER)

La fonction NOMPROPRE (ou PROPER en anglais) est la méthode la plus simple et rapide pour obtenir un résultat proche du "Title Case".

Comment ça marche ?

La fonction NOMPROPRE convertit la première lettre de chaque mot en majuscule et toutes les autres lettres en minuscules.

Exemple:

Si la cellule A1 contient le texte "exemple de texte", la formule =NOMPROPRE(A1) renverra "Exemple De Texte".

Avantages:

• Simplicité d'utilisation: une seule fonction suffit.
• Rapidité: le résultat est immédiat.

Inconvénients:

• Ne gère pas correctement les articles et les conjonctions: les mots comme "de", "le", "la" seront également mis en majuscule.
• Ne gère pas les apostrophes: "l'exemple" deviendra "L'Exemple".

2. Une formule plus avancée pour gérer les exceptions (articles, conjonctions)

Pour une gestion plus fine du "Title Case", notamment pour éviter de mettre en majuscule les articles et conjonctions courants, une formule plus complexe est nécessaire.

Principe:

Cette méthode consiste à:

1. Diviser la chaîne de texte en mots individuels.
2. Vérifier si chaque mot fait partie d'une liste d'exceptions (articles, conjonctions).
3. Mettre en majuscule uniquement les mots qui ne font pas partie de cette liste.

Formule (exemple):

=SI(ESTNUM(CHERCHE(A1;" de le la des du "));A1;NOMPROPRE(A1))

Explication détaillée:

• A1: Cellule contenant le texte à convertir.
• CHERCHE(A1;" de le la des du "): Recherche la présence du contenu de A1 (un mot) dans la chaîne " de le la des du ". Si le mot est trouvé, CHERCHE renvoie sa position (un nombre), sinon elle renvoie une erreur (#VALEUR!).
• ESTNUM(...): Vérifie si le résultat de CHERCHE est un nombre. Si c'est le cas (le mot est trouvé dans la liste des exceptions), la fonction renvoie VRAI, sinon elle renvoie FAUX.
• SI(ESTNUM(...);A1;NOMPROPRE(A1)): Si le mot est une exception (trouvé dans la liste), la fonction renvoie le mot tel quel (A1). Sinon, elle applique la fonction NOMPROPRE pour mettre la première lettre en majuscule.

Amélioration de la formule:

Cette formule peut être améliorée en incluant plus d'exceptions et en gérant la casse (pour que la recherche soit insensible à la casse).

=SI(ESTNUM(CHERCHE(MINUSCULE(A1);" de le la des du a au aux et ou mais car donc ni "));MINUSCULE(A1);NOMPROPRE(A1))

Explication des ajouts:

• MINUSCULE(A1): Convertit le mot en minuscules avant la recherche, rendant la recherche insensible à la casse.
• Ajout d'autres exceptions: la liste des articles et conjonctions a été étendue.

Avantages:

• Gestion plus précise du "Title Case".
• Possibilité de personnaliser la liste des exceptions.

Inconvénients:

• Formule plus complexe à comprendre et à mettre en œuvre.
• Nécessite une liste exhaustive des exceptions.
• Ne gère pas les apostrophes.

3. Utilisation de VBA (Visual Basic for Applications)

Pour une solution plus robuste et flexible, l'utilisation de VBA est recommandée. VBA permet de créer une fonction personnalisée qui gère le "Title Case" avec plus de précision.

Code VBA:

Function TitleCase(Text As String) As String
Dim Words() As String
Dim i As Integer
Dim Exceptions As Variant

Exceptions = Array("de", "le", "la", "des", "du", "a", "au", "aux", "et", "ou", "mais", "car", "donc", "ni")

Words = Split(Text, " ")

For i = 0 To UBound(Words)
    If Not IsError(Application.Match(LCase(Words(i)), Exceptions, 0)) Then
        Words(i) = LCase(Words(i))
    Else
        Words(i) = UCase(Left(Words(i), 1)) & Mid(Words(i), 2)
    End If
Next i

TitleCase = Join(Words, " ")

End Function

Explication du code:

1. Function TitleCase(Text As String) As String: Déclare une fonction nommée TitleCase qui prend une chaîne de texte en entrée et renvoie une chaîne de texte.
2. Dim Words() As String: Déclare un tableau de chaînes de texte nommé Words pour stocker les mots individuels.
3. Dim i As Integer: Déclare une variable entière i pour la boucle.
4. Dim Exceptions As Variant: Déclare une variable Exceptions de type Variant pour stocker le tableau des exceptions (articles, conjonctions).
5. Exceptions = Array(...): Initialise le tableau Exceptions avec une liste d'articles et de conjonctions.
6. Words = Split(Text, " "): Divise la chaîne de texte en mots individuels en utilisant l'espace comme séparateur et stocke les mots dans le tableau Words.
7. For i = 0 To UBound(Words): Démarre une boucle qui parcourt chaque mot du tableau Words.
8. If Not IsError(Application.Match(LCase(Words(i)), Exceptions, 0)) Then: Vérifie si le mot (converti en minuscules) se trouve dans le tableau Exceptions. Application.Match renvoie une erreur si le mot n'est pas trouvé.
9. Words(i) = LCase(Words(i)): Si le mot est une exception, le convertit en minuscules.
10. Else: Si le mot n'est pas une exception.
11. Words(i) = UCase(Left(Words(i), 1)) & Mid(Words(i), 2): Met la première lettre du mot en majuscule et conserve le reste du mot tel quel.
12. Next i: Passe au mot suivant.
13. TitleCase = Join(Words, " "): Reconstitue la chaîne de texte en joignant les mots avec des espaces.
14. End Function: Termine la fonction.

Comment utiliser le code VBA:

1. Ouvrez l'éditeur VBA (Alt + F11).
2. Insérez un nouveau module (Insertion > Module).
3. Collez le code VBA dans le module.
4. Fermez l'éditeur VBA.
5. Vous pouvez maintenant utiliser la fonction TitleCase dans vos feuilles de calcul comme n'importe quelle autre fonction Excel: =TitleCase(A1).

Avantages:

• Solution la plus flexible et personnalisable.
• Gestion précise du "Title Case", y compris les exceptions.
• Peut être étendue pour gérer d'autres cas spécifiques (apostrophes, etc.).

Inconvénients:

• Nécessite des connaissances en VBA.
• Le code VBA doit être activé dans les paramètres de sécurité d'Excel.

Conseils et astuces pour le "Title Case" dans Excel

• Créez une fonction personnalisée: Si vous utilisez fréquemment le "Title Case", la création d'une fonction VBA personnalisée est la solution la plus efficace.
• Utilisez un tableau pour les exceptions: Pour faciliter la maintenance de la liste des exceptions, stockez-la dans une feuille de calcul et référencez-la dans votre formule ou code VBA.
• Testez vos formules: Avant d'appliquer le "Title Case" à un grand nombre de cellules, testez vos formules sur quelques exemples pour vous assurer qu'elles fonctionnent correctement.
• Tenez compte des spécificités linguistiques: Le "Title Case" peut varier selon la langue. Adaptez vos formules et votre code VBA en conséquence.

Erreurs à éviter

• Oublier les exceptions: Ne pas tenir compte des articles et des conjonctions est une erreur courante qui nuit à la qualité du "Title Case".
• Ignorer les apostrophes: Les apostrophes peuvent poser problème. Assurez-vous que votre formule ou code VBA les gère correctement.
• Ne pas tester suffisamment: Tester vos formules sur un nombre limité d'exemples peut masquer des erreurs. Testez-les sur des données variées pour vous assurer de leur fiabilité.

Conclusion

Bien qu'Excel ne propose pas de fonction dédiée au "Title Case", il existe plusieurs méthodes pour obtenir ce résultat. La fonction NOMPROPRE est une solution simple mais limitée. Pour une gestion plus précise, une formule plus complexe ou l'utilisation de VBA sont recommandées. En suivant les conseils et astuces présentés dans cet article, vous serez en mesure de maîtriser le "Title Case" dans Excel et d'améliorer la présentation de vos données.