Sujet Précédent Sujet Suivant

VBA Excel - Changer la couleur d'un caractère spécifique

Fermé
atk_49 Messages postés 310 Date d'inscription mardi 21 août 2007 Statut Membre Dernière intervention 16 décembre 2013 - Modifié par atk_49 le 13/12/2013 à 14:24
ccm81 Messages postés 10853 Date d'inscription lundi 18 octobre 2010 Statut Membre Dernière intervention 24 avril 2024 - 16 déc. 2013 à 17:59
Bonjour,

Comme le titre l'indique, je souhaiterais que tous les "underscores" "_" d'un tableau excel soient de couleur blanche. (pour les rendre invisibles sans les supprimer)

Y-en a t-il parmi vous qui aurait une idée du code à utiliser ?

Merci d'avance et bon vendredi ! :)
A voir également:

6 réponses

Réponse 1 / 6
ccm81 Messages postés 10853 Date d'inscription lundi 18 octobre 2010 Statut Membre Dernière intervention 24 avril 2024 2 404
13 déc. 2013 à 17:36
1. j'ai aussi remarqué que ton code modifiait toutes les premières lettres sans distinctions
ah bon, pas chez moi?

2. j'aimerais que ça s'applique sur tout le tableau
Et qui colore tous les underscore de la cellule
https://www.cjoint.com/?3LnrIBoietN

Cdlmnt
1
Réponse 2 / 6
Max80250 Messages postés 11 Date d'inscription vendredi 12 avril 2013 Statut Membre Dernière intervention 18 décembre 2013
13 déc. 2013 à 14:30
Bonjour

Je te suggère de passer par la forme conditionnelle de la cellule afin d'avoir le rendu que tu souhaites

Cela se trouve dans format

Non courage
0
Réponse 3 / 6
atk_49 Messages postés 310 Date d'inscription mardi 21 août 2007 Statut Membre Dernière intervention 16 décembre 2013 15
13 déc. 2013 à 15:36
Bonjour Max,

Merci pour ta réponse, j'ai bien chercher mais je ne trouve pas ce qu'il me faut dans cette fonction.

Je ne pense pas que ça soit possible sans VBA. :/
0
Réponse 4 / 6
ccm81 Messages postés 10853 Date d'inscription lundi 18 octobre 2010 Statut Membre Dernière intervention 24 avril 2024 2 404
13 déc. 2013 à 15:48
Bonjour

une petite macro qui colore en coul le caractère car de ntoutes les cellules sélectionnées 

Const car = "_"
Const coul = 2    ' blanc

Public Sub CouleurCaractere()
Dim c As Range, rangcar As Long
For Each c In Selection
  rangcar = InStr(1, c.Value, car)
  c.Characters(rangcar, 1).Font.ColorIndex = coul
Next c
End Sub


Cdlmnt
0

Vous n’avez pas trouvé la réponse que vous recherchez ?

Posez votre question
Réponse 5 / 6
atk_49 Messages postés 310 Date d'inscription mardi 21 août 2007 Statut Membre Dernière intervention 16 décembre 2013 15
13 déc. 2013 à 16:03
Bonjour ccm81, merci pour ta proposition !

J'ai essayé, seulement j'aimerais que ça s'applique sur tout le tableau, j'ai aussi remarqué que ton code modifiait toutes les premières lettres sans distinctions.
0
Réponse 6 / 6
atk_49 Messages postés 310 Date d'inscription mardi 21 août 2007 Statut Membre Dernière intervention 16 décembre 2013 15
16 déc. 2013 à 08:31
Merci c'est juste parfait ! :)

Bonne journée à toi !
0
ccm81 Messages postés 10853 Date d'inscription lundi 18 octobre 2010 Statut Membre Dernière intervention 24 avril 2024 2 404
16 déc. 2013 à 17:59
De rien,

Peux tu mettre le sujet à Résolu (en haut à droite dans ton message initial

Bonne soirée
0