Masquer et afficher colonnes trouvées

Bonjour,

J'ai besoin d'aide pour afficher et masquer des colonnes retrouvé.

Mon problème est que la recherche de colonne dooit se faire sur des plages précises.

Je joint un exemple. +

https://www.excel-pratique.com/~files/doc2/IfbKkEXEMPLE_SELECT.xls

Merci à l'avance

Salut le forum

La macro adaptée à ta situation

Sub MasquerAfficher()
    Dim Cell As Range
    Dim zone As Range

Set zone = Range("E4:P4")

For Each Cell In zone
  With Cell
    If .Value = Range("C4") Or IsEmpty(.Value) Then
    Cell.EntireColumn.Hidden = False
    Else
    Cell.EntireColumn.Hidden = True
    End If
  End With
Next Cell

End Sub

Mytå

Usb512 a écrit :

Salut le forum

La macro adaptée à ta situation

Sub MasquerAfficher()
    Dim Cell As Range
    Dim zone As Range

Set zone = Range("E4:P4")

For Each Cell In zone
  With Cell
    If .Value = Range("C4") Or IsEmpty(.Value) Then
    Cell.EntireColumn.Hidden = False
    Else
    Cell.EntireColumn.Hidden = True
    End If
  End With
Next Cell

End Sub

Mytå

Merci ça fonctionne très bien.

Je ne sais pas où mettre le( Résolu).

Considérez ce problème comme RÉSOLUE ????

Saluts !!!!