TRIER

Dany02_110 Messages postés 7 Date d'inscription Statut Membre Dernière intervention -
Dany02_110 - 3 juil. 2019 à 14:28

Bonjour à tous,

Une fois de plus, je viens vous solliciter.
J'ai un classeur avec à l'intérieur plusieurs onglets.
Chaque onglets contient un tableau.
TOUS les tableaux sont identiques sur la conception mais pas sur la longueur.
Dans la largeur les tableaux vont de la colonne A à AH.
En cours de mois, il se peut que l'un des commerciaux apporte de nouveaux contrats, ou modifications.
Ces modifications ne sont pas forcément dans l'ordre des dates (colonne A)
Je voudrai donc une macro qui me fasse le tri croissant de :
la cellule A7 à la dernière ligne écrite du tableau de la colonne AH.

Espérant avoir été assez clair et précis,
MERCI de votre aide.
Dany.

Configuration: Windows / Firefox 67.0

Afficher la suite

A voir également:

TRIER
Excel trier par ordre croissant chiffre - Guide
Logiciel pour trier les photos automatiquement - Guide
Vba trier colonne par ordre croissant - Forum VB / VBA
Trier tableau word nom de famille - Forum Word
Excel trier par date ne fonctionne pas ✓ - Forum Excel

8 réponses

Réponse 1 / 8

danielc0 Messages postés 1859 Date d'inscription Statut Membre Dernière intervention 231

Bonjour,

Est-ce qu'il s'agit d'une plage ou d'un Tableau, au sens Excel 2007 et versions postérieures) du terme ?

Cordialement.

Daniel

Dany02_110

Pardon, désolé danielc0,
je t'ai répondu, mais je ne sais pas ce qui c'est passé, très certainement j'ai dû oublié de valider,
c'est pourquoi, je pense la réponse n'apparait pas.
Tu peux avoir un complément d'information en lisant ma réponse un peu plus bas à Frenchie83.
Encore MILLE excuses.

Réponse 2 / 8

Dany02_110

Hello, bonjour à tous,

Vraiment PERSONNE pour m'aider ?
Merci de votre réponse.

Réponse 3 / 8

Frenchie83 Messages postés 2240 Date d'inscription Statut Membre Dernière intervention 338

Bonjour,

Vous n'avez pas répondu à la question posée Danielc0
Plage (sous forme de tableau) ou Tableau (structuré)?
en attendant voici une procédure pour le cas "Plage (sous forme de tableau)",

A tester

Sub Tri_Plage()
    Application.ScreenUpdating = False
    For i = 1 To Sheets.Count
        Sheets(i).Select
        Range("A2:AH" & [A1].CurrentRegion.Rows.Count + 1).Sort [A1], 1
    Next i
End Sub

Cdlt

Dany02_110

Bonjour et merci Frenchie83,

En fait non ce n'est pas ça que je voudrai.
TOUS mes tableaux sont IDENTIQUES.
De la colonne A à la colonne AH.
SAUF le nombre de lignes, qui en fonction de l'ancienneté peut être + ou - important.
Ma zone de tri va de la cellule A7 à la dernière ligne écrite de la colonne A et étendue à la colonne AH.
Pourquoi la dernière ligne écrite de la colonne A ?
Car dans mon tableau la colonne A représente la date, c'est donc forcément la première cellule remplie.
Ce qui n'est pas le cas de la colonne AH. (cette colonne est un total, qui peut être = à 0 ou vierge)
De plus sous mon tableau il y a d'autres renseignements et eux je ne veux pas qu'ils soient triés.
et ensuite faire un tri ascendant de la colonne A.
Voilà j'espère avoir été plus clair.
Merci.

danielc0 Messages postés 1859 Date d'inscription Statut Membre Dernière intervention 231 > Dany02_110

Bonjour,

En fait, à ma connaissance, je ne pense pas qu'il soit possible de trier une partie d'un tableau, ou alors, tes données commencent en A7 ?. Pour être sûr qu'il s'agit d'un "tableau", clique dedans. Un onglet "Création de tableau" apparaît dans le ruban :

Daniel

Dany02_110 > danielc0 Messages postés 1859 Date d'inscription Statut Membre Dernière intervention

OUI danielc0, les données à trier commencent en A7 comme inscrit juste au dessus.
Malheureusement NON, je ne veux pas et je ne peux pas utiliser la création de tableau car celui-ci IMPOSE deux couleurs et moi il m'en faut plus.

Réponse 4 / 8

Frenchie83 Messages postés 2240 Date d'inscription Statut Membre Dernière intervention 338

