XL 2019 Tri alphabetique automatique sans macro

Mimi1952

XLDnaute Occasionnel
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
 

Pièces jointes

  • Classeur1essais.xlsx
    14.6 KB · Affichages: 11

chris

XLDnaute Barbatruc
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é

1674985806224.png
 

mapomme

XLDnaute Barbatruc
Supporter XLD
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
 

Pièces jointes

  • Mimi1952- Tri auto- v1.xlsm
    15.3 KB · Affichages: 9

Mimi1952

XLDnaute Occasionnel
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

XLDnaute Barbatruc
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...
 
Dernière édition:

Discussions similaires

Réponses
2
Affichages
766
Réponses
16
Affichages
1 K

Statistiques des forums

Discussions
311 740
Messages
2 082 047
Membres
101 880
dernier inscrit
Anton_2024