Mettre les cases vides en haut

[sev]

Bonsoir ,
comment modifier ce code pour mettre les cases vides de H137:H148 en haut ?

Range("B137:H148").Sort Key1:=Range("H137"), Order1:=xlDescending, Header:= _
xlGuess, OrderCustom:=1, MatchCase:=True, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal

En vous remerciant

 

[Excel-lent]

Re : Mettre les cases vides en haut

Bonsoir Sév,

Voici une solution qui devrait faire ton bonheur :

Sub Macro1()
' Macro Complété par Excel-lent

[COLOR="Blue"]Dim NbLigneVide As Long[/COLOR]
    
    Range("B137:H148").Select
    Selection.Sort Key1:=Range("H137"), Order1:=xlDescending, Header:=xlGuess _
        , OrderCustom:=1, MatchCase:=True, Orientation:=xlTopToBottom, _
        DataOption1:=xlSortNormal

[COLOR="Blue"]    NbLigneVide = Application.WorksheetFunction.CountBlank(Range("H137:H148")) - 1
    Range("B" & 148 - NbLigneVide & ":H148").Cut
    Range("B137").Insert Shift:=xlDown[/COLOR]

End Sub

Je n'ai rien modifié à ta macro, je me suis juste contenter de rajouter 2-3 truc.

Bonne fin de soirée

 

[sev]

Re : Mettre les cases vides en haut

Merci pour votre complément