Tri par date qui marche pas bien.

[800vfr76]

Bonjour a tous,

J'ai un petit problème avec mon tri par date, il y a parfois des erreurs quand je déplace des sommes dans une autre cellule.

Faut-il changer la formule?

Y a t-il une bonne formule?

Je joint un exemple,le problème vient quand je déplace des sommes de la colonne "A débiter" vers la colonne "Débiter"

J'ai essayé en prenant toutes les colonnes pour le tri mais cela ne change rien.

Merci de votre aide.
@+

Regarde la pièce jointe compte.zip

 

[800vfr76]

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

 

[Bebere]

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

 

[800vfr76]

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

 

[Bebere]

Re : Tri par date qui marche pas bien.

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

 

[800vfr76]

Re : Tri par date qui marche pas bien.

Re,

Ba oui c'est le même nom.

 

[Bebere]

Re : Tri par date qui marche pas bien.

envoye ta feuille avec quelques données

 

[Bebere]

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

 

[800vfr76]

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.

 

[Bebere]

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

 

[800vfr76]

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!!!!!

 

[Bebere]

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

 

[800vfr76]

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

 

[wilfried_42]

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

 

[wilfried_42]

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

 

[800vfr76]

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. 😕