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 :
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 !
Partager