ajouter conditions à un code

[jacky49]

Bonsoir le forum,

j'ai le code ci dessous qui me permet de faire mon classement, et je voudrais y ajouter 2 conditions que voici: Masquer la colonne N et afficher la colonne O
j'espère que c'est possible et que je me suis bien expliquer
merci
jacky

Public Sub ClasserManche1(ByVal NomFeuil As String)
Dim lastlig As Integer
  
With Worksheets(NomFeuil)
    With .Sort
        .SortFields.Clear
        .SortFields.Add Key:=Range("B24:B59"), SortOn:=xlSortOnValues, Order:=xlAscending
        .SetRange Range("B24:O100")
        .Apply
    End With
    
    .Rows("24:100").Hidden = False
    lastlig = .Range("K58").End(xlUp).Row
    If lastlig < 100 Then .Rows(lastlig + 1 & ":100").Hidden = True
End With
End Sub

 

[Gorfael]

Re : ajouter conditions à un code

Salut jacky49 et le forum

Masquer la colonne N et afficher la colonne O

Pas assez d'info pour toucher à la macro, donc, juste le minimum
Columns(14).Hidden=True : Masque la colonne N de la feuille active
Columns(15).Hidden=false : affiche la colonne O de la feuille active
A+

 

[jacky49]

Re : ajouter conditions à un code

re,
Merci Gorfael
cela fonctionne nickel,
jacky