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