Feuilles dans ordre alphabétique

Bonjour !

J'ai un code VBA qui me permet de trier les feuilles dans l'ordre alphabétique, mais le problème est que dès que le tri se fait, il ne garde pas la page active mais change de page. Serait-il possible de faire un tri automatique tout en restant sur la page active ?

Private Sub Worksheet_Change(ByVal Target As Range)
Dim a As Integer, b As Integer
Application.ScreenUpdating = False

For a = 1 To Sheets.Count
    For b = a + 1 To Sheets.Count
        If UCase(Sheets(a).Name) > UCase(Sheets(b).Name) Then
            Sheets(b).Move before:=Sheets(a)
        End If
    Next b
Next a
End Sub

Bonjour,

à tester,

Private Sub Worksheet_Change(ByVal Target As Range)
Dim a As Integer, b As Integer
Application.ScreenUpdating = False
sh = Target.Parent.Name
For a = 1 To Sheets.Count
    For b = a + 1 To Sheets.Count
        If UCase(Sheets(a).Name) > UCase(Sheets(b).Name) Then
            Sheets(b).Move before:=Sheets(a)
        End If
    Next b
Next a
Sheets(sh).Activate
End Sub

ça marche super !

Merci bien

cedric-pillonel a écrit :

ça marche super !

Merci bien

Merci pour ce retour, bonne continuation!