XL 2019 Tri alphabetique automatique sans macro

Mimi1952 · 28 Janvier 2023

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 · 28 Janvier 2023

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

Mimi1952 · 28 Janvier 2023

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

chris · 28 Janvier 2023

RE

Une proposition

Mimi1952 · 29 Janvier 2023

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 · 29 Janvier 2023

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 · 29 Janvier 2023

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 · 29 Janvier 2023

RE

riton00 à dit:
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 · 29 Janvier 2023

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 :

VB:

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 · 29 Janvier 2023

chris à dit:
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 · 29 Janvier 2023

riton00 à dit:
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 · 29 Janvier 2023

mapomme à dit:
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 :

VB:

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 · 29 Janvier 2023

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...

XL 2019 Tri alphabetique automatique sans macro

Mimi1952

XLDnaute Occasionnel

Pièces jointes

chris

XLDnaute Barbatruc

Mimi1952

XLDnaute Occasionnel

chris

XLDnaute Barbatruc

Pièces jointes

Mimi1952

XLDnaute Occasionnel

chris

XLDnaute Barbatruc

riton00

XLDnaute Impliqué

Pièces jointes

chris

XLDnaute Barbatruc

mapomme

XLDnaute Barbatruc

Pièces jointes

Mimi1952

XLDnaute Occasionnel

Mimi1952

XLDnaute Occasionnel

Mimi1952

XLDnaute Occasionnel

chris

XLDnaute Barbatruc

Discussions similaires