Problème Masquage de colonne

[TBS]

Bonjour à tous

Voilà j'ai un problème lors de l'execution d'une macro à l'ouverture de mon fichier.
Je souhaite masquer les colonnes B à AU si la cellule 6 dans chaque colonne est = 0

Je pensais que cette macro fonctionnerait mais ce n'est malheureusement pas le cas.

Private Sub Workbook_Open()

For i = 47 To 2 Step -1
If Cells(6, i) = "0" Then
Columns(i).Select
Selection.EntireColumn.Hidden = True
End If
Next

End Sub

Si quelqu'un avait une solution a me proposer cela serait sympa.

Bonne journée

 

[Catrice]

Re : Problème Masquage de colonne

Bonjour,


Essaie comme ceci :

Private Sub Workbook_Open()
For i = 48 To 2 Step -1
    If Cells(6, i) = [COLOR="Blue"][B]0[/B][/COLOR] Then Columns(i).EntireColumn.Hidden = True
Next
End Sub

0 c'est numérique
"0" c'est du texte

"0" <> 0

 

[youky(BJ)]

Re : Problème Masquage de colonne

Bonjour TBS,

For i = 47 To 2 Step -1
If Cells(6, i) = "0" Then
Columns(i).EntireColumn.Hidden = True
End If
Next

test aussi avec
=0
ou
=""
ou encore

For i = 47 To 2 Step -1
Columns(i).EntireColumn.Hidden = IIf(Cells(6, i) > 0, False, True)
Next

 

[TBS]

Re : Problème Masquage de colonne

Bonjour Catrice et youky(BJ)

Merci pour vos réponse ultra rapide, effectivement toutes vos solutions fonctionnent

C'est super

Encore merci et bonne journée

@+