Discussion :

[sylvaine]

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

[casefayere]

Bonjour,
essayes comme ça :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
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 c.Columns.EntireColumn.Hidden = True
    Next c
End With
End Sub

[sylvaine]

Merci pour ton aide. On y est Presque!
J'ai bien vu les lignes en train d'etre parcourues mais Excel a eu l'air de tourner en boucle et s'est planté.
Je vais regarder encore ce qui se passe.
ce qui me pose surtout la difficulté pour moi c'est de dire "toutes les cellules dont la valeur est égale à "N" et qui sont affichées actuellement" (donc celles que le filtre auto a épargnées)

[sylvaine]

Les nouvelles:

finalement Excel n'est plus planté.
Le résultat: est inversé:
Toutes les lignes et toutes les colonnes ont été masquées

Je vais encore investiguer un peu en repartant sur la base de ta proposition

Est-ce que cela signifie que Column serait une propriété de c (et c serait une cellule ou une plage? mais si c'est une plage elle ne peut pas avoir la valeur N, n'est ce pas?)

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

c.Columns.EntireColumn.Hidden

[casefayere]

Je regrette, j'ai testé le code et il fonctionne. Dans ton cas "C" est une cellule range => variable range.
il faudrait voir ton fichier

[sylvaine]

En fait, apres avoir mieux observé, je vois que ça ne masque pas "tout" - ça masque toutes les colonnes.
Mais ton aide m'est déjà précieuse, je vais avancer un petit peu et je verrai demain si je n'ai pas trouvé de solution (je suis un peu lente car je fais d'autres choses en meme temps)
Encore merci