Microsoft 365 tri feuille

[Usine à gaz]

Bonjour à toutes,
Je vous souhaite une belle journée 🙂

Je bute sur mon code de tri et je n'arrive pas à trouver le bon code
J'ai un code fait avec excel :

    ActiveWorkbook.Worksheets("Appels").Sort.SortFields.Clear
    ActiveWorkbook.Worksheets("Appels").Sort.SortFields.Add(Range("J4:J10000"), xlSortOnCellColor, xlAscending, , xlSortNormal).SortOnValue.Color = RGB(55, 86, 35)
    With ActiveWorkbook.Worksheets("Appels").Sort
        .SetRange Range("A4:zz10000")
        .Header = xlGuess
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With

Je voudrais utiliser le code que m'avait donné job75 :

    With ActiveSheet 'Feuil1 'CodeName
    If .FilterMode Then .ShowAllData 'si la feuille est filtrée
    With .Rows("4:" & .Range("a65536").End(xlUp).Row)
        If .Row < 4 Then Exit Sub 'sécurité
        .Sort .Columns(1), xlAscending, Header:=xlNo
    End With
    End With

en y incluant le tri sur la couleur des cellules :
SortOnValue.Color = RGB(55, 86, 35)

Mais je n'y arrive pas 😡
Pourriez-vous m'aider ?
(si besoin, je ferai un petit fichier test)
Un grand remerciement,
Amicalement,
lionel,

 

[sylvanu]

Bonjour Lionel,
Que voulez vous colorez ?
A voir votre formule on peut supputer que vous voulez colorer la zone de tri, dans ce cas pourquoi ne pas faire simplement :

    With .Rows("4:" & .Range("a65536").End(xlUp).Row)
        If .Row < 4 Then Exit Sub 'sécurité
        .Sort .Columns(1), xlAscending, Header:=xlNo
        .Interior.Color = RGB(55, 86, 35)
    End With

 

[TooFatBoy]

Bonjour,

en y incluant le coloration :
SortOnValue.Color = RGB(55, 86, 35)

Tu veux trier en fonction de la couleur du texte (ou de la cellule) ?

La couleur du texte (ou de la cellule) est mise par MFC ?

 

[Usine à gaz]

Bonjour sylvanu, Marcel32,
Je voudrais uniquement trier sur la couleur des cellules (les cellules sont déjà colorées) 🙂
Il n'y a pas de mfc

 

[TooFatBoy]

Il y a des exemples, alors regarde si ça peut t'aider : https://docs.microsoft.com/fr-fr/office/vba/api/excel.sortfield.sortonvalue

 

[Usine à gaz]

Re-Bonjour 🙂
https://docs.microsoft.com/fr-fr/office/vba/api/excel.sortfield.sortonvalue
Avec le lien de Microsoft, je ne m'en suis pas sorti 😡
lionel 🙂

 

[sylvanu]

Re bonjour,
Un exemple en PJ issu de la doc MS.
Il tri déjà les cellules fond rouge, puis tri par ordre alpha dans les rouges, puis dans le reste avec :

Sub TriCouleur()
    Range("B1:B25").Select
    ActiveWorkbook.Worksheets("Sheet1").Sort.SortFields.Clear
    ActiveWorkbook.Worksheets("Sheet1").Sort.SortFields.Add(Range("B1:B25"), _
        xlSortOnCellColor, xlAscending, , xlSortNormal).SortOnValue.Color = RGB(255, 0 _
        , 0)
    ActiveWorkbook.Worksheets("Sheet1").Sort.SortFields.Add Key:=Range("B1:B25") _
        , SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
    With ActiveWorkbook.Worksheets("Sheet1").Sort
        .SetRange Range("B1:B25")
        .Header = xlGuess
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With
    Range("A1").Select
End Sub

Si c'est cela que vous vouliez faire. 😂

 

[Usine à gaz]

Merci sylvanu pour ton retour 🙂

