Discussion :

[jacfld49]

bonsoir le forum,

Voici un code qui me classe par ordre d'arrivée un tableau des cellules B22 à L57, je voudrais ajouter un bout de code pour que les lignes vides en dessous du classement se cache car il peut y avoir que 5 lignes (de B22 à L 27) qui soit classée et endesous rien.
merci de votre aide.
jacky

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
16
17
18
 
Public Sub ClasserManche1(ByVal NomFeuil As String)
 
Worksheets(NomFeuil).Range("B22:L57").Select
    Worksheets(NomFeuil).Sort.SortFields.Clear
    Worksheets(NomFeuil).Sort.SortFields.Add _
        Key:=Range("B22:B57"), SortOn:=xlSortOnValues, Order:=xlAscending, _
        DataOption:=xlSortNormal
    With Worksheets(NomFeuil).Sort
        .SetRange Range("B22:L57")
        .Header = xlGuess
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With
    Worksheets(NomFeuil).Range("Q22").Select
End Sub

[mercatog]

Bonsoir Jacky,

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
Worksheets(NomFeuil).rows("22:57").hidden=false
LastLig=Worksheets(NomFeuil).Range("B58").end(xlup).row
if LastLig<57 then Worksheets(NomFeuil).rows(LastLig &":57").hidden=true

[jacfld49]

re,

merci mercatog, je ne voulais pas te déranger par mail mais c'est quand même toi qui m'apporte la réponse. Ou est ce que je mets le code , à la suite de l'autre??
merci
jacky

[mercatog]

oui, à la fin de ton code

[jacfld49]

re,

il me met variable non définie et me surligne : LastLig =
merci
jacky

[mercatog]

Mais oui Jacky
tu as un Option explicit
tu dois définir ta variable

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Dim LastLig As integer