Discussion :

[atk_49]

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 !

[atk_49]

Désolé pour le dérangement, je viens de trouver la réponse à mon problème :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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 !

[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...

[illight]

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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...

[EngueEngue]

Par exemple pour faire ton traitement C1:C33:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[atk_49]

Bonjour à vous deux !

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

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 ?

[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.

[illight]

J'ai testé chez moi, ça marche même si le _ est au début

[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 ?

[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 !

[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 …

[atk_49]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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 ! ^^

[illight]

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 ?