Trie alphabetique sous excel
Résolu/Fermé
saturnin
Messages postés
215
Date d'inscription
jeudi 27 mai 2004
Statut
Membre
Dernière intervention
19 juillet 2016
-
6 déc. 2010 à 16:09
saturnin Messages postés 215 Date d'inscription jeudi 27 mai 2004 Statut Membre Dernière intervention 19 juillet 2016 - 8 déc. 2010 à 20:05
saturnin Messages postés 215 Date d'inscription jeudi 27 mai 2004 Statut Membre Dernière intervention 19 juillet 2016 - 8 déc. 2010 à 20:05
A voir également:
- Trie alphabetique sous excel
- Liste déroulante excel - Guide
- Excel trier par ordre alphabétique - Guide
- Formule excel - Guide
- Si et excel - Guide
- Aller à la ligne excel - Guide
4 réponses
tchernosplif
Messages postés
600
Date d'inscription
dimanche 8 novembre 2009
Statut
Membre
Dernière intervention
21 juin 2015
244
6 déc. 2010 à 16:37
6 déc. 2010 à 16:37
Bonjour,
En exploitant le fait qu'une date commence par 0,1,2 ou 3, vous devriez pouvoir "détecter" les lignes avec les dates. (sinon recherche des / )
A partir de la là, vous pourrez détecter les lignes avec les titres (1 cran au dessus)
Attribuer un numéro à chaque titre (de 10 en 10) puis Faire le tri.
ces numéros serviront à récupérer les infos via un RECHERCHEH.
Envoyez moi votre fichier via cijoint.fr si vous ne comprenez pas.
(j'avoue avoir du mal à comprendre en me relisant^^)
En exploitant le fait qu'une date commence par 0,1,2 ou 3, vous devriez pouvoir "détecter" les lignes avec les dates. (sinon recherche des / )
A partir de la là, vous pourrez détecter les lignes avec les titres (1 cran au dessus)
Attribuer un numéro à chaque titre (de 10 en 10) puis Faire le tri.
ces numéros serviront à récupérer les infos via un RECHERCHEH.
Envoyez moi votre fichier via cijoint.fr si vous ne comprenez pas.
(j'avoue avoir du mal à comprendre en me relisant^^)
Utilisateur anonyme
6 déc. 2010 à 19:08
6 déc. 2010 à 19:08
Bonjour
J'ai regardé ton exemple, si les conditions sont bien 5 lignes pour définir un film, tu peux mettre cette macro.
Sub trieFilm()
Dim nbcellsY As Integer
nbcellsY = Application.WorksheetFunction.CountA(Feuil1.Range("$A:$A"))
For i = 1 To nbcellsY Step 5
Cells(i, 2) = Cells(i, 1) & "0":
For j = 1 To 4
Cells(i + j, 2) = Cells(i, 1) & j
Next j
Next i
End Sub
Principe de fonctionnement, elle prend le nom du film, met dans la colonne B1 seven0, b2 seven1, b3 seven2,b4 seven3,b5 seven4 puis b5 divan0, etc..
tu tries ensuite par rapport à la colonne B et tu effaces la colonne B.
Désolé pour les inconditionnels des formules, il y a certainement la possibilité de faire la même chose avec une formule en B. Je ne les maîtrise pas encore.
Cordialement
agi67
J'ai regardé ton exemple, si les conditions sont bien 5 lignes pour définir un film, tu peux mettre cette macro.
Sub trieFilm()
Dim nbcellsY As Integer
nbcellsY = Application.WorksheetFunction.CountA(Feuil1.Range("$A:$A"))
For i = 1 To nbcellsY Step 5
Cells(i, 2) = Cells(i, 1) & "0":
For j = 1 To 4
Cells(i + j, 2) = Cells(i, 1) & j
Next j
Next i
End Sub
Principe de fonctionnement, elle prend le nom du film, met dans la colonne B1 seven0, b2 seven1, b3 seven2,b4 seven3,b5 seven4 puis b5 divan0, etc..
tu tries ensuite par rapport à la colonne B et tu effaces la colonne B.
Désolé pour les inconditionnels des formules, il y a certainement la possibilité de faire la même chose avec une formule en B. Je ne les maîtrise pas encore.
Cordialement
agi67
eriiic
Messages postés
24569
Date d'inscription
mardi 11 septembre 2007
Statut
Contributeur
Dernière intervention
28 décembre 2023
7 211
6 déc. 2010 à 19:30
6 déc. 2010 à 19:30
Bonsoir,
Un remix des 2...
Avec des titres de colonne en ligne 1, tes données qui commencent en B2 mettre en A2:
=SI(ESTNUM(GAUCHE(B3;8)*1);B2&"_0";GAUCHE(A1;NBCAR(A1)-1)&DROITE(A1;1)+1)
à recopier jusqu'en bas.
Par sécurité copier/collage spécial valeur de la colonne A
Trier sur la colonne A
eric
Un remix des 2...
Avec des titres de colonne en ligne 1, tes données qui commencent en B2 mettre en A2:
=SI(ESTNUM(GAUCHE(B3;8)*1);B2&"_0";GAUCHE(A1;NBCAR(A1)-1)&DROITE(A1;1)+1)
à recopier jusqu'en bas.
Par sécurité copier/collage spécial valeur de la colonne A
Trier sur la colonne A
eric
saturnin
Messages postés
215
Date d'inscription
jeudi 27 mai 2004
Statut
Membre
Dernière intervention
19 juillet 2016
14
8 déc. 2010 à 20:05
8 déc. 2010 à 20:05
MERCI à TOUS la solution était là !! BRAVO
