bonjour,
je débute et dans le tri descendant je voudrais supprimer les lignes vides qui passent au dessus car le tableau n'est parfois pas rempli en entier
Merci
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15 Sub tridécroissant() ' ' tridécroissant Macro ' ' Touche de raccourci du clavier: Ctrl+b ' ActiveSheet.Unprotect ("mdp") Range("B8:N41").Select Selection.Sort Key1:=Range("N8"), Order1:=xlDescending, Header:=xlGuess, _ OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _ DataOption1:=xlSortNormal ActiveSheet.Protect ("mdp") Range("A1").Select End Sub
Partager