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 :

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
et Dans mon module la macro est la suivante :

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
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)

Qqn aurait une idée ?

Cordialement