XL 2019 Tri alphabetique automatique sans macro

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

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

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

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
 
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:
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

Réponses
2
Affichages
907
  • Suggestion Suggestion
Recherche & référence DicoCountOrder
Réponses
0
Affichages
2 K
Réponses
15
Affichages
3 K
Réponses
15
Affichages
2 K
Retour