[VBA-E] Qd je "sort", ca efface !

**Capsule** · 09/02/2007, 17h31

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** · 10/02/2007, 01h40

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** · 13/02/2007, 09h54

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

**Capsule** · 13/02/2007, 14h25

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** · 13/02/2007, 14h36

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

**SfJ5Rpw8** · 13/02/2007, 14h37

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** · 13/02/2007, 14h39

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 ?

**Capsule** · 13/02/2007, 14h42

Envoyé par bbil

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

**helios77** · 13/02/2007, 14h42

cela veut dire que tu reçois des données différentes
J'ai fait un petit test

A mon avis, les lignes que tu penses être vides contiennent sans doute un espaces ==> la base est mal alimentée ou sinon va falloir adapté ton code

**helios77** · 13/02/2007, 14h46

je te conseillerais donc de traiter tsdonnées avant de les trier (a moins qu'il y ait moyen de remettre la base de données à jour faiclement et rapidement)
Pour cela, tu devrais parcourir ts cellules et faire

Code :

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

Cells(i,j) = Rtrim(Cells(i,j)

En supposant que tu boucles sur toutes les lignes e colonne) ==> i allant de 12 à 3305 et j de 1 à 4

**SfJ5Rpw8** · 13/02/2007, 14h56

à priori tu tri sur la colonne B ...? cela ve dire que celle-ci est toujours remplie pour les données à trier..?

si oui tu peu utiliser cette colonne pour déterminer la derniére ligne de ton tableau... :

Code :

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

1
2
3
4
5
6
7
 
 Dim iDerlg As Integer
 
  iDerlg = Sheets("Raw Data " & Region).Range("B65535").End(xlUp).Row
 
   Sheets("Raw Data " & Region).Range("A11:D" & iDerlg).Sort Key1:=Range("b11"), Order1:=xlDescending, Header:=xlNo, _
        OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom

**ouskel'n'or** · 13/02/2007, 15h20

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** · 13/02/2007, 15h24

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

**Capsule** · 13/02/2007, 15h42

Merci à tous pour vos reponses...

de fait, je suis bien pbligée de modifier mon code pour trier uniquement les lignes non vides...

ce que je ne comprends pas, c'est que ca a marché sans prob pendant des mois et là, la veille du jour où tout doit être updater, ca ne fonctionne plus....

**helios77** · 13/02/2007, 15h45

Comme je te disais
Peut être que jusqu'à la veille du jour, les zones étaient réellement vide puis tout 'un coup elles semblaient vides mais contenaient un espace.......

C'est la seule explication...t'as pu voir dans la base de données si tu avais des enregistrement avec des espaces ?

**Capsule** · 13/02/2007, 15h52

J'ai vérifier la base de donnée et le fichier excel, tout est bien vide, pas d'espace ni quoique ce soit....

je ne comprends vraiment pas....

[VBA-E] Qd je "sort", ca efface !

Macros et VBA Excel

Partager

Partager