Excel : Colorer une plage de cellule avec une Résolu/Fermé

Question

Bonjour,

J'aimerai savoir si il est possible de colorer une plage de cellule en fonction de la valeur d'une cellule grace à une formule de calcul. Les plages de cellules concernées sont déja utilisées dans un format de cellules conditionnelles.

Il me faudrait un code couleur pour différents type d'appartement : T1;T2;T3;T4;T5;Studio ect.......
Je ne souhaite pas utiliser VBA si possible et préfére une solution du type formule imbriquée dans la mesure du possible.

Merci de votre contribution.

Cordialement 
Daniel

Carouvanai · Accepted Answer

Bonjour, 
j'ai la solution à votre problème.
Mais après tout dépend de la version de votre Excel.
Mais normalement dans la plupart de celle ci, il suffit d'utiliser une "mise en forme conditionnelle", et ça marche comme sur des roulettes !
Si vous voulez plus de détails n'hésitez pas à me contacter.

eriiic · Answer

Bonjour,

Le format conditionnel ne permet que 3 mises en forme différentes (à la limite 4 si tous les tests négatifs).
Pour plus de couleurs il faut faire en vba.
A toi de voir si tu regroupes des valeurs pour limiter à ces 3 couleurs ou si tu tolères le vba
eric

Carouvanai · Answer

Re-bonjour

Avec la version 2007 d'office, les mises en formes conditionnelles permettent plus de 3 mises en place differentes !
(je viens d'essayer avec 10 et ça marche très bien !)

eriiic · Answer

Ah ok, merci de l'info.
C'est vrai qu'il va falloir s'habituer aux nouvelles possibilités... :-)

Carouvanai · Answer

Et oui !
Au début retissant à l'idée de changer mes petites habitudes, il faut bien avouer que cette nouvelle version n'est pas si mal que ça ...

Zébulon · Answer

Re bonjour, 

Merci à Carouvanai et à Eriiic pour leur réponses, mais je ne peux plus utiliser la MEFC sur ces plages de cellules car j'ai déja utilisé 2 des 3 conditions possibles. C'est pourquoi je m'oriente plutot vers une formule de calcul de type "SI".

 Dans la mesure du possible bien entendu.

Salutations à tous
Zébulon

eriiic · Answer

SI()  te permettra de mettre plus de cas (ex T1 et T2 et T3) DANS LA MEME COULEUR, c'est ça que tu veux ?
Si non, c'est vba...
eric

Zébulon · Answer

Eric à dit : 

SI() te permettra de mettre plus de cas (ex T1 et T2 et T3) DANS LA MEME COULEUR, c'est ça que tu veux ? 
Si non, c'est vba... 

Non, je veux une couleur différente pour chaque information. Si il faut en passer par le VBA et bien allons s'y. 

Je veux colorer les trois lignes et les 3 colones en fonction du type d'appartement. Mon tableau comprte 35 plages de cellules qui malheuresement n'ont pas toutes la même taille.
J'ai déja utilisé la mise en forme conditionnelle pour colorer les plages en fonction de l'état de ces lots (Libre;blanc - Option;bleu -Réservé;gris). c'est pourquoi je partais sur une formule sachant que je veux colorer des plages de cellules qui n'ont pas toute la même taille. 

Si une solution existe en VBA je suis preneur.

Je joins un extrait du tableau qui comporte 9 plages de cellules.

Merci pour vos réponses.
Zébulon

 				T4D	Lot n° 412	350 000
						3 087,00
						
T2	Lot n° 472	140 000				
		3 575,00				
39,16	Ouest	Bal 18,37		113,39	Ouest	Ter 94,98
T2	Lot n° 372	155 000		Studio	Lot n° 312	65 000
		3 959,00				3 421,00
39,15	Ouest	Bal 18,37		19,00	Ouest	Bal 18,37
T2	Lot n° 272	155 000		T2	Lot n° 212	155 000
		3 958,00				3 959,00
39,16	Ouest	Bal 18,37		39,15	Ouest	Bal 18,37
T2	Lot n° 172	150 000		T2	Lot n° 112	150 000
		3 830,00				3 831,00
39,16	Ouest	Bal 18,37		39,15	Ouest	Bal 18,37
T2	Lot n° 062 P	78 000		 		
		1 992,00				
39,16	Ouest	Ter 18,37

Raymond PENTIER · Answer

La réponse est clairement NON : les fonctions SI et toutes les autres ne permettent de travailler que sur des calculs et des manipulations de texte, en aucun cas sur le format (couleur de police, de fond, bordure, italique, majuscule, etc.).
Il ne te reste qu'à suivre la recommandation faite au post 3  par Carouvanai : passer à Excel 2007.

Zébulon · Answer

Merci à Raymond pour ta réponse, je crois que je vais me résigner à utiliser le VBA. je ne peux pas passer à EXCEL 2007 car des utilisateus sont encore avec des versions plus anciennes. A moins que l'on puisse utiliser des feuilles de calcul réalisée avec 2007 et la MEFC avec 7 conditions sur des versions plus anciennes ?

eriiic · Answer

Qcq précisions sont nécessaires :

Une cellule couleur T2 peut-elle devenir bleue si option ou ce sont des cellules indépendantes ?
On ne voit pas la séparation des cellules dans ton exemple. T2 est-il seul dans sa cellule ou est-ce le début ou une partie de chaine ?
Tu mets 2 lots sur une ligne et ça utilise 3 lignes ? 
Ca serait mieux que tu réorganises tes données, par exemple un lot avec toutes ses données sur 1 ligne...
Une macro est bete, on lui dit si tu as T2 dans une cellule tu mets cette cellule et les 3 à droite de telle couleur, il faut absolument que les positions des données soient régulières

Le mieux est que tu déposes un exemple xls sur cijoint.fr, que tu colles le lien ici et que tu précises sur quel critère telles ou telles cellules changent de couleur
eric

Raymond PENTIER · Answer

Zébulon, méfie-toi quand même : trop de couleurs peut entraîner l'effet contraire à celui que tu cherches, en rendant ton tableau difficile à lire à cause de multiples tâches de couleurs.
D'autre part, au post 8 tu dis avoir déjà coloré tes plages de 3 lignes en fonction de l'état des lots. Comment envisages-tu de sur-colorer ces mêmes plages à partir d'un autre critère (type d'appartement) ?
Enfin, en réponse à ton post 10, il n'est pas possible à des utilisateurs de lire sur Excel 2003 des fichiers Excel 2007, sauf à les convertir au format pdf.

