XL 2019 Liste Alphabétique automatique

[lcouaci]

Bonsoir le Forum, je souhaite éditer une liste de saisie alphabétique.
Je voudrais que cette liste de saisie s'automatise à la saisie des noms au fur à mesure dans la colonne "nom et prénoms" afin qu'on ai pas à trier la liste chaque fois. Comme présenté dans le fichier joint !!!

 

[sylvanu]

Bonjour Icouaci,
En PJ un essai.
C'est effectivement en automatique.
Cependant à la saisie si vous faites une faute d'orthographe la liste est évidemment triée et il vous faut recherchez le nom entré pour le modifier.
Perso je ne trouve pas ça ergonomique.
En Liste 2 j'ai mis le tri par un bouton. C'est juste une question de choix, vous avez les deux solutions.

 

[jmfmarques]

Bonjour

Je voudrais que cette liste de saisie s'automatise à la saisie des noms au fur à mesure dans la colonne "nom et prénoms" afin qu'on ai pas à trier la liste chaque fois

donne plutôt à penser qu'il s'agit là d'un exercice de placement par dichotomie, sans tout trier à chaque fois.

 

[GALOUGALOU]

bonjour icouaci bonjour le forum
voici une solution qui se met à jour au moment de la saisie.
quand une information est saisie en colonne D, la mise à jour du compteur est automatique grâce à la fonction grande valeur.
(reprenant l'idée de sylvanu), le tri est déclenché par le bouton, mais l'automatisation dans la macro est possible. (tri par index et tri par nom)
si vous reprenez l'idée pour l'integrer à un autre classeur attention au nom de l'onglet. Liste avec espace dans votre fichier. Liste sans espace dans le fichier joint.
cordialement
galougalou

 

[lcouaci]

bonjour icouaci bonjour le forum
voici une solution qui se met à jour au moment de la saisie.
quand une information est saisie en colonne D, la mise à jour du compteur est automatique grâce à la fonction grande valeur.
(reprenant l'idée de sylvanu), le tri est déclenché par le bouton, mais l'automatisation dans la macro est possible.
si vous reprenez l'idée pour l'integrer à un autre classeur attention au nom de l'onglet. Liste avec espace dans votre fichier. Liste sans espace dans le fichier joint.
cordialement
galougalou

Merci à vous, et merci le forum pour votre contribution.....

 

[lcouaci]

Merci à vous,

Bonjour Icouaci,
En PJ un essai.
C'est effectivement en automatique.
Cependant à la saisie si vous faites une faute d'orthographe la liste est évidemment triée et il vous faut recherchez le nom entré pour le modifier.
Perso je ne trouve pas ça ergonomique.
En Liste 2 j'ai mis le tri par un bouton. C'est juste une question de choix, vous avez les deux solutions.

Merci infiniment, Ta feuille "liste" résout mon problème. ma question ! comment vous l'avez réaliser ?
Est ce qu'on peut trier que la colonne "D" afin que les numéros d'ordre de la colonne "C" se maintiennent

 

[sylvanu]

Bonjour.
La feuille liste est traitée avec une macro événementielle Worksheet_Change.
Quand on clique sur la page ( qu'on aurait pu limiter à la zone C3-D100 ) on lance cette macro :

Sub Worksheet_Change(ByVal Target As Range)
    If Target.Count > 1 Then Exit Sub
    Call Tri
End Sub
Sub Tri()
    ActiveWorkbook.Worksheets("Liste ").Sort.SortFields.Clear
    ActiveWorkbook.Worksheets("Liste ").Sort.SortFields.Add Key:=Range("D4:D18") _
        , SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
    With ActiveWorkbook.Worksheets("Liste ").Sort
        .SetRange Range("C3:D100")
        .Header = xlYes
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With
    [C3].Select
End Sub

Cette macro est à mettre impérativement dans la feuille concernée, pas dans un module standard.

 

[lcouaci]

Bonjour.
La feuille liste est traitée avec une macro événementielle Worksheet_Change.
Quand on clique sur la page ( qu'on aurait pu limiter à la zone C3-D100 ) on lance cette macro :

Sub Worksheet_Change(ByVal Target As Range)
    If Target.Count > 1 Then Exit Sub
    Call Tri
End Sub
Sub Tri()
    ActiveWorkbook.Worksheets("Liste ").Sort.SortFields.Clear
    ActiveWorkbook.Worksheets("Liste ").Sort.SortFields.Add Key:=Range("D4:D18") _
        , SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
    With ActiveWorkbook.Worksheets("Liste ").Sort
        .SetRange Range("C3:D100")
        .Header = xlYes
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With
    [C3].Select
End Sub

Cette macro est à mettre impérativement dans la feuille concernée, pas dans un module standard.

Merci infiniment !

 

[WTF]

Sinon il y a la version sans macro qui passe par PowerQuery :
Ajouter les noms et actualiser les données pour mettre à jour la liste.

 

[lcouaci]

Sinon il y a la version sans macro qui passe par PowerQuery :
Ajouter les noms et actualiser les données pour mettre à jour la liste.

Non merci c'est pas ce que je veux , trop harassant pour quelqu'un qui ne connais pas les tries Excel! Sinon sans macro serait intéressant mais je ne connais pas PowerQuery !

 

[BOISGONTIER]

Bonjour,

Le #9 ne trie rien. Il n'y a pas de solution sans programmation (il faut détecter la saisie d'un nom).

http://boisgontierjacques.free.fr/fichiers/Evenementiel/TryDyn.xls

http://boisgontierjacques.free.fr/fichiers/Cellules/TriDynamique2.xls

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 4 And Target.Count = 1 Then [C4:D1000].Sort key1:=[D4], Header:=xlNo
End Sub

Boisgontier

 

[lcouaci]

M

Bonjour,

Le #9 ne trie rien. Il n'y a pas de solution sans programmation (il faut détecter la saisie d'un nom).

http://boisgontierjacques.free.fr/fichiers/Evenementiel/TryDyn.xls

http://boisgontierjacques.free.fr/fichiers/Cellules/TriDynamique2.xls

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 4 And Target.Count = 1 Then [C4:D1000].Sort key1:=[D4], Header:=xlNo
End Sub

Boisgontier

Merci, tes codes sont aussi assez léger !!!

 

[Marcot49]

Solution sans macro ni power query c'est le TCD avec tri auto sur les noms

 

[lcouaci]

Solution sans macro ni power query c'est le TCD avec tri auto sur les noms

C'est possible ? Justement c'est ce que je veux mais dit comme ça je vois pas !

 

[Marcot49]

Bonsoir, il suffit d'actualiser le TCD après la saisie des noms