Bonjour,

aujourd'hui j'essaie de faire la macro suivante sous Excel 2003 (en gros on l'executerait apres avoir applique un filtre auto manuellement sur l'une des colonnes):

--> masquer les colonnes dont toutes les cellules VISIBLES ont leur valeur="N" (dans le range N2:EK400)

Mon bout de code est le suivant:

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
'Sub MasquerColonnesVidesTest()
 
'Dim Plage As Range
'Dim c As Range
 
'On Error Resume Next
 
'With ActiveSheet
 
 
'Set Plage = .Range("N2:EK400")
 
'    For Each c In Plage
'        If c.Value = "N" Then Selection.EntireColumn.Hidden = True
'    Next c
 
 
'End With
 
'End Sub
J'ai essayé plusieurs bouts de code trouvés sur internet mais je n'ai pas encore trouvé ma combinaison pour que ça fonctionne pour mon cas).

Merci de votre aide!!
Sylvaine