LatelyGeek · Answer

Je ne comprends pas. Un T2 libre serait de quelle couleur? De la couleur des T2 ou de la couleur des apparts libres??????

Tu pourrais garder la mise en forme conditionnelle pour la couleur de fond et utiliser VB pour la couleur de police par exemple. C'est envisageable, même si les plages n'ont pas la même taille....

Zébulon · Answer

Merci pour toutes vos réponses.

Sur suggestion d'Eric, je déposele lien pour récupére le fichier excel.  

 http://www.cijoint.fr/cij1012594360302.xls

Mon problème est le suivant, à la création de la grille je voudrais colorer la plage de cellule concernant les appartements en fonction de leur typologie (T1,T2,...). Ensuite au fur et à mesure de la commercialisation il seront : soit bleu (option), soit gris (réservé). Ces fonctions sont mis en oeuvre par la mis en forme conditionnelle.

En réponse à LatelyGeek, un T2 libre serait par exemple vert jusqu'a sa réservation ou sa mise sous option.

Le choix de colorer les plages de cellules est une demande des commerciaux afin de repérer plus vite les logements vides par typologie.

Voila, je pense avoir exposer au mieux ma demande. Je pensais pouvoir solutionner ce problème par la mise en oeuvre d'une fonction ou d'un format de cellule personnalisée. Mais j'avoue que malgré mes recherches je n'ai rien trouvé de convaincant.

Si quelqu'un à une solution je suis preneur.

eriiic · Answer

c'est où et comment que l'on sait si un appart est réservé ou a une option ?
il faut colorer les 3 colonnes x 4 lignes en totalité ou une partie ? Vu les irrégularités de présentation (duplex 4eme-5eme)  je pense que seules 3 cellules sur la ligne seront colorées... Ca irait ?

Zébulon · Answer

Il faut inscrire le nom de la personne dans la case en dessous du type d'appartement ou marquer option la MEFC fait le reste.

