Couleur d'une cellule Format conditionnel

[robyostar]

bonjour tout le monde.
i need some help.

voila comme vous pouvez voir dans le fichier join, j'ai des cellules qui prennent une couleur en fonction d'une condition... jusque là tout va bien.
mais j'aimerais classer mes lignes sur une autre feuilles en fonctions du nombre de case par ligne qui son verte par ordre coirssant

exemple ... mettre en position premier les lignes qui ont les 6 cellule en vert
en deux celles qui on 5 et ainsi de suite .
mon souvi c'est que je n'arrive pas à recupère les deux couleur( vert et blanc). donc voila.

merci d'avance

 

[JHA]

Re : Couleur d'une cellule Format conditionnel

Bonjour,

je n'ai pas regarder ton soucis mais pour la MFC la formule ci après serait plus lisible:

=OU(B2=$A$34:$A$36;B2=$A$38:$A$51)

JHA

 

[eriiic]

Re : Couleur d'une cellule Format conditionnel

Bonjour,

Il faut utiliser la formule de la MFC qui pourrait être remplacée par: =NB.SI($A$34:$A$50;"="&B2)

Ton nombre de vert est : =SOMMEPROD(NB.SI($A$34:$A$50;"="&$B2:$G2))
à tirer vers le bas

eric

 

[Efgé]

Re : Couleur d'une cellule Format conditionnel

Bonjour robyostar, JHA, eriiiic,
Une proposition:

[COLOR=BLUE]Sub[/COLOR] test()
Application.ScreenUpdating = [COLOR=BLUE]False[/COLOR]
[COLOR=BLUE]With[/COLOR] Sheets("Sheet2")
    .Cells.Delete
    Sheets("Sheet1").Range("A1:G50").Copy .Range("A1")
    .Columns.AutoFit
    [COLOR=BLUE]For[/COLOR] i = 2 [COLOR=BLUE]To[/COLOR] 32
        [COLOR=BLUE]For[/COLOR] j = 2 [COLOR=BLUE]To[/COLOR] 7
            [COLOR=BLUE]Set[/COLOR] temp = .Range("A34:A50").Cells.Find(What:=.Cells(i, j).Value)
            [COLOR=BLUE]If Not[/COLOR] temp [COLOR=BLUE]Is Nothing Then[/COLOR] Var = Var + 1
        [COLOR=BLUE]Next[/COLOR] j
        .Cells(i, 8) = Var
        Var = 0
    [COLOR=BLUE]Next[/COLOR] i
    .Range("A1:H32").Sort Key1:=.Range("H1"), Order1:=xlDescending, Header:=xlGuess
    .Columns("H:H").ClearContents
    .Activate
[COLOR=BLUE]End With[/COLOR]
Application.ScreenUpdating = [COLOR=BLUE]True[/COLOR]
[COLOR=BLUE]End Sub[/COLOR]

Cordialement

EDIT :
Changements mineurs dans le code + Fichier exemple.