XL 2019 ordre alphabetique automatique soit avec formule ou vba

[Mimi1952]

Bonsoir,
Je voudrais réaliser un tri alphabétique soit avec une formule ou en vba dans la colonne B (Nom) de mon tableau.
Les saisies se font depuis un formulaire qui fonctionne très bien .
Je voudrais que dès qu'une nouvelle saisie apparait que le tri se fasse automatiquement.
J'ai voulu téléverser mon fichier mais il est trop volumineux donc je met que des captures d'écran.
Merci pour votre aide
mimi1952

 

[Dranreb]

Bonsoir.
Si vous avez appliqué un tri personnalisé au tableau, il suffit d'invoquer la méthode Apply de la propriété Sort du ListObject qui le représente.
Peut être pourriez vous adapter ce classeur, il y a beaucoup de ressemblances avec ce que je vois sur vos images.

 

[job75]

Bonjour Mimi1952, Bernard,

La macro dans le code de l'UserForm :

Private Sub CommandButton1_Click() 'bouton Valider
'---ici le remplissage du tableau---
With ActiveSheet.UsedRange.Offset(1)
    .Sort .Columns(2), xlAscending, Header:=xlYes 'tri'
End With
End Sub

A+

 

[sylvanu]

Bonjour Mimi, Dranreb, Job,
Ou encore un tri en une seule ligne :

Sub TriMontant()
   [TbContact].Sort key1:=[TbContact[Nom]], order1:=xlAscending, Header:=xlYes
End Sub

 

[job75]

Bonjour sylvanu,

Ou encore un tri en une seule ligne

Bah s'il n'y a pas de colonne vide à gauche du tableau :

Private Sub CommandButton1_Click() 'bouton Valider
'---ici le remplissage du tableau---
ActiveSheet.UsedRange.Offset(1).Sort Columns(2), xlAscending, Header:=xlYes 'tri'
End Sub

A+

 

[Mimi1952]

Bonjour, Danreb , Job75 , Sylvanu,

Je vous remercie tous pour vos réponses, j'ai sélectionner la solution de Job75 qui m'a paru la plus simple a appliquer vu mes connaissances.
Encore merci à vous tous
Mimi1952