Important:traitement d'un emploi du temps

[rainbow69006]

Bonjour

J'ai un emploi du temps avec des cellules grise.
par contre celle la n'apparaissent pas dans l'ordre

Je vous joint mon fichier cela sera beaucoup plus clair

Merci beaucoup de votre aide

 

[JCGL]

Re : Important:traitement d'un emploi du temps

Bonjour à tous,

Comment veux-tu trier tes lignes, sur quels critères.
Tu ne donnes aucune indication...

Tu voulais un "rangement dans l'ordre", tu l'as par ajout d'une colonne... et d'un bouton GO

Donne plus explications, c'est aussi très important...

A+

 

[Cousinhub]

Re : Important:traitement d'un emploi du temps

Bonsoir rainbow, JC

si j'ai compris (????), peut-être sur le fichier joint....

Sub tri_gris()
Application.ScreenUpdating = False
Columns("A:A").Insert Shift:=xlToRight
For Each cel In Range(Cells(4, 6), Cells([B65000].End(xlUp).Row, [IV3].End(xlToLeft).Column))
    If cel.Interior.ColorIndex = 15 Then Cells(cel.Row, 1).Value = cel.Column - 5
Next cel
    Range(Cells(4, 1), Cells([B65000].End(xlUp).Row, [IV3].End(xlToLeft).Column)).Sort _
        Key1:=Range("A4"), Order1:=xlAscending, Header:=xlGuess
    Columns("A:A").Delete Shift:=xlToLeft
End Sub

 

[rainbow69006]

Re : Important:traitement d'un emploi du temps

Bonjour CGCL

En fait je voudrais un tri en fonction de mes couleurs.

J'ai refais un fichier avec plus d'expliquations

merci

 

[Cousinhub]

Re : Important:traitement d'un emploi du temps

Re-,
je crois que j'ai une boule de cristal...😀

 

[JCGL]

Re : Important:traitement d'un emploi du temps

Re,
Salut BH*2,

Je place un message (au lieu d'éditer...) pour dire :

TU ME PRETES TA BOULE DE CRISTAL

Bravo pour la compréhension de la demande et la solution apportée

A+

 

[rainbow69006]

Re : Important:traitement d'un emploi du temps

Oui en effet cela marche bien dans ton exemple.

Cependant moi j'utilise du format conditionnel

Voir fichier joint.

Et a ce moment la cela ne marche pas.

 

[Cousinhub]

Re : Important:traitement d'un emploi du temps

Re-,
c'était pas marqué, le format conditionnel....😡

remplace la ligne :

If cel.Interior.ColorIndex = 15 Then Cells(cel.Row, 1).Value = cel.Column - 5
Next cel

par :

If cel.Value = 1 Then Cells(cel.Row, 1).Value = cel.Column - 5
Next cel

 

[rainbow69006]

Re : Important:traitement d'un emploi du temps

Oui desoler je ne pensais pas que cela aller changer quelque chose.

Le code marche parfaitement!!!

par contre je voudrais rajouter 3 collones du meme type a mon tableau
et je ne vois pas ce qu'il faut changer pour que sa les prennent en compte
J'ai essayer de changer
Range(Cells(4, 6) en Range(Cells(4, 9)
Mais visiblement ce n'etais pas sa

merci

 

[Cousinhub]

Re : Important:traitement d'un emploi du temps

Re-,
normalement, avec cette ligne :

For Each cel In Range(Cells(4, 6), Cells([B65000].End(xlUp).Row, [IV3].End(xlToLeft).Column))

même en rajoutant une (ou des) colonne(s), c'est pris en compte, pour peu que les titres (1er, 2ème...) soient sur la ligne 3
je pars de la cellule la plus à droite ([IV3]), et je cherche le numéro de la première colonne non vide vers la gauche. Dons, si elles sont bien sur la ligne 3 et remplies, il ne devrait pas y avoir de problème...

 

[rainbow69006]

Re : Important:traitement d'un emploi du temps

Je joint mon fichier avec ton code.

Tu va voir les derniere colonnes ne bougent pas de place

Bizarre je dirais meme bizarre

 

[rainbow69006]

Re : Important:traitement d'un emploi du temps

Eh oui mes titres n'etais pas sur la ligne 3 je suis bete!!!

par contre la ligne 4 n'est pas prise en compte!

J'ai changer dans ton code tout les 4 en 3 et sa a l'air de marcher

Merci