Trier 2 "bouts" de colonne par date

Recherche :

Mot : Pseudo : Filtrer
Bas de page
Auteur	Sujet : Trier 2 "bouts" de colonne par date

Fouinette85

Bonjour,

J'ai un petit problème de tri de colonne.
J'ai deux colonnes comprenant des dates et j'aurais voulu les ranger en ordre décroissant.
J'ai donc fait un code pour trier une colonne mais je n'arrive pas à l'adapter afin qu'il puise les données dans une autre colonne que la B lorsqu'il rencontre une cellule vide.
Je vois met un print écrant du tableau à trier ainsi que l'ébauche de code que j'ai réalisé.

Code :

Columns("B:B" ).Select
ActiveWorkbook.Worksheets("Fiche produit type" ).Sort.SortFields.Clear
ActiveWorkbook.Worksheets("Fiche produit type" ).Sort.SortFields.Add Key:=Range("B1" ), _
SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
nbLigne = Range("B65536" ).End(xlUp).Row
With ActiveWorkbook.Worksheets("Fiche produit type" ).Sort
.SetRange Range("A2:E1" & nbLigne)
.Header = xlNo
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With

http://download.yousendit.com/U0d3b244Nnk4NVYzZUE9PQ

Publicité

Fouinette85

J'ai avancé un peu mais mon code bloque (à partir de la ligne 27) et je n'arrive pas à comprendre pourquoi.
Je suis passée par une colonne intermédiaire réprennant les données des 2 colonnes à trier pour faire au plus simple.

Code :

Dim Ligne As Integer
Dim produit As String
produit = Sheets("reception_donnees" ).Range("D" & cellule).Value
If Range("B65536" ).End(xlUp).Row > Range("C65536" ).End(xlUp).Row Then
Ligne = Range("B65536" ).End(xlUp).Row
Else:
Ligne = Range("E65536" ).End(xlUp).Row
End If
For i = 1 To nbLigne
If Cells(i, 2) <> "" Then
Cells(i, 12) = Cells(i, 2)
ElseIf Cells(i, 5) <> "" Then
Cells(i, 12) = Cells(i, 5)
End If
Next i
Columns("A:L" ).Select
Selection.AutoFilter
ActiveWorkbook.Worksheets(produit).Sort.SortFields.Clear
'la macro s'exécute jusqu'ici
ActiveWorkbook.Worksheets(produit).AutoFilter.Sort.SortFields.Add Key:=Range _
("L1:L20" ), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:= _
xlSortNormal
With ActiveWorkbook.Worksheets(produit).AutoFilter.Sort
.Header = xlYes
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With

Message édité par Fouinette85 le 11-05-2009 à 17:10:24

Fouinette85

Produit est une variable qui traduit mon numéro de produit qui est également mon nom de feuille. Je ne pense pas que ce soit celà qui pose problème car je fonctionnement comme ça dans de nombreuses autres macros sans soucis et que la ligne précédente :

Code :

ActiveWorkbook.Worksheets(produit).Sort.SortFields.Clear

fonctionne normalement et me renvoi un numéro de produit correpondant à une feuille belle et bien créer.

Merci du coup de main quand même

kiki29

Ok, je me suis enduit d'erreur
il faudrait un fichier même parcellaire

Fouinette85

Il est compliqué de fournir un fichier "parcellaire" car comme tu peux le constater mes macros font référence à pas mal de feuilles du fichier. Je t'envoi donc la version intégrale en espérent que le fichier ne t'effraira pas trop ^^

Je t'es affiché une feuille produit (n°758884) afin que tu vois ce que je devrais obtenir après l'application de ce bout de macro que tu peux trouver dans le module "fonction" => "Public Sub parcoursDonnees()"

http://www.yousendit.com/download/ [...] YUIzZUE9PQ

Message édité par Fouinette85 le 11-05-2009 à 17:47:14

kiki29

Salut, voir fichier modifié sur http://cjoint.com/?flsI5RwEiK

For i = 1 To nbLigne

remplacé par

For i = 2 To Ligne

ActiveWorkbook.Worksheets(produit).Sort.SortFields.Clear
ActiveWorkbook.Worksheets(produit).AutoFilter.Sort.SortFields.Add Key:=Range _
("L1:L20" ), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:= _
xlSortNormal
With ActiveWorkbook.Worksheets(produit).AutoFilter.Sort
.Header = xlYes
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With

remplacé par

ActiveWorkbook.Worksheets(produit).Sort.SortFields.Clear
ActiveWorkbook.Worksheets(produit).Sort.SortFields.Add Key:=Range("L2:L20" ) _
, SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal

With ActiveWorkbook.Worksheets(produit).Sort
.SetRange Range("A2:L20" )
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With

Mais l'erreur principale est dans

For i = 1 To nbLigne

qui empiète sur le header avec en plus NbLigne qui reste à 0

Qqs utilitaires
SmartIndenter sur http://www.oaltd.co.uk/Indenter/Default.htm
MZ Tools for VBA sur http://www.mztools.com/v3/mztools3.aspx

Utiliser systématiquement Option Explicit
Te renseigner sur CodeName par exemple sur http://www.ozgrid.com/VBA/excel-vba-sheet-names.htm

Message édité par kiki29 le 11-05-2009 à 22:13:26

Fouinette85

Merci du coup de main je testerai tes utilitaires chez moi car au boulot je ne peux pas les installer. Mon problème n'est toujours pas résolu mais je continue de me pencher sur le sujet.

kiki29

Salut, qqs modifs : notamment j'ai remplacé ">" par ">=" ainsi que 65536 par Rows.Count et insertion de "Ligne" dans les procédures de tri

'Tri par date de facturation ou proposition
If Range("B" & Rows.Count).End(xlUp).Row >= Range("C" & Rows.Count).End(xlUp).Row Then
Ligne = Range("B" & Rows.Count).End(xlUp).Row
Else:
Ligne = Range("E" & Rows.Count).End(xlUp).Row
End If

For i = 2 To Ligne
If Cells(i, 2) <> "" Then
Cells(i, 12) = Cells(i, 2)
ElseIf Cells(i, 5) <> "" Then
Cells(i, 12) = Cells(i, 5)
End If
Next i

ActiveWorkbook.Worksheets(produit).Sort.SortFields.Clear
ActiveWorkbook.Worksheets(produit).Sort.SortFields.Add Key:=Range("L2:L" & Ligne), _
SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
With ActiveWorkbook.Worksheets(produit).Sort
.SetRange Range("A2:L" & Ligne)
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With

Columns("A:L" ).Select
Selection.AutoFilter

Message édité par kiki29 le 12-05-2009 à 21:24:41

Fouinette85

Merci bien j'avais réussi à gérer le prob avec la fonction si mais j'utilise tes modifs de Rows.Count à la place de 65536.
Merci du coup de main

FORUM HardWare.fr

Programmation

VB/VBA/VBS

Trier 2 "bouts" de colonne par date

Sujets relatifs
Requete SQL , PHP et Date (mois)	convertir une date en seconde depuis 1970 !!!
requêtes d'insertions inexécutable concat date + comparaison avec nom	Enregistrer date format fr dans BDD MySQL
[C] Créer un tableau + trier des données avant envoi	Déplacer une colonne
DATE_FORMAT	boucle sur colonne
détermination d'une date	Largeur de colonne tableau - css
Plus de sujets relatifs à : Trier 2 "bouts" de colonne par date

Page générée en 0.087 secondes