problèmes avec Données Triées

[sukumar]

Bonjour,

Lorsque j'ai une sélection de plage colonne A = nom de personne et colonne B = numéro. Si j'ai 25 noms de rentrer et 25 numéros et je fait une macro sur 100 lignes, par exemple, pour les triés par ordre alphabétique parce la liste s'allonge à l'occassion. Alors tous les noms se retrouvent à la fin de la plage. C'est à dire que les 75 premières lignes sont vides et mes 25 lignes se retrouvent à la fin.

Est-ce possible de me dire comment on fait pour que cela reste en haut de la plage sélectionner?

Merci de me renseigner!

Claude

 

[Bricofire]

Re : problèmes avec Données Triées

Bonsoir Sukumar, 🙂

Ce qu'il faut faire, c'est cahnger ta méthode de sélection, si tu as 101 lignes un jour ?
Donc Il faut utiliser un truc du genre :

Range(Range("A65536").End(xlup), range(("A4").Select

et adapter, essayes sur quelques données pour voir ce que ça fait...

Edition, vois aussi avec l'enregistreur de macro, fait ta manip et vois le code, c'est un des cas ou le résultat n'est pas trop lourd , en plus tu y gangnes en rapidité, bon sur 100 lignes...!

Bonne nuit,

 

[sukumar]

Re : problèmes avec Données Triées

Merci beaucoup je l'essaie

 

[sukumar]

Re : problèmes avec Données Triées

Rebonjour,

J'aurai du mettre la macro pour que qulequ'un la regarde et la corrige:

Sub ordrealpha()
'
' ordrealpha Macro
' Macro enregistrée le 2006-07-02 par CM
'
' Touche de raccourci du clavier: Ctrl+a
'
Range("A4:B999").Select
Selection.Sort Key1:=Range("A4"), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=True, Orientation:=xlTopToBottom, DataOption1 _
:=xlSortNormal
End Sub

Merci à la personne qui va me la corriger
Claude

 

[Mytå]

Re : problèmes avec Données Triées

Salut le Forum

Sukumar essaye ceci sans de .Select

Sub OrdreAlpha()

Range("A4:B" & Range("B65536").End(xlUp).Row).Sort Key1:=Range("A4"), _
Order1:=xlAscending, Header:=xlGuess, OrderCustom:=1, MatchCase:=True, _
Orientation:=xlTopToBottom, DataOption1:=xlSortNormal

End Sub

Mytå

 

[sukumar]

Re : problèmes avec Données Triées

Merci Myta de m'avoir répondu mais cela ne fonctionne pas. Lorsque je classe par ordre numérique cela se classe par le haut. Mais par ordre alphabétiique ça se classe par le bas.

Merci! d'avoir essayer

 

[CB60]

Re : problèmes avec Données Triées

Bonjour à tous
je pense que cette macro doit convenir pour un tri sur la colonne A, à patir de la cellule A2 ( dans le calsseur je n'avais des infos que sur les colonnes A et B mais si tu souhaite étendre la selection tu doit modifier cette instruction :Columns("A:B").Select

Sub Macro2()

Columns("A:B").Select
Selection.Sort Key1:=Range("a2"), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
Range("A1").activate
End Sub
Bruno