eriiic · Answer

Après avoir vu ton tableau et reflexion tu n'as pas besoin quoique ce soit.
Mets tes couleurs comme tu veux, le format conditionnel prendra le dessus sur tes couleurs lors d'option ou réservation.
eric

Zébulon · Answer

Oui je sais, mais je voudrais automatiser cette "mise en couleur" pour qu'en cas de changement de type la couleur corresponde bien au type d'appartement affiché. Plusieurs personnes travaillent sur ces grilles lors de leur mise en place et modifient parfois le type d'appartement suivant les possibilités ou le marché.

eriiic · Answer

ok, je verrais ça demain.
on peut utiliser la zone T36:T40 pour définir la couleur choisie et la chaine à détecter, et faire comme une légende ?

Zébulon · Answer

C'est tout à fait dans l'esprit de ce que je voulais faire.

Merci Eriiic pour ta collaboration et bonne nuit. A plus tard.

eriiic · Answer

Bonjour,

Tu peux modifier les couleurs en T36:T40, pour que la mise à jour se fasse il faut modifier une cellule d'un appartement.
Si la legende se termine par D (duplex) la zone colorée passe de 4 à 8 lignes
Teste et dis moi si ça correspond à ce que tu voulais
http://www.cijoint.fr/cij805358412435.xls
eric

Zébulon · Answer

Merci Eric, c'est tout à fait ce que je voulais. Je l'ai testé, apparament cela fonctionne comme je l'espérais. 

Seul petit problème le T4D mis sur le RDC colore les lignes en dessous le tableau. Est-il possible de borner la coloration?

De plus, serait-ce trop de te demander quelque explications afin que je puisse reproduire le code VBA sur d'autres grilles? Je découvre la programation VBA.

Dans tous les cas un grand merci pour ta collaboration.
Daniel

eriiic · Answer

T4D mis sur le RDC colore les lignes en dessous le tableau
Le duplex utilise 8 lignes contre 4 pour les autres apparts. Un duplex au RDC ne va pas jusqu'au 1er ? C'est un 1/2 duplex alors... :-)
C'est faisable de rechercher la bordure double trait mais c'est compliquer le prg et le jour où ce n'est plus cette bordure la coucleur part sur 65000 lignes... C'est mieux d'avoir une régularité dans le tableau pour eviter les traitement particuliers. Sinon on peut colorer systématiquement 4 lignes, ou seulement un bandeau d'une ligne. Pour cela agit sur le 1er parametre du .resize(lignes, colonnes)

Et si tu veux reproduire, clic-droit sur l'onglet de la feuille puis 'Visualiser le code' et coller le code suivant que je t'ai documenté :
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    Dim cel1 As Range, cel2 As Range
    If Intersect(Target, Range("ZoneCouleur")) Is Nothing Then Exit Sub ' si zone non concernée fini
    Application.ScreenUpdating = False 'désactive rafraichissement écran
    For Each cel1 In Range("ZoneCouleur") ' pour chaque cellule de ZoneCouleur
        For Each cel2 In Range("Legende") ' et pour chaque cellule de Legende
            If cel1.Value = cel2.Value Then
                'si même valeur alors mettre couleur de la légende
                ' sur 4 lignes (+4 si légende se termine par D), et sur 3 colonnes
                cel1.Resize(4 + (Right(cel2.Value, 1) = "D") * -4, 3).Interior.ColorIndex = cel2.Interior.ColorIndex
            End If
        Next cel2
    Next cel1
    Application.ScreenUpdating = True ' rétablir rafraichissement écran
End Sub

eric

Raymond PENTIER · Answer

Bonjour, Zébulon.
Bien que ton sujet soit désormais résolu, mais au cas où tu aurais à traiter d'autres immeubles n'ayant pas la même configuration, je me permets quelques remarques pour travailler sans VBA :
* Au lieu d'appliquer une mise en forme conditionnelle unique pour toute la feuille, tu en fais une par groupe de 3 colonnes : en effet tu as au maximum 4 types de logements par tranche.
* Dans le cas du duplex, tu répètes en BD10 l'indication "T4D" figurant en BD6, au besoin en mettant une police de taille 1 ou 2.
* Tu n'expliques pas comment tu marques l'état de réservation/vente d'un logement.

