Excel - Couleur en fonction du contenu

[Résolu]
Signaler
Messages postés
23
Date d'inscription
vendredi 10 février 2012
Statut
Membre
Dernière intervention
28 janvier 2014
-
Messages postés
23
Date d'inscription
vendredi 10 février 2012
Statut
Membre
Dernière intervention
28 janvier 2014
-
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

Messages postés
23
Date d'inscription
vendredi 10 février 2012
Statut
Membre
Dernière intervention
28 janvier 2014

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
Messages postés
18038
Date d'inscription
lundi 7 décembre 2009
Statut
Modérateur
Dernière intervention
11 avril 2018
239
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
Messages postés
18038
Date d'inscription
lundi 7 décembre 2009
Statut
Modérateur
Dernière intervention
11 avril 2018
239
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
Messages postés
17288
Date d'inscription
mercredi 2 janvier 2002
Statut
Modérateur
Dernière intervention
27 septembre 2021
70
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
Messages postés
23
Date d'inscription
vendredi 10 février 2012
Statut
Membre
Dernière intervention
28 janvier 2014

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....
Messages postés
17288
Date d'inscription
mercredi 2 janvier 2002
Statut
Modérateur
Dernière intervention
27 septembre 2021
70
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
Messages postés
23
Date d'inscription
vendredi 10 février 2012
Statut
Membre
Dernière intervention
28 janvier 2014

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.
Messages postés
23
Date d'inscription
vendredi 10 février 2012
Statut
Membre
Dernière intervention
28 janvier 2014

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)
Messages postés
17288
Date d'inscription
mercredi 2 janvier 2002
Statut
Modérateur
Dernière intervention
27 septembre 2021
70
utilises la fonction RGB :

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

Renfield - Admin CodeS-SourceS - MVP Visual Basic & Spécialiste des RegExp
Messages postés
23
Date d'inscription
vendredi 10 février 2012
Statut
Membre
Dernière intervention
28 janvier 2014

merci à tous les deux, c'est exactement ce que j'attendais,