> Tous les forums > Forum Bureautique
 EXCEL: définir une zone pour un tri
Ajouter un message à la discussion
Page : [1] 
Page 1 sur 1
fayolle
  Posté le 12/03/2005 @ 18:53 
Aller en bas de la page 
Petit astucien
bonjour, je voudrais écrire une macro pour trier le contenu de deux colonnes; le problème c'est que le nombre de lignes à trier peut varier, donc il faudrait adapter la zone de tri; est-ce qu'on peut la définir suivant une condition (par exemple un nombre de lignes non-vides) ? merci PF
Publicité
galopin01
 Posté le 12/03/2005 à 19:22 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
  Astucien
bonsoir, L'idéal s'il n'y a pas de données "parasites" au dessus ou en dessous c'est de selectionner et trier les 2 colonnes entières. Mais il faut pour cela que ton tableau commence en ligne 1. Sinon il existe des formules pour rechercher la plage interressante. Mais il faut d'abord connaitre la structure de ta feuille. (Présence de données "parasites" en bas ou en haut) A+
fayolle
 Posté le 12/03/2005 à 19:35 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
Petit astucien
merci pour ta réponse, galopin, les lignes à trier sont au maximum 32, elles sont entre les lignes 9 et 40 de la feuille, au-dessus et en-dessous il y a des lignes de texte ou des données qui n'ont pas à être triées. et pour la présentation il faut que les lignes restent dans la partie supérieure (à partir de ligne 9) une fois triées. PF
pat1545
 Posté le 12/03/2005 à 19:51 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
Petit astucien
Salut, l'enregistreur de macro donne ceci: Option Explicit Sub Macro2() ' ' Macro2 Macro ' Macro enregistrée le 12/03/2005 par PAT ' ' Range("A9").Select Selection.CurrentRegion.Select ' sélection de toutes les cellules contigues ' tri modifier la cellule éventuellement Selection.Sort Key1:=Range("A10"), Order1:=xlAscending, Header:=xlGuess, _ OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom End Sub Patrick
fayolle a écrit :
merci pour ta réponse, galopin, les lignes à trier sont au maximum 32, elles sont entre les lignes 9 et 40 de la feuille, au-dessus et en-dessous il y a des lignes de texte ou des données qui n'ont pas à être triées. et pour la présentation il faut que les lignes restent dans la partie supérieure (à partir de ligne 9) une fois triées. PF
galopin01
 Posté le 12/03/2005 à 21:03 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
  Astucien
Re : La macro de pat1545 devrait donner satisfaction S'il y a au moins un "trou" quand la 32ème ligne est remplie sinon celle ci va avoir tendance à trier les lignes au delà également. Sinon (s'il n'y pas de trou) et si ton tableau est fixe (tu n'insères pas de ligne) il est préférable d'écrire : (Merci Pat) Range("A10:F39").Select ' modifier le F39 en fonction de la dernière colonne ' tri modifier la cellule éventuellement Selection.Sort Key1:=Range("A10"), Order1:=xlAscending, Header:=xlNoGuess, _ OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom End Sub Nota : J'ai modifié la sélection avec A10 et xlNoGuess car on ne sait pas si la ligne 9 peut être considérée comme une ligne d'en tête. A+

Modifié par galopin01 le 12/03/2005 21:08
pat1545
 Posté le 12/03/2005 à 21:13 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
Petit astucien
de rien Msieur !!! lolllll Patrick si on peut aider... n'insères pas de ligne) il est préférable d'écrire : (Merci Pat)
fayolle
 Posté le 13/03/2005 à 11:50 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
Petit astucien
merci à vous, je n'ai pas tout compris tout de suite mais je vais essayer, je vous tiendrai au courant. PF
Page : [1] 
Page 1 sur 1

Vous devez être connecté pour participer à la discussion.
Cliquez ici pour vous identifier.

Vous n'avez pas de compte ? Créez-en un gratuitement !
Recevoir PC Astuces par e-mail


La Lettre quotidienne +226 000 inscrits
Avec l'actu, des logiciels, des applis, des astuces, des bons plans, ...

Les bonnes affaires
Une fois par semaine, un récap des meilleurs offres.

Les fonds d'écran
De jolies photos pour personnaliser votre bureau. Une fois par semaine.

Les nouveaux Bons Plans
Des notifications pour ne pas rater les bons plans publiés sur le site.

Les bons plans du moment PC Astuces

Tous les Bons Plans
159 €Aspirateur Rowenta Silence Force à 159 €
Valable jusqu'au 27 Février

Amazon fait une promotion sur l'aspirateur Rowenta Silence Force avec sac qui passe à 159 € livré gratuitement, alors qu'on le trouve ailleurs à partir de 200 €. Il fournit des résultats de nettoyage optimaux sur tous types de sols (tapis, moquettes, sols durs) grâce à 3 niveaux de filtration qui capturent 99.998% de la poussière aspirée. Capacité de 4,5 L.


> Voir l'offre
203,01 €Disque dur externe Western Digital My Book 12 To USB 3.0 à 203,01 € livré
Valable jusqu'au 26 Février

Amazon Allemagne propose actuellement le disque dur externe Western Digital My Book 12 To USB 3.0 à 196,54 € (avec la TVA ajustée). Comptez 6,47 € pour la livraison en France soit un total de 203,01 € livré alors qu'on le trouve ailleurs à partir de 230 €. Avec ses 12 To et sa connectique USB 3.0 compatible USB 2.0, vous aurez de quoi stocker vos backup, vos films et vos photos, etc.  A l'intérieur, vous trouverez un disque à hélium UltraStar DC HC 520 White (12 To, 5400 tr/min, 256 Mo cache, CMR -> source satdream.tech). Le disque peut être démonté et réutilisé dans un ordinateur, un NAS, etc. Une très bonne affaire

Vous pouvez utiliser votre compte Amazon France sur Amazon Allemagne et il n'y a pas de douane. Si vous êtes perdu en allemand, vous pouvez traduire le site en anglais.


> Voir l'offre
105 €SSD externe USB 3.1 PNY Elite CS1050 960 Go à 105 €
Valable jusqu'au 27 Février

Amazon fait une promotion sur le SSD externe USB 3.1 PNY Elite CS1050 960 Go qui passe à 105 € livré gratuitement alors qu'on le trouve ailleurs à partir de 130 €. Ce SSD externe ultra compact (5,99 x 3,56 x 0,89 cm, 50 grammes) offre des vitesses allant jusqu'à 420 Mo/s en lecture et en écriture.


> Voir l'offre

Sujets relatifs
Comparaison de deux tableaux EXCEL pour voir les nouveaux adhérents
Creation d' une boucle macro dans fichier EXCEL pour impression
Excel mémoire insuffisante pour ouvrir un nouveau classeur
Macro pour ouverture d'un fichier Excel
Macro pour créer un Gencode sur Excel - EAN 18
icône pour lancer une feuille excel
Aide pour formule excel 2011
log pour copier des accords musicaux à la volée ? excel ?
office Pro 2010 mise en route difficile sauf pour Excel, Publisher et acce
Besoin d'aide pour commencer avec Excel 2010
Plus de sujets relatifs à EXCEL: définir une zone pour un tri
 > Tous les forums > Forum Bureautique