XL 2019 Tri alphabetique automatique sans macro

[Mimi1952]

Bonjour a tous,

Je voudrais, créer pour une assos la liste des adhérents ( colonne B ) qui se classerais automatiquement par ordre alphabétique au fur a mesure
de l'ajout de nouveaux adhérents. Je ne voudrais pas de macro si possible.
Avec aussi une numérotation automatique dans la ( colonne A ) suivant que l'on rajoute un adhérent.
Je vous remercie pour vos réponses

Mim1952

 

[chris]

Bonjour
Le tri ne peut être que manuel mais un clic suffit sinon c'est VBA

 

[Mimi1952]

Chris, merci de votre réponse , je voudrais bien que ce soit automatique où alors comment faire avec le VBA

 

[chris]

RE

Une proposition

 

[Mimi1952]

Bonjour Chris,
J'ai essayer ta proposition, mais elle ne me convient pas car je voudrais que a chaque saisie de nom celle-çi se mette en ordre alphabétique automatiquement .
Merci pour ta réponse
Mimi1952

 

[chris]

RE

C'est bien ce que cela fait.

As-tu activé la macro ?

J'ai saisi dans l'ordre qui apparait automatiquement dans le N° et à chaque saisie le classement a changé

 

[riton00]

Bonjour,

Autre........... formule pour le numéro et code vba pour le tri
Attention activer les macros pour un fonctionnement normal (tri automatique)

Slts

 

[chris]

RE

Autre........... formule pour le numéro

Si on change les numéros de tous les adhérents à chaque saisie bonjour la gestion !

Ne pas utiliser un tableau structuré en 2023 est surprenant... Même dans 2003 ils sont présents

 

[mapomme]

Bonjour à tous 🙂,

Même si je plussoie au fait qu'utiliser un tableau structuré serait bien mieux, un code VBA avec une plage "classique".

Modifier un élément de la colonne B.

Le code dans le module de la feuille :

Private Sub Worksheet_Change(ByVal Target As Range)
Dim der&
   If Me.FilterMode Then Me.ShowAllData
   der = Cells(Rows.Count, "b").End(xlUp).Row
   If der = 1 Then Exit Sub
   Range("b1").Resize(der).Sort key1:=[b1], order1:=xlAscending, MatchCase:=False, Header:=xlYes
   Columns("b:b").Borders.LineStyle = xlLineStyleNone
   Intersect(Columns("b:b"), Range("b1").CurrentRegion).Borders.LineStyle = xlContinuous
End Sub

 

[Mimi1952]

RE

Si on change les numéros de tous les adhérents à chaque saisie bonjour la gestion !

Ne pas utiliser un tableau structuré en 2023 est surprenant... Même dans 2003 ils sont présents

Les numéros ne sont pas attribués a chaque adhérents mais servent a connaître les nombre d'adhérents suivant qu'on les saisis. merci Chris

 

[Mimi1952]

Bonjour,

Autre........... formule pour le numéro et code vba pour le tri
Attention activer les macros pour un fonctionnement normal (tri automatique)

Slts

Merci, Riton
C'est ce que je voulais obtenir .C'est parfait
Mimi 1952

 

[Mimi1952]

Bonjour à tous 🙂,

Même si je plussoie au fait qu'utiliser un tableau structuré serait bien mieux, un code VBA avec une plage "classique".

Modifier un élément de la colonne B.

Le code dans le module de la feuille :

Private Sub Worksheet_Change(ByVal Target As Range)
Dim der&
   If Me.FilterMode Then Me.ShowAllData
   der = Cells(Rows.Count, "b").End(xlUp).Row
   If der = 1 Then Exit Sub
   Range("b1").Resize(der).Sort key1:=[b1], order1:=xlAscending, MatchCase:=False, Header:=xlYes
   Columns("b:b").Borders.LineStyle = xlLineStyleNone
   Intersect(Columns("b:b"), Range("b1").CurrentRegion).Borders.LineStyle = xlContinuous
End Sub

Merçi mapomme,
C'est ce que je rechercher, j'ai seulement rajouté une formule dans la colonne A pour la numérotation automatique .Par contre je ne connaisser pas pour le tableau .Merci encore .
Mimi 1952

 

[chris]

Bon bah j'ai perdu au jeu des devinettes

Je vais m'abstenir dorénavant de répondre aux questions floues...

"Les numéros ne sont pas attribués a chaque adhérents mais servent a connaître les nombre d'adhérents"

dans un tableau structuré on dispose de la ligne des totaux qui fait cela automatiquement et de façon juste même si quelqu'un a supprimé une ligne...