Mettre en ordre alphabétique. VBA

Bonjour,

Pourriez-vous m'aidez à corriger une erreur qui s'est glissée en dernière ligne.

J'utilise excel 2019(64bits) sur windows.

J'ai pris cette formule dans un tuto.

Voici mon tableau, et je voudrais qu'à chaque fois que je valide, ma liste se mette par ordre alphabétique à partir de la colonne B1.

A B C

1 CIVILITE NOMS PRENOMS[/i]

2 MR AA BB

Private Sub UserForm_Click()

End Sub

'procédure permettant de mettre par ordre alphabétique

Sub trier_tableau()

Dim onglet As Worksheet

Dim derniere_ligne As Long

Dim derniere_colonne As Long

'identifier onglet

Set onglet = Worksheets(2)

'trouver les limites du tableau

derniere_ligne = onglet.Cells(Row.Count, 1).End(x1up).Row

derniere_colonne = onglet.Cells(1, Columns.Count).End(xl1toleft).Column

'trier en fonction de la colonne B

onglet.Range(onglet.Cells(1, 1), onglet.Cells(derniere_ligne, derniere_colonne)).sort_

key1:=onglet.Range("B1"),order1:=xlascending,header:=x1Yes

Merci pour votre aide.

End Sub

Bonjour Benoît, bonjour le forum,

Deux erreurs dans celle ligne :

derniere_ligne = onglet.Cells(Rows.Count, 1).End(x1up).Row

qui devrait être :

derniere_ligne = onglet.Cells(Rows.Count, 1).End(xlUp).Row

Une erreur dans cette ligne :

derniere_colonne = onglet.Cells(1, Columns.Count).End(xl1toleft).Column

qui devrait être :

derniere_colonne = onglet.Cells(1, Columns.Count).End(xlToLeft).Column

Le code qui fonctionne :

Sub trier_tableau()
Dim onglet As Worksheet
Dim derniere_ligne As Long
Dim derniere_colonne As Long

'identifier onglet
Set onglet = Worksheets(2)
'trouver les limites du tableau
derniere_ligne = onglet.Cells(Rows.Count, 1).End(xlUp).Row
derniere_colonne = onglet.Cells(1, Columns.Count).End(xlToLeft).Column
'trier en fonction de la colonne B
onglet.Range(onglet.Cells(1, 1), onglet.Cells(derniere_ligne, derniere_colonne)).Sort key1:=onglet.Range("B1"), order1:=xlAscending, Header:=x1Yes
End Sub

Merci beaucoup pour ta rapidité.

J'ai copié, coller ta formule, mais ça ne fontionne pas.

Je mets en copie mon fichier, peut-être que se sera plus facile à comprendre.

Re,

Si, si... Ça marche. J'ai mis le code dans le Module 2, je l'ai lancé et le tableau de l'onglet MEMBRES est bien trié par ordre alphabétique des noms...

Merci beaucoup.

Bonne journée