Modifier la couleur d'un caractère spécifique

Version imprimable

10/12/2013, 08h35
atk_49

Modifier la couleur d'un caractère spécifique

Bonjour à tous !

J'ai besoin d'aide car je souhaiterais changer la couleur des caractères "_" (underscore) d'une cellule, sachant qu'ils sont positionnés aléatoirement dans le texte de la cellule.

A votre avis, est ce possible ?

La cellule en question est C33, et la .Font.ColorIndex = 19.

Merci d'avance, et bon mardi !
10/12/2013, 08h46
atk_49
Désolé pour le dérangement, je viens de trouver la réponse à mon problème :
Code:

1 2 3 For i = 1 To Len([C33]) If Mid([C33], i, 1) = "_" Then [C33].Characters(i, 1).Font.ColorIndex = 19 Next i
Bonne journée !
10/12/2013, 10h12
atk_49

Je dois désormais appliquer cette règle simultanément sur d'autres cellules, et je n'arrive pas à utiliser de variable dans cette syntaxe, ce qui me fait répéter le code plusieurs fois. (pas très propre ni pratique)

J'ai trouvé cette formule sur internet et j'ai quelques difficultés à bien comprendre son fonctionnement, parfois elle modifie l'intégralité du texte de la cellule, je ne vois vraiment pas pourquoi...

Il suffit de rajouter une boucle sur tes cellules, genre :

Code:

1
2
3
4
5
6
 
for j = 1 to lignes
   For i = 1 To Len(cells(j,3).value)
      If Mid(cells(j,3).value, i, 1) = "_" Then cells(j,3).Characters(i, 1).Font.ColorIndex = 19
   Next i
next j

A adapter pour tes cellules, etc...

Par exemple pour faire ton traitement C1:C33:

Code:

1
2
3
4
5
For j = 1 to 33
For i = 1 To Len(range("C" & j))
   If Mid(range("C" & j), i, 1) = "_" Then range("C" & j).Characters(i, 1).Font.ColorIndex = 19
Next i
next j

10/12/2013, 10h37
atk_49

Bonjour à vous deux !

C'est bien plus pratique comme ça, en effet, merci ! :ccool:

Autre énigme, voici deux exemples de contenus possible dans les cellules à modifier :
plop_plip (Dans ce cas tout fonctionne bien)
_123 (Dans ce cas, le texte entier change de couleur)

Une idée ?
10/12/2013, 15h24
atk_49

Après quelques tests, j'ai pu constater que le problème arrive uniquement lorsque le underscore est au début de la chaîne de caractères.
10/12/2013, 15h48
illight

J'ai testé chez moi, ça marche même si le _ est au début :?
10/12/2013, 17h15
atk_49

Ok, mais je n'ai pas donné toutes les précisions de mes cellules, il s'agit de listes déroulantes, dont les données proviennent d'autres tableaux ou de l'état d'autres cellules via la fonction INDIRECT.

A ton avis, est-ce que cela peut avoir une correspondance avec ce bug ?
13/12/2013, 09h25
atk_49

Bonjour !

J'ai pu me pencher à nouveau sur le problème, en faisant des essais j'ai bien pu constater que lorsque la cellule est une liste déroulante, et que le underscore est en début de chaîne, le code modifie la totalité du contenu de la cellule.

Est-ce quelqu'un aurait une solution alternative ?

Merci d'avance ! :)
13/12/2013, 15h13
Marc-L

Bonjour,

pas d'alternative, juste une question de logique !

Après avoir modifié la couleur du premier caractère, modifier celle des caractères suivants …

Bonjour Marc,

En effet, mais toutes mes données ne commencent pas par underscore. :/

En posant bien ta solution ça donnerait en "Français" :
Si le premier caractère de ma cellule est _, alors, le colorer en blanc, sinon, garder le style d'origine de la cellule.
Et colorer tous les autres _ du tableau en blanc.

Reste à traduire... allez je me lance (soyez très indulgent ^^) :
Code:

1 2 3 4 5 6 7 8 9 10 11 12 Dim fonction Set fonction = ActiveSheet.Range("A1:D60") If fonction Left (1,1) = "_" Then fonction Left (1,1).Font.color = 2 Else For j = 1 To 60 For i = 1 To Len(Range("C" & j)) If Mid(Range("C" & j), i, 1) = "_" Then Range("C" & j).Characters(i, 1).Font.ColorIndex = 2 Next i Next j End If
Je ne connais pas la syntaxe de certaines fonctions, et VB me le fait bien savoir quand j'essaye ce code ! ^^

13/12/2013, 16h09
illight

Citation:

Envoyé par Marc-L

Bonjour,

pas d'alternative, juste une question de logique !

Après avoir modifié la couleur du premier caractère, modifier celle des caractères suivants …

Bonjour Marc,

Je suis désolé, mais je ne comprend pas ta remarque :?

Chez moi, le code donné fonctionne très bien, quelquesoit l'emplacement du caractère "_".

Pourquoi il faudrait modifier les caractères suivants ?? c'est parce que ça vient d'une formule ? d'une liste déroulante ?
13/12/2013, 16h16
Marc-L

D'après la description de son cas dans sa version d'Excel, c'est avec une liste déroulante …

Personnellement je l'ai rencontré avec un objet graphique type cadre de texte …
13/12/2013, 16h18
atk_49

@illight

Essaye ce code sur une cellule contenant une liste déroulante, normalement toute la cellule devrait être modifiée. (c'est le cas chez moi, et la cause de mon problème)