Masquer colonne en VBA

[jerome pb excel]

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

 

[Riri16]

Merci google

Merci pour ton aide.

J'ai trouvé ça aussi entre temps ici, ca traine un peu mais ça marche (peut-être du au nombre de colonne)

Je vais tester ta proposition voir laquelle va le mieux

 

[Cousinhub]

Re-,
Essaie également en rajoutant la première ligne (Application.....) :

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

 

[RDF22]

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:

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