Cacher/Décacher Colonnes

[romika]

Bonjour le Forum,

je suis confronté à un petit problème. pour être plus précis j'ai fait un petit fichier dans lequel j'ai totut expliqué

merci si vous pouvez m'aider.

bon dimanche [file name=Ex2.zip size=7867]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/Ex2.zip[/file]

 

[Bricofire]

Bonjour romika,

Voici une petite soluce, quand tu actives la feuille 111, ça doit faire ce que tu veux.

Private Sub Worksheet_Activate()
Dim Cell As Range

For Each Cell In Range('B1:M1')
If Cell = 'Annonce' Then
Cell.EntireColumn.Hidden = True
Else
Cell.EntireColumn.Hidden = False
End If
Next Cell
End Sub

Bon Dimanche,

Brico [file name=RepRomika.zip size=8249]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/RepRomika.zip[/file]

 

[romika]

Bonjour, Bricofire,

Merci pour ton aide: c'est parfait!

bonne journée