Tri automatique

bonjour,

j'aimerais, dans ma feuille ci jointe, que la colonne B de la ligne 8 a la ligne 43 lorsque je rentre un nom sa ligne se trie automatiquement en ordre alphabétique.

comment faire ?

Merci beaucoup d'avance

Hello,

Colle la macro ci-dessous dans un module standard

Sub tri()

    Application.ScreenUpdating = False

    With Sheets("Adultes").Sort
        .SortFields.Clear
        .SortFields.Add Key:=Range("B8"), Order:=xlAscending
        .SetRange Range("B8:Z43")
        .Apply
    End With

    Application.ScreenUpdating = True

End Sub

Et ensuite tu colles le code ci-dessous dans le code de la feuille "Adultes" (Click droit sur l'onglet "Adultes" et "Visualiser le code")..

Private Sub Worksheet_Change(ByVal Target As Range)

    If Not Intersect(Target, Range("B8:B43")) Is Nothing Then
        Call tri
    End If

End Sub

Fait en grosse partie avec l'enregistreur de macro.

Chaque fois que tu changeras quelque chose dans B8:B43, ça appellera la macro tri.

À tester.