colorer case excel

Version imprimable

07/05/2009, 10h39
soipx

colorer case excel

Bonjour,

Je vous expose mon problème. J'ai une suite de chiffres en ligne avec en dernière case toute à droite une case avec le max de cette suite. Les cellules de cette suite sont toutes de même couleurs sauf qu'il y a une deuxième ligne juste au dessus de cette ligne de suite de chiffres avec les correspondances de chaque chiffre , par exemple en A1:londres et en A2:25
en B1:paris et en B2:30
en C1: rome et en C2:20
etc...

dans cet exemple chaque case avec le nom de ville est colorée de couleur différente. Donc ce que je voudrais c'est que la case max prenne la couleur de la ville correspondante. Sachant que les cases avec les chiffres, elles, sont de même couleur à la différence de leur correspondance ville.

J'espère que je me suis bien fait comprendre .
07/05/2009, 11h09
LeForestier

Bonjour,
Pas tellement clair, pourrais-tu mettre un exemple de ton classeur en pièce jointe?
A+

Salut soipx et le forum

Code:

1
2
3
4
5
6
7
8
9
10
11
Sub test()
Dim Cel As Range
Dim Cel_Ref As Range
Set Cel_Ref = Cells(2, Columns.Count).End(xlToLeft)
For Each Cel In Range([B2], Cel_Ref.Offset(0, -1))
    If Cel = Cel_Ref Then
        Cel_Ref.Interior.ColorIndex = Cel.Offset(-1, 0).Interior.ColorIndex
        Exit For
    End If
Next
End Sub

A+

07/05/2009, 11h20
soipx

1 pièce(s) jointe(s)

colorer

voilà un aperçu ;)

bien sûr il y a beaucoup plus de métiers

donc la colonne des max, je veux que la cellule prenne la couleur de la ville correspondante
07/05/2009, 11h35
soipx

colorer

gorfael

pour ton code , je fais un copier coller et c'est tout ?
par rapport à l'aperçu , ton code marche t il? je suis vraiment un novice en excel, un grand novice...
07/05/2009, 12h01
Gorfael

Salut soipx et le forum
Quand tu n'est pas sûr d'une macro, teste-la sur une copie de ton fichier : ça te permet de juger, sans toucher à l'original
Effectivement ce n'est qu'une "copie" de la couleur de fond. J'utilise Colorindex, mais ça fonctionne aussi avec Color
A+
07/05/2009, 13h27
soipx

color

gorfael

comment ferais tu pour appliquer ton code à toutes les lignes?
faut faire une boucle non?
merci
07/05/2009, 13h39
Gorfael

Salut soipx et le forum
Pas de MP pour exposer ton problème, le forum est là pour ça.
On ne connaît pas ton problème. Les seules indications que nous ayons sont celles que tu nous donnes. Comment espères-tu que l'on puisse t'aider si tu nous donnes les indications au goutte-à-goutte ?
Une image, c'est bien... pour les gamins sages!
Met un extrait de ton fichier et explique ce que tu veux obtenir.

En tant que dépanneur, je me retrouve avec une multitude de sujets. Seuls ceux auxquels j'ai une chance de pouvoir répondre retiennent mon attention. Si je ne comprends pas le problème, je passe et vais voir ailleurs si je peux répondre.
Pour répondre, il me faut une idée du problème et des données précises. Si je n'ai pas une réponse toute faite, mais que je comprend le problème, je cherche une solution (c'est comme ça que j'apprends). Mais passer du temps à demander des informations sur le sujet est loin de me passionner. Demander des précisions se comprend. Arracher des informations, non!

Expose le problème en entier, même si tu ne demandes la résolution que d'une partie. Ayant une idée du programme final, on ne proposera que des solutions pour la partie, mais qui peuvent être adaptées pour le total.

Pour ton problème :
- Tous les Max sont sur la même colonne ? en bout de la ligne concernée ?
Si c'est le cas, il faut faire une boucle où on parcourt les max, avec une boucle imbriquée pour trouver la première colonne étant égale au max de la ligne et retourner la couleur de la première ligne de cette colonne
A+
07/05/2009, 14h00
soipx

1 pièce(s) jointe(s)

color

voilà le fichier

et dslé pour le MP.

je voudrais donc colorer les cases de la colonne max en fonction de la couleur correspondante.
En gros c'est refaire ton premier code (gorfael)mais pour les lignes qui restent aussi.

Salut,

Comme ca:

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
 
Sub colorMax()
    Dim CptLig As Integer
    Dim CptCol As Byte, ColMax As Byte
 
    ColMax = Feuil1.Rows(1).SpecialCells(xlCellTypeLastCell).Column - 1
 
    For CptLig = 2 To Feuil1.Columns(ColMax).SpecialCells(xlCellTypeLastCell).Row
        Feuil1.Cells(CptLig, ColMax).Interior.ColorIndex = xlNone
 
        For CptCol = 1 To ColMax - 1
            If Not IsError(Feuil1.Cells(CptLig, CptCol).Value) Then
                If Feuil1.Cells(CptLig, CptCol).Value = Feuil1.Cells(CptLig, ColMax).Value Then
                    Feuil1.Cells(CptLig, ColMax).Interior.ColorIndex = Feuil1.Cells(1, CptCol).Interior.ColorIndex
                    Exit For
                End If
            End If
        Next CptCol
    Next CptLig
End Sub

++
Minick

07/05/2009, 16h41
Gorfael

Salut soipx et le forum
Une proposition
Mais je n'aime pas ta méthode, alors avec ce que tu as donné, j'ai modifié la colonne max en mettant une formule => mais ça n'aime pas les erreurs (#N/A) donc j'aiune partie de la macro pour les supprimer, mais...
si "= formule" affiche une erreur #N/A
=si(ESTNA(Formule);"";Formule) n'affiche rien est ne déclenche pas une erreur dans les formule =Max()
A+
07/05/2009, 16h48
Minick

Re,

Avec une formule matricielle ca passe (a valider avec Ctrl+Shift+Enter)

Code:

=MAX(SI(ESTERREUR(A2:J2)=FAUX;A2:J2))

++
Minick

PS: Qu'est ce qui ne te plait pas dans mon code??