Classement lignes

J'ai encore une question de classement.

Je veux classer des lignes sous certaines conditions.

Ci joint un tableau explicatif.

Merci pour vos réflexions.

Coucou Alex,

VBA est autorisé ?

oui sans probleme

Voilà

merci Juice je vais essayer ça

Re juice

j'ai essayé, ça ne fonctionne pas.

je m'explique : si je colorise les casses moi même avec "couleur de remplissage" ça marche.

Mais dans mon cas les couleurs des cellules viennent d'une mise en forme conditionnelle. ET LA CA NE MARCHE PAS ....

QUE FAIRE??

Pas d'panique !

C'est quoi ta MFC que je puisse faire mes test avec stp ?

LA MFC c'est que sur L'ENSEMBLE du tableau seul les cellules composée de 0 ou 1 sont colorisées ( règle de mise en surbrillance des cellules, puis entre...)

et donc mon classement final c'est : les lignes qui ont QUE DE LA COULEUR apparaissent en haut du classement.

Tu peux me donner ta règle stp x)

je te l'ai donnée la regle. je ne rentre pas de formule

je ne vais pas dans "nouvelles règles "

je fais

• MFC
• Règle de mise en surbrillance des cellules,
• valeurs comprissent entre
• et là j'inscris 0 et 1

c'est tout !

je te l'ai donnée la regle

Non.

Mise en forme conditionnelle > Gérer les règles > Cette Feuille de calcul > Aucune règle n'apparaît

Mais bon bref :3

Maintenant que je connais ta règle, voici le fichier modifier !

• Tu peux modifier le nombre de colonne, ainsi que la colonne de départ de ton tableau

• Tu peux modifier le nombre de ligne

• Chacune des lignes sont testées et sont remplient automatiquement en bleu si il n'y a pas de cellule supérieur ou égal à 2

• Les lignes en bleu sont triées

• Plus besoin de la mise en forme conditionnelle donc, vue que le remplissage ce fait en auto (Mais si tu veux que se soit quand même la MFC qui mette de la couleur, alors supprime les guillemet devant les dernières lignes de code)

Voilà voilà, je reste à ta dispo si besoin ^^

quand je lance le programme sur ma feuille de calcul , ça me met erreur d'execution 1004.

et une seul case se colorise (la XFD 1) qui en plus ne fait pas parti de mon tableau

en tous cas c'est sympa d'avoir reflechi a mon probleme.

J'ai ouvert le fichier partagé et lancé la macro, aucune erreur est apparue et la procédure tourne bien :<

Peux tu me dire quelle est la ligne surlignée quand tu clique sur débogage ?

Alors en fait ta formule fonctionne très bien. donc merci beaucoup !!!

Je viens de trouver le problème. le tableau sur lequel je travaille ne commence pas à la ligne 1. il faut donc que j'arrive à tout remonter .

voici un exemple de ce que je veux faire.

Alex,

Parfait

Bon alors par contre le fait que le tableau ne commence par la ligne 1 donne un travail supplémentaire à la procédure pour la recherche de colonne qui passe par :

k = 101
v = 100

While k >= 100
    k = Range("A" & v).End(xlToRight).Column
    v = v - 1
Wend

Et ensuite la suppression des lignes vide passe par :

Col = Split(Columns(k).Address(ColumnAbsolute:=False), ":")(1)
x = Range(Col & Rows.Count).End(xlUp).Row
f = Range(Col & "1").End(xlDown).Row - 1

If f + 1 <> x Then
    While f <> 0
        Rows(f).Select
        Selection.Delete
        f = f - 1
    Wend
End If

Bref, voilà le fichier modifié

bonsoir juice

je vais essayer ça , je te tiens au courant si ça marche !

SALUT JUICE

Ton programme foctionne bien, merci à toi !