masquer des colonnes par macro

[tite-cel]

Bonsoir

je cherche a masquer plusieurs colonnes en cliquant sur un bouton

dans le tableau j'aimerai que n'apparaisse que les colonne OK/NOK

merci de votre aide


celine

 

[JCGL]

Re : masquer des colonnes par macro

Bonjour à tous,

Tu as rajouté des colonnes mais sur la ligne 5, toutes les cellules n'ont pas de formules.

Je te propose de compter les valeurs de la ligne 9 qui à l'air d'avoir toutes ses cellules renseignées.

A placer dans le module :

Option Explicit
Dim X As Byte

Sub Masque()
    For X = 5 To Application.WorksheetFunction.CountA(Rows(9)) + 5
        If Cells(9, X) <> "OK/NOK" Then Columns(X).EntireColumn.Hidden = True
    Next X
End Sub

Sub Affiche()
    For X = 5 To Application.WorksheetFunction.CountA(Rows(9)) + 5
        Columns(X).EntireColumn.Hidden = False
    Next X
End Sub

Tu remarqueras le Application.WorksheetFunction.CountA(Rows(9)) + 5

A+ à tous

 

[tite-cel]

Re : masquer des colonnes par macro

Bonsoir

ok j'ai compris la manip maintenant merci de ta réponse rapide

celine