De plus sous mon tableau il y a d'autres renseignements et eux je ne veux pas qu'ils soient triés.
et ensuite faire un tri ascendant de la colonne A. Voilà j'espère avoir été plus clair. Pas vraiment.

Une représentation d'un de vos tableaux aiderait considérablement à la compréhension du problème et offrirait un gain de temps non négligeable dans sa résolution.

Dany02_110

Désolé pour cette réponse si tardive, j'ai dû m'absenter.
J'ai fais une extraction de deux tableaux, mais je ne sais pas comment vous les joindre.
Comment fait-on ?

danielc0 Messages postés 1859 Date d'inscription Statut Membre Dernière intervention 231 > Dany02_110

Essaie :

Sub Tri()
  Dim DerLigne As Long
  DerLigne = Range("A7", Cells(Rows.Count, 1)).Find("*", , , , xlByRows, xlPrevious).Row
  Range("A7:AH" & DerLigne).Sort [A7], xlAscending, Header:=xlNo
End Sub

Dany02_110

Bonjour danielc0,

SUPER ! ça fonctionne impeccable.
Je n'ai pas eu le temps de le regarder et de le tester hier, je viens donc de le faire maintenant.
SUBLIME, ça marche du tonnerre.
Un GRAND MERCI à vous deux, Frenchie83 et danielc0,
une GROSSE épine du pied enlevée.
Encore sincèrement MERCI à tous les deux.

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

Posez votre question

Réponse 5 / 8

Frenchie83 Messages postés 2240 Date d'inscription Statut Membre Dernière intervention 338

Voici comment joindre un fichier via mon-partage.fr :

Étape 1 : clic sur« CHOISIR UN FICHIER » ; sélectionnez le fichier à joindre.

Étape 2 : descendre, cliquez sur "Uploader"

Etape3: copiez le lien fourni et coller ici dans la réponse

Dany02_110

https://mon-partage.fr/f/jOGERDXD/

Dany02_110

J'espère que ça à marché ?

Dany02_110

Voilà donc je voudrai (je souhaiterai) que la macro me fasse pour l'onglet " MOI ", un tri à partir de la cellule A7 jusque la dernière ligne écrite de la colonne A (ligne 314) et étendue jusqu'à la colonne AH pour garder les données respectives de chacun.
Idem pour " TOI " de la cellule A7 à la dernière ligne écrite de la colonne A ( ligne 57) et étendue jusqu'à la colonne AH pour garder les données respectives de chacun.
Je sais que ça marche, je l'ai déjà vu, notamment avec " derlig " comme dans ma macro ARCHIVER.
Mais je n'arrive plus à la retrouver.

Réponse 6 / 8

Frenchie83 Messages postés 2240 Date d'inscription Statut Membre Dernière intervention 338

Voilà

Sub Tri_Plage()
    Application.ScreenUpdating = False
    For i = 1 To Sheets.Count
        Sheets(i).Select
        Range("A7:AH" & [A7].End(xlDown).Row).Sort [A1], 1
    Next i
End Sub

Cdlt

Dany02_110

Désolé Frenchie83, mais ça ne fonctionne pas.
Message d'erreur "1004"
Apparemment c'est dernière ligne de commande qui pose problème.
Elle est surlignée en jaune.
Range("A7:AH" & [A7].End(xlDown).Row).Sort [A1], 1

Réponse 7 / 8

Frenchie83 Messages postés 2240 Date d'inscription Statut Membre Dernière intervention 338

Sub Tri_Plage()
Application.ScreenUpdating = False
For i = 1 To Sheets.Count
Sheets(i).Select
[A6] = "x"
Range("A7:AH" & [A7].End(xlDown).Row).Sort [A6], 1
Next i
End Sub

Dany02_110

Désolé, EXACTEMENT le MÊME problème.

Réponse 8 / 8

Frenchie83 Messages postés 2240 Date d'inscription Statut Membre Dernière intervention 338

Bizarre, ça marche bien chez moi.

Revoici votre fichier, modifiez des dates et la ncez la macro du module 3
https://mon-partage.fr/f/4h3Chy0C/

Dany02_110

Je viens d'essayer avec ton partage SANS le télécharger.
Idem, ça NE fonctionne PAS.
Franchement je ne comprends pas.
En tout cas, MERCI pour toute l'énergie, le temps et la patience pour m'aider.
Et pourtant je l'ai déjà vu fonctionner, mais IMPOSSIBLE de le retrouver.

Discussions similaires

Problème de tri de date sur Excel

Comment trier des dates chronologiquement ?

Problème format date et tri sous Excel

Trier Prenom Nom dans même cellule

logiciel de tri photo

Votre réponse

Discussions similaires