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

Masquer colonne en VBA

Créer une discussion

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 !

S'inscrire
J

jerome pb excel

XLDnaute Nouveau
Bonjour,
Vous m'aviez déjà aidé pour masquer des lignes sous VBA, mais je ne parvient pas à modifier cette formules pour masquer des colonnes, si quelq'un a une idée...

Voici la formule :
Select Case Me.ComboBox2
Case "COMPTE RENDU"
Worksheets("Page garde").Range("1:19").EntireRow.Hidden = False
Worksheets("page garde").Range("20:34").EntireRow.Hidden = True

Merci à tous
 
Trier par date Trier par votes
Re-,
Essaie également en rajoutant la première ligne (Application.....) :
VB: 
Sub masq_col()
Dim Cel As Range
Application.ScreenUpdating = False
For Each Cel In Range("A1:NA1")
    Cel.EntireColumn.Hidden = Cel.Value = 1
Next Cel
End Sub
 
Vote positif 0 Vote négatif
Bonjour, j'ai un soucis similaire au personnes précédentes mais malgré des essais avec ces lignes de codes ca ne fonctionne toujours pas.
Mon programme permet de mettre à jour un devis en fonction de ce qu'on rentre en entrée, il s'étend sur plusieurs page avec différents types de données qui permettent de calculer plein de chose.

J'ai réussi à masquer des lignes mais impossible de masquer des colonnes entière malgré plusieurs formes de codes, soit ca ne masque pas toute la colonne soit ca me met une erreur d'exécution 1004: erreur définie par l'application ou par l'objet . Pourriez-vous m'aider?

Voici mon code:
VB: 
Sub MAJDevisRegards()
LigneDebut = 13
LigneFin = 121
NumeroColonne = 8
For i = LigneDebut To LigneFin
If Cells(i, NumeroColonne).Value > [G3] Then
Cells(i, NumeroColonne).EntireRow.Hidden = True
Else
Cells(i, NumeroColonne).EntireRow.Hidden = False
End If
Next i

Worksheets("chiffrage").Select
LigneDebut = 4
LigneFin = 61
NumeroColonne = 11
For i = LigneDebut To LigneFin
If Cells(i, NumeroColonne).Value > [K2] Then
Cells(i, NumeroColonne).EntireRow.Hidden = True
Else
Cells(i, NumeroColonne).EntireRow.Hidden = False
End If
Next i

Worksheets("lestage").Select
ColoneDebut = 2
ColoneFin = 19
NumeroLigne = 45
For i = ColoneDebut To ColoneFin
If Cells(i, NumeroLigne).Value > [U45] Then
Cells(i, NumeroLigne).EntireColumn.Hidden = True
Else
Cells(i, NumeroLigne).EntireColumn.Hidden = False
End If
Next i

Worksheets("devis model").Select
LigneDebut = 18
LigneFin = 87
NumeroColonne = 9
For i = LigneDebut To LigneFin
If Cells(i, NumeroColonne).Value > [I1] Then
Cells(i, NumeroColonne).EntireRow.Hidden = True
Else
Cells(i, NumeroColonne).EntireRow.Hidden = False
End If
Next i


End Sub

C'est le code de la feuille lestage qui bloque, savez vous pourquoi?
Merci beaucoup
 
Dernière édition:
Vote positif 0 Vote négatif
Identifiez-vous ou inscrivez-vous pour participer.
Rejoins nos membres "Supporter XLD" et booste ton expérience Excel !
- 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

S
  • Résolu(e)
Microsoft 365 Boucle pour afficher et masquer des lignes
Réponses
12
Affichages
686
shf
S
C
  • Question Question
Microsoft 365 Lenteur macro mise en page
Réponses
7
Affichages
171
CortoXls
C
L
  • Résolu(e)
Microsoft 365 Extraire les données de la valeur cherchée en note
Réponses
5
Affichages
216
Lau01150
L
  • Résolu(e)
Microsoft 365 Code VBA pour vérifier si lignes masquées le sont bien
2
Réponses
16
Affichages
2 K
PatFr38
A
  • Question Question
XL 2010 Problème ou alternative à SOMPRODUCT en VBA
Réponses
14
Affichages
343
bruno lemaire
B
L
  • Résolu(e)
XL 2016 finaliser mon code VBA
Réponses
8
Affichages
803
Linda42
L
C
  • Question Question
XL 2019 Tableau- creation de lignes: probleme de hauteur de lignes
Réponses
6
Affichages
679
Cheyenne_2021
C
Q
  • Résolu(e)
Microsoft 365 Exécutions directes différentes vs "pas à pas"
Réponses
2
Affichages
539
Quentin2106
Q
T
  • Question Question
XL 2019 afficher/masquer lignes avec case d'option (contrôle de formulaire)
Réponses
1
Affichages
1 K
Tioneb_h
T
B
  • Question Question
Microsoft 365 Automatisation fichier de compte rendu
Réponses
13
Affichages
1 K
Blf57
B
M
  • Question Question
XL 2019 Code VBA
Réponses
12
Affichages
794
MarieLN
M
EXCEL :: Les Tableaux Structurés :: Une classe VBA - V1.05 - Evolutions majeures exports CSV, XML, XML UTF-8, JSON, HTML, PDF, JPG, JPEG, BMP, EXCEL
Réponses
10
Affichages
449
oguruma
EXCEL :: Les Tableaux Structurés :: Une classe VBA pour mieux les gérer - V1.02
Réponses
4
Affichages
384
bsalv
B
B
  • Résolu(e)
XL 2019 Format nombre dans un tableau à colonne et ligne variable
Réponses
6
Affichages
696
babie971
B
M
  • Résolu(e)
XL 2016 Filtre auto VBA
Réponses
3
Affichages
897
MickaeL_D
M
C
  • Résolu(e)
Microsoft 365 Macro pour afficher/masquer lignes qui ne s'exécute plus :-/
Réponses
14
Affichages
1 K
Cinelles
C
C
Excel : Fusionner des cellules en conservant le contenu et la police des cellules à fusionner
Réponses
5
Affichages
378
crocrocro
C
G
  • Question Question
Microsoft 365 Saut de ligne dans une cellule
Réponses
3
Affichages
590
GClaire
G
M
  • Résolu(e)
XL 2016 envoi de mail en automatique en fonction de plusieurs menus deroulants
2
Réponses
26
Affichages
2 K
mathieu20
M
J
  • Question Question
XL 2019 sélection et mise en page avant envoie mail
Réponses
5
Affichages
573
sylvanu
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…