Couleur police sous conditions
Résolu/Fermé
A voir également:
- Couleur police sous conditions
- Police facebook - Guide
- Excel cellule couleur si condition texte - Guide
- Somme si couleur - Guide
- Police instagram - Guide
- La boite a couleur - Télécharger - Divers Photo & Graphisme
1 réponse
pijaku
Messages postés
12263
Date d'inscription
jeudi 15 mai 2008
Statut
Modérateur
Dernière intervention
4 janvier 2024
2 743
Modifié par pijaku le 10/03/2010 à 14:11
Modifié par pijaku le 10/03/2010 à 14:11
Bonjour,
Dans la feuille excel concernée, tapez ALT+F11, insertion/module. Y coller ce code :
On lance la procédure depuis la feuille elle même en tapant ALT+F8 sélectionner "couleur_en_fonction_contenu" et exécuter
Bien sur les codes couleurs (de 3 à 8 dans le code) sont à adapter à votre convenance...
Cordialement,
-- Tout problème à sa solution. S'il n'y a pas de solution, ou est le problème? --
Dans la feuille excel concernée, tapez ALT+F11, insertion/module. Y coller ce code :
Sub couleur_en_fonction_contenu()
Dim cell As Range
For Each cell In Range("D2:D20")
If cell = "B" Then
cell.Interior.ColorIndex = 3
ElseIf cell = "D" Then
cell.Interior.ColorIndex = 4
ElseIf cell = "E" Then
cell.Interior.ColorIndex = 5
ElseIf cell = "F" Then
cell.Interior.ColorIndex = 6
ElseIf cell = "PR" Then
cell.Interior.ColorIndex = 7
ElseIf cell = "REV" Then
cell.Interior.ColorIndex = 8
End If
Next
End Sub
On lance la procédure depuis la feuille elle même en tapant ALT+F8 sélectionner "couleur_en_fonction_contenu" et exécuter
Bien sur les codes couleurs (de 3 à 8 dans le code) sont à adapter à votre convenance...
Cordialement,
-- Tout problème à sa solution. S'il n'y a pas de solution, ou est le problème? --
10 mars 2010 à 16:51
Je te remercie pour ta réponse ultra rapide, ceci m'a permis d'avancer dans mon projet. J'ai simplement changer cell.Interior.ColorIndex par cell.Font.ColorIndex pour la couleur du texte et ça marche. Mais dans une autre colonne H plage H3:H8 j'ai reporté les mêmes lettres B D E F PR et REV afin de les comptabiliser en I3:I8 avec NB.SI(D2:D20;H3) ect...et la le calcul ne s'effectue pas et pourtant les lettres sont au même format.
Faut-il faire référence au contenu des cellules H3:H8 ? Je me suis aperçu qu'en faisant du copier-coller ça fonctionné. Ex: si je copie H3 qui contient B en D2 le calcul s'effectue. Si vous avez la solution je suis preneur.
Merci encore à Pijaku.
10 mars 2010 à 19:16
10 mars 2010 à 23:28
Merci beaucoup pour ton aide. J'ai trouvé la solution pour comptabiliser le nombre de lettres identiques dans la plage D2:D20. J'ai remplacé NB.SI(D2:D20;H3) par NB.SI(D2:D20;"B")
Merci encore pour ta macro .
A+