Discussion :

[Coxtox]

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

[goldstar]

Bonjour,

Le code fonctionne chez moi.

Cordialement,

[Coxtox]

Vu ! Oublié d'actualiser ! Effectivement, ça ne marchait pas car je restais sur la même cellule.

Cordialement

[Marc-L]

Bonjour, bonjour !

C'est normal car tu restes sur la même cellule ‼ Sélectionne d'abord une autre cellule puis revient sur AA2 …

Edit : trop tard, résolu pendant la rédaction de ce message …

Sinon change d'évènement !

Code :

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

1
2
3
4
5
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    If Target.Address <> "$AA$2" Then Exit Sub
    Cancel = True
    With Columns("AB:AH"):  .Hidden = Not .Hidden:  End With
End Sub

_____________________________________________________________________________________________________

Merci de cliquer sur pour chaque message ayant aidé puis sur pour clore cette discussion …

_____________________________________________________________________________________________________
Je suis Charlie, Bardo, Sousse

[Coxtox]

Salut Marc,

Si je souhaite rajouter une condition à ton code c'est possible :

Code :

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

1
2
3
4
5
6
7
8
9
10
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    If Target.Address <> "$AA$2" Then Exit Sub
    Cancel = True
    With Columns("AB:AI"):  .Hidden = Not .Hidden:  End With
 
    If Target.Address <> "$AJ$2" Then Exit Sub
    Cancel = True
    With Columns("AK:AY"):  .Hidden = Not .Hidden:  End With
 
End Sub

Par exemple ceci ? Car ça fonctionne pour la première mais pas pour la seconde ...

[Marc-L]

Cela ne pourra jamais fonctionner pour la seconde avec cette conception pas du tout logique car,
si la cellule AJ2 est double-cliquée, comment veux-tu qu'elle réussisse le test de la ligne n°2 ?‼

Il faut donc contrôler les deux adresses de cellules dans cette ligne ou utiliser un bloc Select Case :

Code :

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

1
2
3
4
5
6
7
8
9
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    Select Case Target.Address
           Case "$AA$2":    COL$ = "AB:AI"
           Case "$AJ$2":    COL$ = "AK:AY"
           Case Else:       Exit Sub
    End Select
                         Cancel = True
    With Columns(COL):  .Hidden = Not .Hidden:  End With
End Sub

_____________________________________________________________________________________________________

Merci de cliquer sur pour chaque message ayant aidé puis sur pour clore cette discussion …

_____________________________________________________________________________________________________
Il n'y a pas que les aigles qui atteignent les sommets, les escargots aussi mais ils en bavent !