eriiic · Answer

Bonsoir zébulon,

A-priori je dirais plus que c'est une erreur dans ta feuille qu'un problème de copie de macro.
Regarde quelle est la référence de la cellule cel1 au moment de l'erreur et si elle ne contient pas une valeur d'erreur sur la feuille.
Si oui il faut traiter cette erreur sur la feuille, si non ou si cette valeur d'erreur est 'normale' il faudra voir pour faire un traitement spécifique. Si cette cellule est dans une des colonnes masquées on pourrait aussi ne pas contrôler ces cellules.
Contrôle aussi ta zone "ZoneCouleur" si elle correspond bien à la zone interessante.
Difficile d'en dire plus sans la feuille en question
eric

Zébulon · Answer

Bonsoir Eric

J'ai regardé les zones nommées et je n'arrive pas à voir où j'ai commis une erreur. 
Si tu as un peu de temps, merci de jeter un coup d'oeil à mon dossier, je te joins le lien. 
http://www.cijoint.fr/cij52963993807.xls 

Cette grille me sert de modéle pour les différentes opérations je la modifie en fonction de la configuration des opérations réalisées. Est-ce exploitable avec VBA?

Merci d'avance pour ta réponse. 

Cordialement
Zébulon

eriiic · Answer

J'ai ajouter un contrôle en cas d'erreur dans une cellule et je ne traite plus également les colonnes masquées.
Je t'ai aussi ajouté 3 lignes en début de programme :
    Const nbLigApp As Integer = 4
    Const nbLigDuplex As Integer = 8
    Const nbCol As Integer = 3
ça te permettra de modifier facilement le nombre de lignes à colorer pour un appart normal et un duplex (dernière lettre = D"), ainsi que le nombre de colonnes en cas d'évolution de ta feuille

http://www.cijoint.fr/cij896866836912.xls

Bonne soirée 
eric

Zébulon · Answer

Bonjour,

Merci Eric. La macro modifiée fonctionne à merveille. J'ai suivi tes conseils je n'ai nommé que les colonnes visibles en ZoneCouleur.
J'ai appliqué la macro à la feuille grille PK en modifiant le nombre de ligne et de colonne. 
Par contre j'ai du déplacer les colonnes Type au début de la feuille pour colorer les lignes. 

Quelle est l'instruction pour colorer sur la gauche de cel1?

Aurais tu un ouvrage de référence à me conseiller pour apprendre les bases de VBA .

Encore un grand MERCI pour tes conseils et instructions.

Bonne soirée
Zébulon

eriiic · Answer

Bonsoir zébulon,

je n'ai nommé que les colonnes visibles en ZoneCouleur
C'est une bonne idée aussi de faire comme ça mais en fait je l'avais intégré dans la macro.

Pouir colorer à gauche de cel1 il suffit d'ajouter offset(nbLig,nbCol) après cel1 dans:
cel1.Resize(nbLigApp + (Right(cel2.Value, 1) = "D") * CorrectionDuplex * -1, nbCol).Interior.ColorIndex = cel2.Interior.ColorIndex
offset te crée un décalage de nbLig ligne et nbCol colonne par rapport à ta référence.
Pour décaler à gauche il te faut nbCol négatif et comme tu ne veux pas d'offset sur la ligne => nbLig =0

Ex pour un offset de 3 colonnes à gauche :
cel1.Offset(0,-3).Resize(nbLigApp + (Right(cel2.Value, 1) = "D") * CorrectionDuplex * -1, nbCol).Interior.ColorIndex = cel2.Interior.ColorIndex

Pour ce qui est des livres vba tu as par exemple 'le guide complet vba pour excel 2003' (micro application) qui était bien fait avec pas mal de petits exemples sans pour autant avoir du bourrage avec des pages et des pages de code.
Tu peux aussi aller faire un tour sur https://office.developpez.com/ ou tu trouveras des faq, tutoriels et aussi critique de qcq livre sur vba.

Bonne soirée
eric

lauren · Answer

Bonjour, 
moi je cherche a mettre une couleur dans une case si une autre case contient quelque chose

c'est a dire si B1=x alors b2=couleur

merci d'avance pour votre réponse