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

Macro masquer une colonne a 0

  • Initiateur de la discussion Initiateur de la discussion noichie
  • 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 !

N

noichie

Guest
Help !!

ça fait plusieurs heures que je me prends la tête sur un problème qui je pense se résout en 2 sec.
Voici :
J'ai un tableau qui en ligne 12 comportent des éléments dont des cellules qui sont à 0. Je souhaite quand ma macro rencontre cette cellule qu'elle me masque la colonne correspondante.

Merci à tous pour votre aide.
 
Re : Macro masquer une colonne a 0

Bonsoir,

Sub cache()
Dim c As Range
For Each c In Range("tab")
If c.Value = 0 Then c.EntireRow.Hidden = True
Next
End Sub

Selectionner le tableau et le nommer tab

@+
6F

Edit : remplacer la ligne 4
par If c.Value = 0 Then c.EntireColumn.Hidden = True
c'est la colonne que tu veux cacher et non la ligne ! Oupsss !
 
Dernière modification par un modérateur:
Re : Macro masquer une colonne a 0

Bonsoir et bienvenu sur le forum Noichie,

Tu es nouveau(elle) sur le forum donc tu ne le sais peut-être pas, mais ici, c'est comme dans la vrai vie, on commence par "BONJOUR" 😉

Ta question étant succincte, voici une solution basique :

Code:
Sub TaMacro()

Dim NuméroColonne As Long

[COLOR="Green"]'... le début de ta macro[/COLOR]

For NuméroColonne = 1 To 50
   If Cells(12, NuméroColonne) = 0 Then
       Columns(NuméroColonne).EntireColumn.Hidden = True
   End if
Next NuméroColonne

[COLOR="Green"]'... la fin de ta macro[/COLOR]
End Sub

Bonne fin de soirée

Edition : Salut CIFACILE
 
- 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
Assurez vous de marquer un message comme solution pour une meilleure transparence.

Discussions similaires

Réponses
16
Affichages
505
Réponses
4
Affichages
586
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…