masquer des colonnes, cellules vides

Question

Bonjour,
J'ai un problème. J'ai fait un tableau de 300 lignes et je voudrais masquer une des colonnes si toutes les cellules du tableau correspondant à cette colonne sont vides.
Quelle est la syntaxe à adopter? Je n'arrive pas à inclure une boucle for dans une condition if sans que ça ne me marque d'erreur.
Quelqu'un peut-il m'aider à résoudre ce problème?
Voici le début du programme que j'ai écrit.

 If For i = 4 To 301
    Range("AC" & i).Value = ""
    Next i
    Columns("AC").Select
    Selection.EntireColumn.Hidden = True
    Then

Je ne sais pas si ma question est très claire.

Merci pour votre aide.

barnaby · Answer

Bonjour, 
essaye ça 

Sub test()
Application.ScreenUpdating = False
For Each a In Range("A1:C301")
colonne = a.Column
    If a = "" Then
        Columns(colonne).EntireColumn.Hidden = True
    End If
Next
Application.ScreenUpdating = True
End Sub

Masquer des colonnes, cellules vides

1 réponse

Discussions similaires

Newsletters