Macro pour masquer des colonnes

stagiairerm

XLDnaute Occasionnel
Bonjour voici une macr pour masquer les lignes selon un critere qui marche tres bien .

Rows("14:47").Select
Selection.EntireRow.Hidden = True
Range("G14:G47").Select
For Each o In Selection
If o.Value = Range("F9").Value Then
o.EntireRow.Hidden = False
End If
Next

j'essaye desesperement de transformer cette Macro pour masquer des colonnes cette fois ci toujours selon un critère... mais ca marche pas !!

Columns("S:IH").Select
Selection.EntireColumn.Hidden = True

Range("S7:IH7").Select
For Each o In Selection
If o.Value = Range("P5") Then
o.EntireColumn.Hidden = False
End If
Next
End Sub

Je ne comprends pas ou le pb. il bloque là : Selection.EntireColumn.Hidden = True

Merci de votre aide
 

CB60

XLDnaute Barbatruc
Re : Macro pour masquer des colonnes

Bonjour
Je viens de tester ta macro, elle fonctionne chez moi:
Code:
Sub essai()
Columns("S:IH").EntireColumn.Hidden = True
Range("S7:IH7").Select
For Each o In Selection
If o.Value = Range("P5") Then
o.EntireColumn.Hidden = False
End If
Next
End Sub
 

tototiti2008

XLDnaute Barbatruc
Re : Macro pour masquer des colonnes

tu peux toujours zipper ensuite, mais moi je ne peux pas ouvrir les zip.
sinon certains sites te permettent de mettre à disposition des fichiers plus lourds que la limite du forum, genre cjoint. le soucis est qu'au bout de 21 jours le fichier disparait et les futures consultations du forum ne pourront pas en profiter.
 

Discussions similaires

Réponses
12
Affichages
416
Réponses
14
Affichages
469

Statistiques des forums

Discussions
314 017
Messages
2 104 582
Membres
109 083
dernier inscrit
Stef06