Macro ajouter + trier

[meldja]

Rebonjour,
Je suis décidemment abonné à ce forum.
J'ai créé un UserForm en reprenant les trucs qu'on m'a donné ici, et que j'essaye de bidouillé.
Je voudrais récupéré le contenu d'une ComboBox pour l'envoyer dans une colonne. Pour ça, c'est bon.
J'aurais aimé que lorsqu'une valeur est ajoutée, la colonne soit automatiquement triée et ça plante au niveau du code qui trie :
Référence de tri non valide, erreur d'exécution 1004
Voici le code (en vert le code pour trier) :

If Col = "SDB 6" Then
Sheets("ListStagiaire").Range("A65536").End(xlUp).Offset(1, 0).Value = TextBox1.Value
Sheets("ListStagiaire").Range("A3:A50").Sort Key1:=Range("A3"), Order1:=xlAscending

ElseIf Col = "SDB 6 bis" Then
Sheets("ListStagiaire").Range("B65536").End(xlUp).Offset(1, 0).Value = TextBox1.Value
Sheets("ListStagiaire").Range("B3:B50").Sort Key1:=Range("B3"), Order1:=xlAscending

ElseIf Col = "SDB 7" Then
Sheets("ListStagiaire").Range("C65536").End(xlUp).Offset(1, 0).Value = TextBox1.Value
Sheets("ListStagiaire").Range("C3:C50").Sort Key1:=Range("C3"), Order1:=xlAscending

End If

Merci

 

[Catrice]

Re : Macro ajouter + trier

Bonsoir,

Le mieux serait de poster un petit bout de fichier exemple.

Sans avoir testé, je modifierais les lignes concernées comme suit :

Sheets("ListStagiaire").Range("A3:A50").Sort Key1:=Sheets("ListStagiaire").Range("A3"), Order1:=xlAscending

Ou bien

With Sheets("ListStagiaire")
.Range("A3:A50").Sort Key1:=.Range("A3"), Order1:=xlAscending
End With

Si la zone est ammenée à évoluer, ceci devrait fonctionner aussi :

With Sheets("ListStagiaire")
.Range("A3").Sort Key1:=.Range("A3"), Order1:=xlAscending
End With

 

[meldja]

Re : Macro ajouter + trier

merci,
je ne suis pas chez moi, donc je ne peux pas tester. J'ai un programme très lourd, je ne serai pas chez moi avant demain.
En tout cas, merci, demain je testerai.
Bonne journée