macro : masquer colonnes fonction contenu cellule

[mazzyblast]

Bonjour, j'aurais besoin de vous solliciter quelques instants. Ce sera surement facile pour l'un d'entre vous.

Pourriez-vous svp m'écrire une petite macro qui masquera toutes les colonnes où une cellule de la rangée 3 contiendra le mot "oui"

Exemples illustrés :
- si B3, E3, R3 détectés comme contenant chacune l'écrit "oui", alors masquer les colonnes B E et R
- en revanche si D3, E3, S3, V3 détectés comme contenant l'écrit "oui", alors masquer les colonnes D E S et V

Merci à vous !

 

[ERIC S]

Re : macro : masquer colonnes fonction contenu cellule

Bonjour

à tester

Sub e()
'pour colonnes B à J - soit de 2 à 10, à adapter
    Columns("B:J").EntireColumn.Hidden = False
    For i = 2 To 10
        If LCase(Cells(3, i).Value) = "oui" Then Cells(3, i).EntireColumn.Hidden = True
    Next

End Sub

 

[mazzyblast]

Re : macro : masquer colonnes fonction contenu cellule

Nickel chrome merci ! Excellente soirée