Tri par date qui marche pas bien.

Re : Tri par date qui marche pas bien.

Re,

J'ai pris le fichier que tu as mis sur ton post, et le tri ne se fait que sur le mois de janvier.

Une Feuille par mois non, j'ai déjà une feuille par année.

Merci

Re : Tri par date qui marche pas bien.

rebonjour
le code est basé sur le nom des mois de la colonne A
si nbre de ligne remplie colonne dates < 1 pas de tri
à bientôt

Re : Tri par date qui marche pas bien.

Re,

Pourquoi quand je copie cette macro dans mon fichier, j'ai cette ligne qui se met en jaune. (Je l'ai mise en vert si non on voit rien).

J'espère ne pas abuser.

Merci.


Sub TRI()
'
' TRI Macro
' Macro enregistrée le 07/12/2006 par XXXX
Dim TblMois(1 To 12, 1 To 1) As String, L As Byte
Dim Cel As Range, Ld As Integer, NbreL As Integer

For L = 1 To 12
TblMois(L, 1) = UCase(Format(DateSerial(2006, L, 1), "mmmm"))
Next L
For L = 1 To 12
With Sheets("2006")
Set Cel = .Columns(1).Find(TblMois(L, 1))
If Not Cel Is Nothing Then Ld = Cel.Row + 3
NbreL = Application.WorksheetFunction.CountIf(.Range("A" & Ld & ":A" & Ld + 56), "<>" & "")
If NbreL > 1 Then
.Range("A" & Ld & ":J" & Ld + NbreL - 1).Sort Key1:=.Range("A7"), Order1:=xlAscending, Header:=xlNo 'Guess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom ', DataOption1:=xlSortNormal
End If
End With

Ld = 0: nbre = 0

Next L
' ActiveWindow.ScrollRow = 46
' ActiveWindow.ScrollRow = 45
' ActiveWindow.ScrollRow = 43
' ActiveWindow.ScrollRow = 41
' ActiveWindow.ScrollRow = 37
' ActiveWindow.ScrollRow = 35
' ActiveWindow.ScrollRow = 33
' ActiveWindow.ScrollRow = 31
' ActiveWindow.ScrollRow = 28
' ActiveWindow.ScrollRow = 27
' ActiveWindow.ScrollRow = 26
' ActiveWindow.ScrollRow = 24
' ActiveWindow.ScrollRow = 23
' ActiveWindow.ScrollRow = 22
' ActiveWindow.ScrollRow = 19
' ActiveWindow.ScrollRow = 18
' ActiveWindow.ScrollRow = 15
' ActiveWindow.ScrollRow = 14
' ActiveWindow.ScrollRow = 11
' ActiveWindow.ScrollRow = 9
' ActiveWindow.ScrollRow = 8
' ActiveWindow.ScrollRow = 7
' ActiveWindow.ScrollRow = 5
' ActiveWindow.ScrollRow = 4
' Range("A6").Select
End Sub

Re : Tri par date qui marche pas bien.

rebonjour,le nom de feuille est-il tjrs 2006,à part cela?
à bientôt

Re : Tri par date qui marche pas bien.

Re,

Ba oui c'est le même nom.

Re : Tri par date qui marche pas bien.

envoye ta feuille avec quelques données

Re : Tri par date qui marche pas bien.

copie la feuille du fichier qui vient d'içi,je pense avoir fait des corrections(espaces devant le mot)dans les cellules ayant les noms de mois
bonne soirée

Re : Tri par date qui marche pas bien.

RE,

J'ai repris le fichier de ton post 23, il n'y a rien de changé, c'est bien de celui ci dont tu parles.

Re : Tri par date qui marche pas bien.

bonsoir 800
je ne vois plus qu'une chose
dans outils - macros (raccourci Alt+F8) macros dans: ce classeur
à bientôt

Re : Tri par date qui marche pas bien.

Re,

Alors la Bebere j'avoue que je suis complétement perdu.Tu veux que je fasse quoi, sur quel fichier.

Ou, quoi ,comment,😕 😕

Un motard a la mer, je coule, help me! help me!!!!!

Re : Tri par date qui marche pas bien.

allez,800 ne pas perdre les pédales,mets le fichier qui te pose problème en pièce jointe
à bientôt

Re : Tri par date qui marche pas bien.

Re,

Alors voilà je remet un fichier qui marche pas, il marche seulement sur le mois de janvier.

A savoir aussi que sur le fichier complet il y a 4 autres feuilles sur lesquelles cette macro doit fonctionner, ces feuille sont nommées, 2007,2008,2009,2010.

Regarde la pièce jointe compte2.zip

Re : Tri par date qui marche pas bien.

salut à tous, le forum

on pourait utiliser une boucle assez simple mais tous tes mois comportent 60 ligne sauf janvier 57 lignes, et aout 59, j'ajoute les ligne manquantes et je te fais la macro

Re : Tri par date qui marche pas bien.

re

voici le fichier
si tu dois le faire sur x feuille, il faut modifier la macro toujour avec une boucle

Re : Tri par date qui marche pas bien.

Re,

Alors Wilfried_42 j'ai pris ton fichier et ajouté une ligne:

Date: le 3/1/06
A débiter: 30€
Déplacée ensuite dans Débité.
Effectué la macro, et la il y a une erreur sur la ligne du 6/1/06

Donc je reviend au point de départ. 😕