Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

Problème Masquage de colonne

  • Initiateur de la discussion Initiateur de la discussion TBS
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

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

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

@+
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

Réponses
7
Affichages
178
Réponses
5
Affichages
915
  • Question Question
Microsoft 365 Problème de date
Réponses
5
Affichages
362
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…