Effectivement, j'avais aussi ce code qui fonctionne et qui fait le travail.
Mais je souhaite faire la même chose sous la forme du code de Gérard :

    With ActiveSheet 'Feuil1 'CodeName
    If .FilterMode Then .ShowAllData 'si la feuille est filtrée
    With .Rows("4:" & .Range("a65536").End(xlUp).Row)
        If .Row < 4 Then Exit Sub 'sécurité
        .Sort .Columns(1), xlAscending, Header:=xlNo
    End With
    End With

En remplaçant : .Sort .Columns(1), xlAscending, Header:=xlNo
par le code Microsoft : .Sort.SortFields.Add(Range("B1:B25"), xlSortOnCellColor, xlAscending, , xlSortNormal).SortOnValue.Color = RGB(255, 0 , 0)

Est-ce possible à ton avis ?
lionel 🙂

 

[TooFatBoy]

En remplaçant : .Sort .Columns(1), xlAscending, Header:=xlNo
par le code Microsoft : .Sort.SortFields.Add(Range("B1:B25"), xlSortOnCellColor, xlAscending, , xlSortNormal).SortOnValue.Color = RGB(255, 0 , 0)

Pardon pour cette question, mais cest censé faire quoi concrètement ?

 

[Usine à gaz]

Re Marcel,

C'est pour tier sur les couleurs des cellules 🙂

 

[sylvanu]

La ligne qui tri les couleurs n'est pas dans le With End with mais avant. C'est la ligne :

ActiveWorkbook.Worksheets("Sheet1").Sort.SortFields.Add(Range("B1:B25"), _
        xlSortOnCellColor, xlAscending, , xlSortNormal).SortOnValue.Color = RGB(255, 0 _
        , 0)

 

[Usine à gaz]

Re Marcel,

ça Beug :

 With ActiveSheet 'Feuil1 'CodeName
    If .FilterMode Then .ShowAllData 'si la feuille est filtrée
    With .Rows("4:" & .Range("a65536").End(xlUp).Row)
        If .Row < 4 Then Exit Sub 'sécurité
        .Sort.SortFields.Add(Range("B1:B25"), xlSortOnCellColor, xlAscending, , xlSortNormal).SortOnValue.Color = RGB(55, 86, 35)
    End With
    End With

lionel 🙂

 

[sylvanu]

Re bonsoir,
Un ultime et dernier essai mixant les deux codes :

Sub TriCouleur()
    ActiveWorkbook.Worksheets("Sheet1").Sort.SortFields.Clear
    ActiveWorkbook.Worksheets("Sheet1").Sort.SortFields.Add(Range("B4:B28"), _
        xlSortOnCellColor, xlAscending, , xlSortNormal).SortOnValue.Color = RGB(55, 86, 35)
    ActiveWorkbook.Worksheets("Sheet1").Sort.SortFields.Add Key:=Range("B4:B28") _
        , SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
        
    DL = ActiveWorkbook.Worksheets("Sheet1").Range("B65536").End(xlUp).Row
    Set Plage = ActiveWorkbook.Worksheets("Sheet1").Range("B4:B" & DL)
    With ActiveWorkbook.Worksheets("Sheet1").Sort
        .SetRange Plage
        .Header = xlGuess
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With
    Range("A1").Select
End Sub

 

[Usine à gaz]

Re sylvanu,
merci encore pour ta gentillesse,
je vais voir 🙂

 

[sylvanu]

Oups!
Prenez cette PJ, dans le précédent la plage pour la couleur était fixe.

Sub TriCouleur()
    DL = ActiveWorkbook.Worksheets("Sheet1").Range("B65536").End(xlUp).Row
    
    ActiveWorkbook.Worksheets("Sheet1").Sort.SortFields.Clear
    ActiveWorkbook.Worksheets("Sheet1").Sort.SortFields.Add(Range("B4:B" & DL), _
        xlSortOnCellColor, xlAscending, , xlSortNormal).SortOnValue.Color = RGB(55, 86, 35)
    ActiveWorkbook.Worksheets("Sheet1").Sort.SortFields.Add Key:=Range("B4:B" & DL) _
        , SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
        
    
    Set Plage = ActiveWorkbook.Worksheets("Sheet1").Range("B4:B" & DL)
    With ActiveWorkbook.Worksheets("Sheet1").Sort
        .SetRange Plage
        .Header = xlGuess
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With
    Range("A1").Select
End Sub