Liste par rang
Résolu/Fermé
parifa07
Messages postés
38
Date d'inscription
samedi 4 février 2017
Statut
Membre
Dernière intervention
24 juillet 2020
-
6 mars 2020 à 18:43
parifa07 Messages postés 38 Date d'inscription samedi 4 février 2017 Statut Membre Dernière intervention 24 juillet 2020 - 7 mars 2020 à 12:35
parifa07 Messages postés 38 Date d'inscription samedi 4 février 2017 Statut Membre Dernière intervention 24 juillet 2020 - 7 mars 2020 à 12:35
A voir également:
- Liste par rang
- Liste déroulante excel - Guide
- Liste déroulante en cascade - Guide
- Gertrude a préparé la liste des affaires à prendre pour l'excursion. juliette a modifié cette liste en utilisant le mode suivi des modifications proposé par le traitement de texte. - Guide
- Annuaire inversé gratuit liste rouge - Forum Mobile
- Trouver numéro liste rouge gratuitement ✓ - Forum Mobile
2 réponses
via55
Messages postés
14476
Date d'inscription
mercredi 16 janvier 2013
Statut
Membre
Dernière intervention
25 septembre 2024
2 729
Modifié le 7 mars 2020 à 00:48
Modifié le 7 mars 2020 à 00:48
Bonsoir
Avec une macro :
Cdlmnt
Via
Avec une macro :
Sub tri_numalpha() Dim a() Dim b() pl = 3 'n° de la 1ere ligne du tableau A MODIFIER SI NECESSAIRE nb = Application.WorksheetFunction.CountA(Range("A:A")) ReDim a(nb) ReDim b(nb) '---- relève données For i = 1 To nb a(i) = Range("B" & i + pl - 1) b(i) = Range("A" & i + pl - 1) Next i '---- tri For i = 1 To nb For j = i To nb If a(j) < a(i) Or (a(i) = a(j) And b(i) > b(j)) Then temp = a(j) temp2 = b(j) a(j) = a(i) a(i) = temp b(j) = b(i) b(i) = temp2 End If Next j Next i '--- affichage For i = 1 To nb Range("C" & i + pl - 2) = b(i) Next End Sub
Cdlmnt
Via
Raymond PENTIER
Messages postés
58674
Date d'inscription
lundi 13 août 2007
Statut
Contributeur
Dernière intervention
1 octobre 2024
17 203
7 mars 2020 à 03:13
7 mars 2020 à 03:13
parifa07
Messages postés
38
Date d'inscription
samedi 4 février 2017
Statut
Membre
Dernière intervention
24 juillet 2020
7 mars 2020 à 05:22
7 mars 2020 à 05:22
Bjr Raymond,
J'ai besoin d'automatisé cette tache mais je ne maitrise pas les macro
J'ai besoin d'automatisé cette tache mais je ne maitrise pas les macro
7 mars 2020 à 05:18
Auriez vous une solution par formule plutot qu'utiliser la macro?
7 mars 2020 à 10:33
Salutations Raymond ☺
Par formules non car il faut faire 2 tris, la solution la plus simple est celle de Raymond mais j'avais bien compris que tu ne voulais pas trier sur place
Pour la macro c'est simple tu n'as qu'à la copier, tu ouvres l'éditeur VBA avec Alt+F11
Tu fais Insertion - Module et tu colles la macro dans la page blanche, tu corriges éventuellement la 3eme ligne pour la ligne de départ et tu fermes 'éditeur
Ensuite il suffit à partir de ta feuille dans le ruban d'aller dans Developpeur - Macros, de choisir la macro et de la faire executer (tu peux même dans Macros - Options chosir un raccourci clavier pour la macro pour la lancer ensuite directement)
Cdlmnt
Via
7 mars 2020 à 12:35
Très bon weekend à vous.
Cdt