Mettre les majuscules en couleur
Severine33130
Messages postés
46
Date d'inscription
dimanche 28 juin 2020
Statut
Membre
Dernière intervention
26 novembre 2024
-
9 févr. 2024 à 09:25
via55 Messages postés 14512 Date d'inscription mercredi 16 janvier 2013 Statut Membre Dernière intervention 18 janvier 2025 - 9 févr. 2024 à 14:19
via55 Messages postés 14512 Date d'inscription mercredi 16 janvier 2013 Statut Membre Dernière intervention 18 janvier 2025 - 9 févr. 2024 à 14:19
A voir également:
- Mettre les majuscules en couleur
- Excel cellule couleur si condition texte - Guide
- Mettre un texte en majuscule - Guide
- Somme si couleur - Guide
- La boite a couleur - Télécharger - Divers Photo & Graphisme
- Nb si couleur ne fonctionne pas ✓ - Forum Excel
2 réponses
via55
Messages postés
14512
Date d'inscription
mercredi 16 janvier 2013
Statut
Membre
Dernière intervention
18 janvier 2025
2 740
9 févr. 2024 à 10:04
9 févr. 2024 à 10:04
Bonjour Séverine
Il faut passer par une macro
Exemple à adapter :
https://www.cjoint.com/c/NBjjdypjo2Q
Cdlmnt
Via
via55
Messages postés
14512
Date d'inscription
mercredi 16 janvier 2013
Statut
Membre
Dernière intervention
18 janvier 2025
2 740
9 févr. 2024 à 14:19
9 févr. 2024 à 14:19
Re
Je ne peux pas ouvrir ton fichier
Enregistre le en xls ou en xlsx selon ta version d'Excel et reposte le moi
Quelle erreur est indiquée lorsque tu veux enregistrer ?
La macro avec explication et une ligne ajoutée pour le gras
Sub majcol() ' On boucle sur toutes les cellules de la plage indiquée ci-dessous For Each cell In Range("C2:C10") ' changer la plage à traiter en fonction du fichier ' On boucle sur tous les caractères contenus dans une cellule (en fonction de la longueur du texte) For n = 1 To Len(cell.Value) 'Si le code caractère est compris entre 65 et 90 (codes des 26 majuscules) If Asc(Mid(cell.Value, n, 1)) >= 65 And Asc(Mid(cell.Value, n, 1)) <= 90 Then 'le nieme caractère est coloré en rouge cell.Characters(Start:=n, Length:=1).Font.Color = -16776961 'le nieme caractère est mis en gras cell.Characters(Start:=n, Length:=1).Font.FontStyle = "Gras" End If Next Next End Sub
Pour les mots entiers passant en rouge sans être en majuscules je ne vois pas comme ça, je verrai peut être pourquoi avec ton fichier
9 févr. 2024 à 11:03
Bonjour via55,
Merci pour ta réponse.
Cependant, je ne comprends pas pourquoi, mais cela ne fonctionne pas correctement.
De plus, je ne sais pas à quoi correspondent les termes de la macro.
Comment je fais si je veux que mes majuscules soient en rouge et en gras ? ou dois-je apporter la modification ?
De plus, parfois, j'ai des mots entiers qui passent en rouge alors qu'ils ne sont pas écris en majuscule.
Pour finir, une fois que j'ai appliqué la macro, je ne peux plus enregistrer mon fichier car il y a une erreur
https://www.cjoint.com/c/NBjkcH8NSnE