Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

comment trier???

  • Initiateur de la discussion Initiateur de la discussion jee
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

J

jee

Guest
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
 
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
 
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
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD
Assurez vous de marquer un message comme solution pour une meilleure transparence.

Discussions similaires

Réponses
18
Affichages
428
Réponses
10
Affichages
657
Réponses
17
Affichages
1 K
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…