Tri personnalisé

Résolu/Fermé

julia Namor Messages postés 524 Date d'inscription jeudi 27 mars 2014 Statut Membre Dernière intervention 13 janvier 2024 - 9 avril 2017 à 08:28
julia Namor Messages postés 524 Date d'inscription jeudi 27 mars 2014 Statut Membre Dernière intervention 13 janvier 2024 - 10 avril 2017 à 14:05

Bonjour,
Je souhaiterai appliquer un tri Az sur une plage en fonction d'une colonne , jusque là pas de soucis ;
Le probléme est que les mises en formes des lignes ne se déplacent pas
Une bonne volonté pour m'aiguiller?

le fichier d'exemple
https://www.cjoint.com/c/GDjgwIYDOZQ
merci beaucoup

A voir également:

Tri personnalisé
Tri excel - Guide
Reveil personnalisé iphone - Guide
Logiciel de tri de photos - Guide
Icone de bureau personnalisé - Guide
Logiciel calendrier personnalisé gratuit - Télécharger - Organisation

10 réponses

Réponse 1 / 10

Vaucluse Messages postés 26496 Date d'inscription lundi 23 juillet 2007 Statut Contributeur Dernière intervention 1 avril 2022 6 394
9 avril 2017 à 09:44

Bonjour
mise en forme conditionnelle, peut être:

effacer la mise en forme actuelle
sélectionner A1:X12
MFC par formule:

=LIGNE()=12 formater jaune

idem pour les autres N° de lignes et couleurs assorties

crdlmnt

Réponse 2 / 10

julia Namor Messages postés 524 Date d'inscription jeudi 27 mars 2014 Statut Membre Dernière intervention 13 janvier 2024 33
9 avril 2017 à 10:32

Merci pour la proposition
J'aurai souhaité par contre une solution vba car le tri se trouve au milieu de procédures vba de création et d'exploitation d'une base de données

Bien merci

Vaucluse Messages postés 26496 Date d'inscription lundi 23 juillet 2007 Statut Contributeur Dernière intervention 1 avril 2022 6 394
9 avril 2017 à 11:27

Alors bonne chance, VBA ce n'est pas mon domaine
crdlmnt

Réponse 3 / 10

julia Namor Messages postés 524 Date d'inscription jeudi 27 mars 2014 Statut Membre Dernière intervention 13 janvier 2024 33
9 avril 2017 à 11:32

Merci d'voir essayé
je vais quand meme potasser sur votre prosition ave la MFC car j'ai l'impression que excel 10 ne permet pas le tri avec format
cordialement

Vaucluse Messages postés 26496 Date d'inscription lundi 23 juillet 2007 Statut Contributeur Dernière intervention 1 avril 2022 6 394
Modifié le 9 avril 2017 à 12:21

Je peux juste dire que le tri ou le filtre par couleur de cellule ou de police fonctionne sur 2013
Si ça ne convient pas, peut être baser la MFC sur une numérotation des lignes, dans une colonne supplémentaire pour la trier avec.

Bonne route
crdlmnt

Réponse 4 / 10

julia Namor Messages postés 524 Date d'inscription jeudi 27 mars 2014 Statut Membre Dernière intervention 13 janvier 2024 33
9 avril 2017 à 14:08

ok ca marche

Vous n’avez pas trouvé la réponse que vous recherchez ?

Posez votre question

Réponse 5 / 10

Frenchie83 Messages postés 2240 Date d'inscription lundi 6 mai 2013 Statut Membre Dernière intervention 11 août 2023 337
9 avril 2017 à 16:42

Bonjour
Un essai avec l'utilisation de VBA
https://www.cjoint.com/c/GDjoQoOVZiw
Cdlt

Réponse 6 / 10

julia Namor Messages postés 524 Date d'inscription jeudi 27 mars 2014 Statut Membre Dernière intervention 13 janvier 2024 33
10 avril 2017 à 09:54

Bonjour

Tres bonne approche qui répond tout à fait à la problématique
Seulement , le traitement est bigrement long sur ma plage de base de données d'environ 200 lignes et les colonnes allant jusqu'a "JXY"

