Discussion :

[Capsule]

Bonjour,

il m'arrive un truc bizarre :

dans une maro, je selection une zone et je fais ensuite un tri:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
 
Sub SortAllModels(Region)
 
    Sheets("Raw Data " & Region).Select
    Range("A11:D3305").Select
    Selection.Sort Key1:=Range("b11"), Order1:=xlDescending, Header:=xlNo, _
        OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
End Sub

ce code fonctionnait depuis des mois et encore pas plus tard qu'hier mais aujourd'hui pour je ne sais quelle raison, au lieu de trier, ca efface le contenu de la zone A11:A3305...

Qqn a une idée ??? rien n'a changé sur mon pc...

Quel autre code pourrait-on utiliser pour faire le tri ???


Merci

[ouskel'n'or]

Essaie de mettre

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
    Sheets("Raw Data " & Region).Activate
    Range("A11:D3305").Sort Key1:=Range("b11"), Order1:=xlDescending, Header:=xlNo, _
        OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom

Je n'ai pas en tête si la sélection est indispensable pour un tri mais si cette syntaxe fonctionne, elle est préférable et si tu ne sélectionnes pas, je ne vois pas comment elle pourrait s'effacer (?)
A+

Edit
Je confirme, tu n'es pas obligé de sélectionner la plage à trier

[Capsule]

J'ai essayé mais malheureusement, ca ne change rien au problème...

[Capsule]

en fait, je viens de me rendre compte que ca n'éffacait pas mais que ca mettait les lignes vide en premier alors qu'avant ca les mettait à la fin...

n'ayant pas envie de devori adapter les nombreux fichiers dans lesquels cette macro a été collée, qqn a une idée d'ou ca pourrait venir ????

[helios77]

tu pourrais envoyer ton fichier stp?
Je viens de faire des tests et le tri se apsse très bien
Si je mets des lignes vides volontairement, elles se retrouvent bien à la fin

[Capsule]

je vais avoir du mal car le fichier est lié à notre base de donnée...

mais de fait, jusque jeudi dernier les lignes blanches se mettait à la fin et maintenant elles se mettent au début.

rien n'a été installé sur mon pc et mon code vba n'a pas changé...

Serait-ce un parametre qq part ?

[SfJ5Rpw8]

ben revoi ta zone de tri (il doit y avoir trop de lignes ) ...
pourquoi ces 2 lignes ?

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
 
  Sheets("Raw Data " & Region).Select
    Range("A11:D3305").Select

[Capsule]

ben revoi ta zone de tri (il doit y avoir trop de lignes ) ...
pourquoi ces 2 lignes ?

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
 
  Sheets("Raw Data " & Region).Select
    Range("A11:D3305").Select

Par ce que je dois d'abords changer de feuille (avant le tri je me trouve dans une autre feuille de mon fichier)

Sinon, mon range a cette taille là car il contient 3176 modeles different et que chaque mois cette liste s'agrandit et je dois être sur de bien trier tous les modeles...

[ouskel'n'or]

Si tu ne veux pas modifier ta macro, alors il va être difficile de t'aider
Un tri en ordre inverse mettrait tes lignes vides à la fin.
Ensuite tu redéfinis la plage renseignée (sans les lignes vides) et tu relances ton tri dans le bon ordre

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
Sub RangerLignesVidesAlaFin()
Dim plage
    Range("A11:D3305").Sort Key1:=Range("b11"), Order1:=xlDescending, Header:=xlNo, _
        OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
'Derniereligne = Range("A1").End(xlDown).Row et donc
plage = "A11:" & Cells(Range("A1").End(xlDown).Row, 4).Address
    Range(plage).Sort Key1:=Range("b11"), Order1:=xlAscending, Header:=xlNo, _
        OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
 
End Sub

J'ai foutu le bouzou dans ma base de données qui comporte + de 4 colonnes mais le test est ok si... 3305 est bien la dernière ligne de ta feuille.Sinon, tu remplaces

plage = "A11:" & Cells(Range("A1").End(xlDown).Row, 4).Address

par

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

plage = "A11:" & Cells(Range("A11").CurrentRegion.End(xlDown).Row, 4).Address

Favorise cette dernière syntaxe. Mais là, tes lignes vides seront entre la ligne 3305 et la plage triée (en remontant)
A+

[helios77]

En gros, il suffit de paramétrer ton 3305 en fonction des données renseignées ou non dans tes cellules