Macro pour masquer des colonnes en fonction d'une valeur

Bonjour, j'ai écrit une formule pour masquer une colonne malheureusement je ne suis pas un expert en VBA.

Sub Masquer_Column()

For ligne = 1 To 100

If Range(C5, G5) = 0 Then

Columns("A1").Hidden = False

If Range(C5, G5) = 1 Then

Columns("A1").Hidden = True

End If

Next

End Sub

Celle si ne fonctionne pas

Merci d'avance pour l'aide que vous m'apporterez

Cordialement

GRENIER Jonathan

Bonjour,

Pourrais-tu décrire ... avec des mots ... ton objectif ...

Ta macro laisse présager d'une contradiction ... entre les valeurs des lignes et le fait de cacher toute la Colonne A ...

Bonjour James,

Ce que je souhaite par exemple:

Colonnes : A B C D E F G H I

Jour: Lundi Mardi Mercredi Jeudi Vendredi Samedi Dimanche Lundi Mardi

Je souhaiterai mettre une condition: Uniquement les colonnes dans lesquels il y a marqué lundi reste apparente

Jonathan

Bonjour jonthonGj3, James007, le forum,

Une proposition, en supposant que "Lundi" se situe sur la ligne 1:

Pour masquer:

Sub masqueLesColonnes()

Dim d As Integer, dercol As Integer
dercol = Cells(1, Cells.Columns.Count).End(xlToLeft).Column

    For d = 1 To dercol
       ActiveSheet.Columns(d).EntireColumn.Hidden = Cells(1, d).Value <> "Lundi" 'masque les colonnes ne contenant pas Lundi
     Next d

End Sub

Pour tout afficher:

Sub afficheLesColonnes()

Dim d As Integer, dercol As Integer
dercol = Cells(1, Cells.Columns.Count).End(xlToLeft).Column

    For d = 1 To dercol
       ActiveSheet.Columns(d).EntireColumn.Hidden = False   'affiche toutes les colonnes
     Next d

End Sub

Cordialement,

Bonjour,

Merci xorsankukai ...

Re James007,

Ravi que ma proposition te convienne ,

Amicalement,

Rechercher des sujets similaires à "macro masquer colonnes fonction valeur"