Problème Masquage de colonne

TBS

XLDnaute Nouveau
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.

Code:
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
 

Pièces jointes

  • Masquer colonne.xls
    19.5 KB · Affichages: 51

Catrice

XLDnaute Barbatruc
Re : Problème Masquage de colonne

Bonjour,


Essaie comme ceci :

Code:
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
 
Dernière édition:

youky(BJ)

XLDnaute Barbatruc
Re : Problème Masquage de colonne

Bonjour TBS,
Code:
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
Code:
For i = 47 To 2 Step -1
Columns(i).EntireColumn.Hidden = IIf(Cells(6, i) > 0, False, True)
Next
 

Discussions similaires

Réponses
7
Affichages
455

Statistiques des forums

Discussions
312 836
Messages
2 092 639
Membres
105 475
dernier inscrit
ramzi slama