Classer ordre alphabétique Excel
Fermé
Fil
-
26 mai 2015 à 11:40
via55 Messages postés 14405 Date d'inscription mercredi 16 janvier 2013 Statut Membre Dernière intervention 25 avril 2024 - 26 mai 2015 à 17:34
via55 Messages postés 14405 Date d'inscription mercredi 16 janvier 2013 Statut Membre Dernière intervention 25 avril 2024 - 26 mai 2015 à 17:34
A voir également:
- Classer les feuilles excel par ordre alphabétique
- Classer par ordre alphabétique excel plusieurs colonnes - Guide
- Liste déroulante excel - Guide
- Formule excel - Guide
- Fusionner feuilles excel - Guide
- Si et excel - Guide
1 réponse
via55
Messages postés
14405
Date d'inscription
mercredi 16 janvier 2013
Statut
Membre
Dernière intervention
25 avril 2024
2 703
26 mai 2015 à 14:22
26 mai 2015 à 14:22
Bonjour
Oui tu as raison il faut une macro pour automatiser le processus
Cette macro il faut la créer
Postes un exemple allégé et anonymé de ton fichier sur cjoint.com et reviens ici indiquer le lien fourni, je regarderai comment adapter une macro à ton cas
Cdlmnt
Via
Oui tu as raison il faut une macro pour automatiser le processus
Cette macro il faut la créer
Postes un exemple allégé et anonymé de ton fichier sur cjoint.com et reviens ici indiquer le lien fourni, je regarderai comment adapter une macro à ton cas
Cdlmnt
Via
26 mai 2015 à 16:19
Merci pour votre réponse. Voici un exemple de mon fichier: http://www.cjoint.com/data/0EAqtzRa24S.htm
Cordialement
26 mai 2015 à 17:00
Ton fichier en retour avec la macro qui à chaque changement de nom effectue le tri avant l'entrée de l'activité
https://www.cjoint.com/?0EAq6iyUskN
Clic droit sur l'onglet Feuil1 et Visualiser le code pour voir la macro
Pour mettre cette macro dans un autre fichier :
ALT+F11 pour ouvrir l'éditeur VBA
Double-clic sur la feuille concernée dans l'arborescence copier-coller la macro dans la page blanche
Cdlmnt
Via
26 mai 2015 à 17:19
Cependant lorsque je colle
"Rem Attribute VBA_ModuleType=VBADocumentModule
Sub Feuil1
Rem Private Sub Worksheet_Change(ByVal Target As Range)
Rem If Target.Column > 1 Then Exit Sub
Rem Dim Ligne As Long
Rem 'recup nom
Rem nom = Target.Value
Rem ' classement alpha
Rem Columns("A:H").Select
Rem ActiveWorkbook.Worksheets("Feuil1").Sort.SortFields.Clear
Rem ActiveWorkbook.Worksheets("Feuil1").Sort.SortFields.Add Key:=Range("A2:A31") _
Rem , SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
Rem With ActiveWorkbook.Worksheets("Feuil1").Sort
Rem .SetRange Range("A1:H31")
Rem .Header = xlYes
Rem .MatchCase = False
Rem .Orientation = xlTopToBottom
Rem .SortMethod = xlPinYin
Rem .Apply
Rem End With
Rem 'Se positionne sur la ligne du nom et al colonne du prénom
Rem Ligne = Columns(1).Find(nom, , , , xlByColumns, xlPrevious).Row
Rem Cells(Ligne, 2).Select
Rem End Sub
Rem
Rem
Rem
End Sub" il n'y a pas de bouton valider ou quoi dans la fenêtre donc rien ne se passe...
26 mai 2015 à 17:34
Comme macro à coller tu dois n'avoir que :
Bien la coller dans la feuille blanche de l'éditeur qui apparait lorsque tu cliques sur le nom de la feuille où appliquer dans l'arborescence à gauche dans l'éditeur
Après tu fermes l'éditeur
Lorsque tu es sur la feuille où doit s'appliquer la macro , toute modification dans la colonne A lance la macro
Si tu n'arrives pas à l'adapter tu peux poster ton fichier réel sur cjoint.com et m'envoyer le lien par message privé pour confidentialité (clic droit sur mon pseudo en haut du message ), je regarderais
Cdlmnt
Via