merci de votre aide

Réponse 7 / 10

Frenchie83 Messages postés 2240 Date d'inscription lundi 6 mai 2013 Statut Membre Dernière intervention 11 août 2023 337
10 avril 2017 à 10:17

Bonjour
Avec le blocage des calculs intermédiaires, on gagne un peu de temps.

Option Compare Text
Sub Tri()
    Application.ScreenUpdating = False
    Application.Calculation = xlCalculationManual
    deb = Timer
    For i = 8 To 190
        For j = 8 To 190
            If Cells(j, "F") > Cells(j + 1, "F") Then
                Range(Cells(j, "F"), Cells(j, "JXY")).Copy Destination:=Range(Cells(1, "F"), Cells(1, "JXY"))
                Range(Cells(j + 1, "F"), Cells(j + 1, "JXY")).Copy Destination:=Range(Cells(j, "F"), Cells(j, "JXY"))
                Range(Cells(1, "F"), Cells(1, "JXY")).Copy Destination:=Range(Cells(j + 1, "F"), Cells(j + 1, "JXY"))
            End If
        Next j
    Next i
    Range(Cells(1, "F"), Cells(1, "JXY")).Clear
    Application.Calculation = xlCalculationAutomatic
    MsgBox "durée: " & Timer - deb
End Sub

Si ça vous convient.
Cdlt

Réponse 8 / 10

julia Namor Messages postés 524 Date d'inscription jeudi 27 mars 2014 Statut Membre Dernière intervention 13 janvier 2024 33
10 avril 2017 à 10:36

J'obtiens une durée de traitement à 110,14
C'est trop long .

merci

Réponse 9 / 10

Frenchie83 Messages postés 2240 Date d'inscription lundi 6 mai 2013 Statut Membre Dernière intervention 11 août 2023 337
10 avril 2017 à 12:48

Désolé, j'ai tenté autre chose mais les résultats ne sont guère meilleurs.
Je sais que 110 secondes c'est long, mais vu ce que vous demandez (conservation des couleurs et divers formats utilisés dans les cellules), cela nécessite quelques manipulations gourmandes en ressources.
Je remets le code avec le nombre de ligne indéterminé. Peut-être que quelqu'un aura une meilleure idée.

Sub Tri()
    Application.ScreenUpdating = False
    Application.Calculation = xlCalculationManual
    deb = Timer
    DerLig = [F10000].End(xlUp).Row
    For i = 8 To DerLig - 1
        For j = 8 To DerLig - 1
            If Cells(j, "F") > Cells(j + 1, "F") Then
                Range(Cells(j, "F"), Cells(j, "JXY")).Copy Destination:=Range(Cells(1, "F"), Cells(1, "JXY"))
                Range(Cells(j + 1, "F"), Cells(j + 1, "JXY")).Copy Destination:=Range(Cells(j, "F"), Cells(j, "JXY"))
                Range(Cells(1, "F"), Cells(1, "JXY")).Copy Destination:=Range(Cells(j + 1, "F"), Cells(j + 1, "JXY"))
            End If
        Next j
    Next i
    Range(Cells(1, "F"), Cells(1, "JXY")).Clear
    Application.Calculation = xlCalculationAutomatic
    MsgBox "durée: " & Timer - deb
End Sub

Cdlt

Réponse 10 / 10

julia Namor Messages postés 524 Date d'inscription jeudi 27 mars 2014 Statut Membre Dernière intervention 13 janvier 2024 33
10 avril 2017 à 14:05

Merci en tout cas
déja avec le dernier code on arrive à 14 secondes de traitement
C'est toujours mieux
Je reste toujours ouverte à toute autre proposition
Bien cordialement

Discussions similaires

[Sujet Groupé] Accès impossible à MarketPlace/Facebook

Automatisation du tri google sheet

Powerpoint jeux qui veut gagner des millions

Est-ce que je peux aller chercher un colis à l'agence Chronopost

Création d'un billet personnalisé

Discussions similaires

Newsletters