Bonjour à tous,
J'aimerai masquer plusieurs colonnes en cliquant sur une cellule ou les afficher si elles sont déja masquées.
J'ai donc mis le code suivant dans la feuille où est situé ma cellule :
et Dans mon module la macro est la suivante :
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5 Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Not Intersect(Target, Range("AA2")) Is Nothing Then Call Total End If End Sub
Quand les colonnes sont affichées et que je clique en AA2 ça les masque bien mais quand je re-clique en AA2 ça ne les ré-affichent pas (j'ai l'impression qu'ils les affichent puis les re-masquent quasi instantanément)
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9 Sub Total() If Sheets("Moyenne").Range("AB:AH").EntireColumn.Hidden = True Then Sheets("Moyenne").Range("AB:AH").EntireColumn.Hidden = False Else Sheets("Moyenne").Range("AB:AH").EntireColumn.Hidden = True End If End Sub
Qqn aurait une idée ?
Cordialement
Partager