Masquer Colonne

[jacky49]

Bonsoir le forum,

voici un code que j'ai fais avec l'enregistreur de macro et qui fonctionne sur la feuille ou je l'ai fait. Ma question est que je voudrais que ce code fonctionne pour toutes les feuilles de mon classeur sachant que c'est toujours la même colonne que je masque
merci d'avance
jacky

Sub MasquerColonneF()
'
' MasquerColonneF Macro
'

'
    Columns("F:F").Select
    Range("F3").Activate
    Selection.EntireColumn.Hidden = True
    Range("J7").Select
End Sub

 

[Fred0o]

Re : Masquer Colonne

Bonsoir Jacky,

Voici qui devrait répondre à ton besoin :

Sub MasquerColonneF()
'
' MasquerColonneF Macro
'

'
    Dim sh
    For Each sh In ActiveWorkbook.Sheets
        sh.Columns("F:F").EntireColumn.Hidden = True
    Next
End Sub

A+

 

[DoubleZero]

Re : Masquer Colonne

Bonjour, jacky49, le Forum,

Peut-être ainsi :

Sub MasquerColonneF()
Dim ws As Worksheet
Application.ScreenUpdating = False
For Each ws In Worksheets
ws.Select
Columns("F:F").EntireColumn.Hidden = True
Range("J7").Select
Next
Application.ScreenUpdating = True
End Sub

A bientôt 🙂.

Bonjour, Fred0o

 

[JCGL]

Re : Masquer Colonne

Bonjour à tous,
Salut 00,
Salut Fred,

Ceci dans le ThisWorkBook :

Option Explicit

Private Sub Workbook_SheetActivate(ByVal sh As Object)
Columns("F:F").EntireColumn.Hidden = True
End Sub

Bises à 00
A++
A + à tous

 

[DoubleZero]

Re : Masquer Colonne

Re-bonjour,

... Bises à 00 ...

Bises, itou, JCGL 🙂 !

 

[jacky49]

Re : Masquer Colonne

Re,
merci à tous, cela fonctionne avec le code à DoubleZero, et quel code faudrait il maintenant pour afficher à nouveau toutes les colonnes en même temps SVP
merci
jacky

 

[jacky49]

Re : Masquer Colonne

re, celui de JCGL aussi, mais je préfères masquer avec un bouton car j'entre des données dans la colonne et la , comme la colonne se masque à l'ouverture de la feuille, je suis obligé de la réafficher pour entrer mes données
merci
jacky

 

[Etienne2323]

Re : Masquer Colonne

Salut Jacky,
remplace simplement le

Columns("F:F").EntireColumn.Hidden = True

par un

Columns("F:F").EntireColumn.Hidden = False

Cordialement,

Étienne

 

[jacky49]

Re : Masquer Colonne

Re,
le code de FredOo fonctionne aussi très bien
merci
jacky

 

[jacky49]

Re : Masquer Colonne

re Etienne,

j'ai essayé, mais en fait, il me réaffiche que la feuille qui est ouverte et pas les autres, ce que je voudrais , c'est que la colonne F se réaffiche dans toutes les feuilles comme le code qui les masque
merci
jacky

 

[DoubleZero]

Re : Masquer Colonne

Re-bonjour,

A tester :

Sub Colonne_F_afficher()
Dim ws As Worksheet
Application.ScreenUpdating = False
For Each ws In Worksheets
ws.Select
Columns("F:F").EntireColumn.Hidden = False
Range("J7").Select
Next
Application.ScreenUpdating = True
End Sub

A bientôt 🙂.

 

[jacky49]

Re : Masquer Colonne

Re Etienne et DoubleZero,

en fait le code fonctionne quand on change True par False mais comme j'avais laissé le code JCGL dans le ThisWorkBook , des que j'ouvrais une feuille pour voir si le code fonctionnait, le code de JCGL me masquait la colonne F.
Donc merci à tous
jacky