Macro tri avec deux critères

Bonjour, le forum,

Je souhaite ajouter un critère de tri dans la macro ci-dessous, la colonne "O" Équipe,

cette macro trie sur la colonne "Noms" "A5", comment ajouter "O5"

cette macro s'exécute à chaque nouvelle entrée dans ma base de données au moyen d'un UserForm.

Sub Init_CBBNoms() 'tri sur la liste des Noms

Me.CBBChoixNom.Clear

Ws.Range("A5:R" & Ws.Range("A" & Rows.Count).End(xlUp).Row).Sort key1:=Ws.Range("A5") ' Tri la BD

Me.CBBChoixNom.List = Application.Transpose(Ws.Range("A5:A" & Ws.Range("A" & Rows.Count).End(xlUp).Row))

Me.CBBChoixNom.ListIndex = 0

End Sub

Comment modifier cette macro sans trop de dégâts Merci de bien vouloir m'aider

Papy Pierrot Belgique

Bonsoir,

Teste ceci :

Sub Init_CBBNoms() 'tri sur la liste des Noms

    Dim Plage As Range

    Me.CBBChoixNom.Clear

    'défini la plage de A5 à Rx
    With Worksheets("Feuil1") '<-- adapter le nom de la feuille

        Set Plage = .Range(.Cells(5, 1), .Cells(.Rows.Count, 18).End(xlUp))

    End With

    'effectue le tri sur colonne A puis sur colonne O
    With Plage

        .Sort .Columns(1), 1, .Columns(15), , 1

        'puis passe la colonne A au combo
        Me.CBBChoixNom.List = Application.Transpose(.Columns(1))

    End With

End Sub

Hervé.

Cher ami, bonjour,

la macro semble bien fonctionner, je verrai plus tard avec un usage intensif.Un grand merci à toi pour ton aide.

A plus tard, sans doute .Bonne journée.

Papy Pierrot