comment trier???

[jee]

Bonjour le forum
J'ai créé un bouton sur une FEUILLE 1 qui trie ma FEUILLE 2

voilà mon bouton:



'selection de la feuille et selection du tableau

Sheets("FEUILLE2").Select
Range("A12:E26").Select

'Copie de la selection hors du tableau et 'trie du tableau et recoller dans le tableau d'origine

Selection.Copy
Range("N11").Select
ActiveSheet.Paste
Application.CutCopyMode = False
Selection.Sort Key1:=Range("N11"), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal
Selection.Copy
Range("A12").Select
ActiveSheet.Paste

'suppression des valeur extérieur du tableau

Range("M10:S25").Select
Application.CutCopyMode = False
Selection.ClearContents


En faite je fais une copie de mon tableau je le trie et je colle ma liste triée dans le tableau a la place des valeurs non triées.Puis je supprime les valeurs non utilisées

Mon PROB c'est que ça bloque sur: Range("A12:E26").Select

si quelqu'un a une solution merci

 

[omicron]

Bonjour jee

Tu peux essayer

Sheets("feuille2").Range("A12:E26").Select

ActiveSheet.Range("N11").Select

ActiveSheet.Range("M10:S25").Select

Cela devrai résoudre le problème ...

Cordialement.

Omicron

 

[Gérard DEZAMIS]

Bonjour Jee et Omicron

En nommant la plage A12:E26 "selection" par exemple
et ensuite en faisant reference à ce nom cela eviterai d'avoir à préciser à chaque manip le chemin complet ... feuille 2 feuille 1 ou autre.
Si cela peut ameliorer encore la solution d'Omicron...
On ne sait jamais
@+
GD

 

[jee]

Merci beaucoup je vous tiens au courant dès que je suis chez moi

a+