Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

Couleur d'une cellule Format conditionnel

  • Initiateur de la discussion Initiateur de la discussion robyostar
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

R

robyostar

Guest
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
 

Pièces jointes

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
 
Re : Couleur d'une cellule Format conditionnel

Bonjour robyostar, JHA, eriiiic,
Une proposition:
Code:
[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.
 

Pièces jointes

Dernière édition:
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD
Assurez vous de marquer un message comme solution pour une meilleure transparence.

Discussions similaires

Réponses
8
Affichages
896
V
Réponses
2
Affichages
1 K
V
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…