Bonjour
J'ai de nouveau un problème avec mon code, même plusieurs mais je vais déjà vous demander ceci:
Avec le code qui suit (tri croissant), comment je peux éviter le Range("G4").Select car c'est extrêmement énervant qu'à chaque fois que l'on saisit quelque chose dans le classeur, le curseur sélectionne automatiquement une cellule (impossible de remplir de manière fluide une feuille)...
Et serait il possible de demander de ne trier qu'à partir de la deuxième ligne ? En tapant cette question, j'ai pensé (oui je pense parfois ) qu'en modifiant simplement la première ligne par Range("K2").Select serait la solution, est ce juste ?
Bonne journée
Leop93
EDIT: le fichier test vient d'être mis en ligne, le code qui permet le tri automatique en fonction de la valeur recensée dans la colonne priorité se trouve dans le module3.
J'ai de nouveau un problème avec mon code, même plusieurs mais je vais déjà vous demander ceci:
Avec le code qui suit (tri croissant), comment je peux éviter le Range("G4").Select car c'est extrêmement énervant qu'à chaque fois que l'on saisit quelque chose dans le classeur, le curseur sélectionne automatiquement une cellule (impossible de remplir de manière fluide une feuille)...
Code:
Sub classementauto()
Range("K1").Select
Range(Selection, Selection.End(xlToLeft)).Select
Range(Selection, Selection.End(xlDown)).Select
Selection.Sort Key1:=Range("K2"), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal
Range("G4").Select
End Sub
Et serait il possible de demander de ne trier qu'à partir de la deuxième ligne ? En tapant cette question, j'ai pensé (oui je pense parfois ) qu'en modifiant simplement la première ligne par Range("K2").Select serait la solution, est ce juste ?
Bonne journée
Leop93
EDIT: le fichier test vient d'être mis en ligne, le code qui permet le tri automatique en fonction de la valeur recensée dans la colonne priorité se trouve dans le module3.
Pièces jointes
Dernière édition: