Afficher, masquer

Bonjour,

J'ai deux macros, qui me semblent identiques.

La 1ère, "OUTILS", fonctionne normalement,

La 2e, "OUTIL2", NON

Merci de me sortir de cette incompréhension.

Sub OUTILS()

If Rows("22:22").EntireRow.Hidden = True Then

Rows("22:22").EntireRow.Hidden = False

Else: Rows("22:22").EntireRow.Hidden = True

End If

End Sub

Sub OUTILS2()

If Columns("U:Z").EntireRow.Hidden = True Then

Columns("U:Z").EntireRow.Hidden = False

Else: Columns("U:Z").EntireRow.Hidden = True

End If

End Sub

Bonjour,

If Columns("U:Z").EntireRow.Hidden = True Then
Columns("U:Z").EntireRow.Hidden = False
Else: Columns("U:Z").EntireRow.Hidden = True
End If

si c'est les colonnes que vous voulez masquer,

remplacer EntireRow par EntireColumn

bonsoir,

tu peux avantageusement remplacer tes macros par celles-ci :

Sub SwitchCol()
Columns("U:Z").EntireColumn.Hidden = Not Columns("U:Z").EntireColumn.Hidden
End Sub

Sub SwitchRow()
Rows("22:22").EntireRow.Hidden = Not Rows("22:22").EntireRow.Hidden
End Sub

A+

Merci à vous deux. Le Switch est une découverte. Merci.

Merci pour ce retour, au plaisir!

si le problème est résolu, s.v.p. pour clôturer le fil, cliquer sur le bouton V vert du post à coté du bouton EDITER, merci!