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

 

[Pierrot93]

Re : Masquer colonne en VBA

Bonjour Jerome

Essaies pour la colonne A le code ci dessous :

Range("A:A").EntireColumn.Hidden = True

Bon dimanche
@+

 

[michel_m]

Re : Masquer colonne en VBA

Bonjour Pierrot, Jérome

on peut aussi écrire, peut-être plus simplement

Columns("A:E").Hidden = False

 

[jerome pb excel]

Re : Masquer colonne en VBA

Super,
Ca marche a merveille.
Merci pour vos réponses !!!

 

[WDAndCo]

Re : Masquer colonne en VBA

Bonjour le Forum

Je voudrais la même chose (Enfin presque la même chose) Je voudrais que la colonne ce masque si en ligne 23="" et cela pour les colonnes de A à X par exemple.

D'avance merci

 

[Pierrot93]

Re : Masquer colonne en VBA

Bonjour wdandco

essaye le code ci dessous :

Sub test()
Dim i As Byte
For i = 1 To 6
    If IsEmpty(Cells(23, i)) Then Cells(23, i).EntireColumn.Hidden = True
Next i
End Sub

bonne fin d'après midi
@+

 

[Cousinhub]

Re : Masquer colonne en VBA

Bonjour, un autre code :

For Each cel In Columns("A:X").SpecialCells(xlCellTypeBlanks)
If cel.Row = 23 And cel.Value = "" Then cel.EntireColumn.Hidden = True
Next

 

[Pierrot93]

Re : Masquer colonne en VBA

Re

pour le fun, avec la methode de bhbh

Sub test()
Dim cel As Range
For Each cel In Range("A23:X23").SpecialCells(xlCellTypeBlanks)
cel.EntireColumn.Hidden = True
Next
End Sub

@+

 

[Cousinhub]

Re : Masquer colonne en VBA

re-,
bien joué pierrot, j'aurais "Dû" y penser.....

 

[WDAndCo]

Re : Masquer colonne en VBA

Bonsoir le Forum

Les codes ne marche pas !

Ci-joint le code : sur la ligne 82 c'est =SOMME(L5:L81) par Exp

Sub Effacecolonne()
'For Each cel In Columns("L:AG").SpecialCells(xlCellTypeBlanks)
'If cel.Row = 82 And cel.Value = 0 Then cel.EntireColumn.Hidden = True
'Next
'Dim cel As Range
'For Each cel In Range("L82:AG82").SpecialCells(xlCellTypeBlanks)
'cel.EntireColumn.Hidden = True
'Next
Dim i As Byte
For i = 12 To 35
If IsEmpty(Cells(23, i)) Then Cells(23, i).EntireColumn.Hidden = True
Next i
End Sub

 

[Cousinhub]

Re : Masquer colonne en VBA

Bonsoir WD,

Je voudrais que la colonne ce masque si en ligne 23=""

ce code fonctionne parfaitement pour ce que tu as demandé...
Maintenant, le résultat dans ta cellule provenant d'une formule, ta cellule n'est donc pas vide : .SpecialCells(xlCellTypeBlanks)
il faudrait faire une boucle dans la ligne 82

For Each cel In Range("A82:X82")
If cel.value = 0 Then cel.EntireColumn.Hidden = True
'Next

 

[WDAndCo]

Re : Masquer colonne en VBA

Re,

Pardon pour cette confusion entre "" et 0 mais pour encore apprendre ce soir QQ chose : .SpecialCells(xlCellTypeBlanks) cela provoque quoi ?

 

[Cousinhub]

Re : Masquer colonne en VBA

re-,
fais un petit test :
dans ton tableau, fais Outils/Macro/Enregistrer une nouvelle macro
puis Edition/Atteindre/Cellules....
choisis Vides puis OK
stoppe l'enregistreur de Macro, regarde le code
Donc tu as sélectionné les cellules ""Vides""

 

[Riri16]

Bonjour,

Bien que le sujet soit ancien, je me permet de remonter ce post car j'aurais besoin de masquer des colonnes à l'ouverture du fichier.

Ces colonnes doivent se masquer suivant une valeur dans la première case de cette colonne ("1")

Exemple : les cases A1 à N1 =1, ces colonnes doivent se masquer, les suivantes ne devant pas bouger.

J'ai essayé de mixer les solutions ci-dessus mais sans succès

j'utilise les colonnes A à NA

Merci de votre aide

 

[Cousinhub]

Bonjour,
Ouah, c'est effectivement du déterrage, signe positif d'une recherche de ta part. Bravo
Un essai :

Sub masq_col()
Dim Cel As Range
For Each Cel In Range("A1:NA1")
    Cel.EntireColumn.Hidden = Cel.Value = 1
Next Cel
End Sub

Bonne journée