Excel - Couleur en fonction du contenu

Résolu
mibri Messages postés 23 Date d'inscription vendredi 10 février 2012 Statut Membre Dernière intervention 28 janvier 2014 - 11 févr. 2012 à 16:45
mibri Messages postés 23 Date d'inscription vendredi 10 février 2012 Statut Membre Dernière intervention 28 janvier 2014 - 14 févr. 2012 à 15:26
bonjour,
j'ai une macro qui fonctionne très bien et qui me donne dans une colonne suivant un chiffre une couleur :
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Target.Column = 2 Then Exit Sub
Dim Cel As Range
For Each Cel In Target
'pour chaque cellule de la plage modifiée
Select Case LCase(Cel)
'mettre en "case" la valeur de la cellule en minuscules
Case "1"
Cel.Interior.ColorIndex = 4
Case "2"
Cel.Interior.ColorIndex = 40
Case "3"
Cel.Interior.ColorIndex = 34
Case "4"
Cel.Interior.ColorIndex = 27
Case "5"
Cel.Interior.ColorIndex = 34
Case "6"
Cel.Interior.ColorIndex = 39
Case "7"
Cel.Interior.ColorIndex = 24
Case "8"
Cel.Interior.ColorIndex = 22
Case "9"
Cel.Interior.ColorIndex = 7
Case "10"
Cel.Interior.ColorIndex = 33
Case "11"
Cel.Interior.ColorIndex = 38
Case "12"
Cel.Interior.ColorIndex = 46
Case Else
'si aucun des cas précédent
Cel.Interior.ColorIndex = xlNone
'couleur de fond en automatique
End Select
Next Cel
End Sub
Je voudrais obtenir la même chose sur la colonne 5 mais plus avec un chiffre mais avec un nom.
Est ce possible, je vous remercie par avance de votre avis

50 réponses

mibri Messages postés 23 Date d'inscription vendredi 10 février 2012 Statut Membre Dernière intervention 28 janvier 2014
13 févr. 2012 à 19:03
excuse j'ai relevé des erreurs
mescouleurs = Array("1",4,"2",40,"3",34,"4",27,"5",36,"6",39,"7",24,"8",22,"9",7,"10",33,"11",38,"12",46,"distributeur",5,"chèques",8,"pass",13,"hsbc",14,"virement
0
ucfoutu Messages postés 18038 Date d'inscription lundi 7 décembre 2009 Statut Modérateur Dernière intervention 11 avril 2018 211
13 févr. 2012 à 19:08
Relis mon dernier message ! et passe tous ces mots en majuscules !
Moi, j'arrête les frais pile là !
Bonne chance.

Un petit coucou à Reynald : ===>> tu as vu à quoi l'on aboutit (et je le savais d'emblée) ? Tu comprends maintenant mes réticences depuis le tout début ?


____________________
Réponse exacte ? => "REPONSE ACCEPTEE" pour faciliter les recherches d'autres forumeurs.
Pas d'aide en ligne installée ? ==> ne comptez pas sur moi pour simplement vous dire ce qu'elle contient
0
ucfoutu Messages postés 18038 Date d'inscription lundi 7 décembre 2009 Statut Modérateur Dernière intervention 11 avril 2018 211
13 févr. 2012 à 20:02
Je crois vraiment que tu devrais alors t'intéresser, mibri, au seul code de Renfield. Il est beaucoup plus à la portée de tes connaissances....
Expose à Renfield ce que tu en fais et il prendra avec joie le relais de cette discussion et de tes problèmes.


____________________
Réponse exacte ? => "REPONSE ACCEPTEE" pour faciliter les recherches d'autres forumeurs.
Pas d'aide en ligne installée ? ==> ne comptez pas sur moi pour simplement vous dire ce qu'elle contient
0
Renfield Messages postés 17287 Date d'inscription mercredi 2 janvier 2002 Statut Modérateur Dernière intervention 27 septembre 2021 74
14 févr. 2012 à 06:05
Merci l'ami

Pour un code bac à sable, je trouve que ca va loin, (5e page...)

va falloir voir a tout remettre a plat, pour sur !

Renfield - Admin CodeS-SourceS - MVP Visual Basic & Spécialiste des RegExp
0

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

Posez votre question
mibri Messages postés 23 Date d'inscription vendredi 10 février 2012 Statut Membre Dernière intervention 28 janvier 2014
14 févr. 2012 à 08:33
he les gars, je m'aperçois que je suis, l'emmerdeur.
depuis le début je vous ai dit que je connaissais excel mais pas du tout le langage macro.
j'ai exposé, mon problème.
Il fallait alors même pas me répondre.
Personne vous oblige, c'est votre choix
je suis déçu par ce comportement
je vous remercie tout de même d'avoir participé à ce romans....
0
Renfield Messages postés 17287 Date d'inscription mercredi 2 janvier 2002 Statut Modérateur Dernière intervention 27 septembre 2021 74
14 févr. 2012 à 09:01
Rien ne nous oblige... si, notre passion, altruisme, etc.

Je vais relire tout ce qui a pu être dit (remettre a plat) et voir a prendre le relais de jmf...

Ce n'est pas contre toi, la pédagogie de chacun a ses limites, et si vous n'arrivez pas a vous entendre sur une solution qui te convienne, on va changer d'interlocuteur et de méthode, peut etre, voilà tout.

VbFrance est un bon site, n'en doute pas, on y trouve des réponses à la pelle ; la communauté est active, et compétente...

Renfield - Admin CodeS-SourceS - MVP Visual Basic & Spécialiste des RegExp
0
mibri Messages postés 23 Date d'inscription vendredi 10 février 2012 Statut Membre Dernière intervention 28 janvier 2014
14 févr. 2012 à 09:39
merci beaucoup Renfield de m'avoir répondu, ce code est pour moi plus clair de compréhension et cela fonctionne pourrais tu me communiquer (ou bien ou je peux le trouver) le langage des couleurs RGB de manière à ce que je l'adapte à mes besoins.
0
mibri Messages postés 23 Date d'inscription vendredi 10 février 2012 Statut Membre Dernière intervention 28 janvier 2014
14 févr. 2012 à 11:38
entre temps j'ai trouvé la codification des couleurs RGB sur(couleur XL.xls)il s'agira pour moi de remplacer vbgreen par son code si tu es ok j'en aurais terminé
merci de ta confirmation (j'ai eu un message 10h04 que je n'ai pas pu lire)
0
Renfield Messages postés 17287 Date d'inscription mercredi 2 janvier 2002 Statut Modérateur Dernière intervention 27 septembre 2021 74
14 févr. 2012 à 12:24
utilises la fonction RGB :

RGB(255, 0, 0) => Rouge
etc.

Renfield - Admin CodeS-SourceS - MVP Visual Basic & Spécialiste des RegExp
0
mibri Messages postés 23 Date d'inscription vendredi 10 février 2012 Statut Membre Dernière intervention 28 janvier 2014
14 févr. 2012 à 15:26
merci à tous les deux, c'est exactement ce que j'attendais,
0
Rejoignez-nous