Bonjour à tous j'aurai besoin par rapport au dernier fichier présenté de pouvoir répéter la fonction située en A2 en A3 A4 A5ect et l'affichage des colonne se ferait en fonction de la celule active .
Par exemple A3 affiche B D E Et A4 affiche C P K si je clique sur A3 il m'affiche BDE etc
donc j'ai copié le code et tenté de le modifier :
Option Explicit
Private Sub Worksheet_Change(ByVal Target As Excel.Range)
If Not Application.Intersect(Target, Range("a2")) Is Nothing Then
Application.ScreenUpdating = False
Range("b:BC").EntireColumn.Hidden = False 'affiche tout
'*** masque les colonnes indiquées ****
If Target = 8 Then End
If Target = 7 Then Range("AZ:BC").EntireColumn.Hidden = True
If Target = 6 Then Range("AV:BC").EntireColumn.Hidden = True
If Target = 5 Then Range("AR:BC").EntireColumn.Hidden = True
If Target = 4 Then Range("AN:BC").EntireColumn.Hidden = True
If Target = 3 Then Range("AJ:BC").EntireColumn.Hidden = True
If Target = 2 Then Range("AF:BC").EntireColumn.Hidden = True
End If
Option Explicit
Private Sub Worksheet_Change2(ByVal Target As Excel.Range)
If Not Application.Intersect(Target, Range("a3")) Is Nothing Then
Application.ScreenUpdating = False
Range("b:BC").EntireColumn.Hidden = False 'affiche tout
'*** masque les colonnes indiquées ****
If Target = 8 Then End
If Target = 7 Then Range("AZ:BC").EntireColumn.Hidden = True
If Target = 6 Then Range("AV:BC").EntireColumn.Hidden = True
If Target = 5 Then Range("AR:BC").EntireColumn.Hidden = True
If Target = 4 Then Range("AN:BC").EntireColumn.Hidden = True
If Target = 3 Then Range("AJ:BC").EntireColumn.Hidden = True
If Target = 2 Then Range("AF:BC").EntireColumn.Hidden = True
End If
End Sub
Mais j'obtiens beaucoup d'erreurs
Merci de votre soutien