Discussion :

[RodKAZ]

Bonjour le forum,


Un peu d'aide svp, pour un débutant en VBA.

Je cherche à faire une macro très rapide est facile qui permet de demasquer toutes les colonnes d'un feuille ( si colonne cacher il y a) à partir d'un bouton

mais le code suivant ne fonctionne pas et je ne comprends pas pourquoi

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

 Worksheets("NAME").entirecolumn.hidden=False

Si quelqu'un pouvez m'orienter. Merci d'avance et bonne journée

[QuestVba]

Bonjour

Voici deux possibilités:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
Worksheets("Feuil1").Range("A:A").EntireColumn.Hidden = True
Worksheets("Feuil1").Range("A:A").EntireColumn.Hidden = False

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
Worksheets("Feuil1").Columns(1).EntireColumn.Hidden = True
Worksheets("Feuil1").Columns(1).EntireColumn.Hidden = False

Pour tester :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
If Worksheets("Feuil1").Range("A:A").EntireColumn.Hidden = True Then MsgBox "Masquée"
If Worksheets("Feuil1").Columns(1).Hidden = True Then MsgBox "Masquée"

Pour changer :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
If Worksheets("Feuil1").Range("A:A").EntireColumn.Hidden = True Then Worksheets("Feuil1").Range("A:A").EntireColumn.Hidden = False
If Worksheets("Feuil1").Columns(1).Hidden = True Then Worksheets("Feuil1").Columns(1).Hidden = False

[RodKAZ]

Ok merci. En fait il faut que je nome une plage. VBA ne comprend pas qu'il faut démasquer toute les colonnes masquées. Par exemple pour mon cas précis je dois lui indiquer le ranger de Range(A:XFD) pour qu'il prenne tout les colonnes de la feuille ???

Merci bcp de votre aide,
J'attends votre retour mais je mets quand même la solution comme résolu.

[QuestVba]

Re-,

Fais comme ceci,

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
With Sheets("Feuil1").Cells
 .EntireColumn.Hidden = False
End With