Complément au code vba masquage de colonnes

[rosfr11]

Bonjour les amis,

Le code ci-dessous est fait pour me faire apparaître certaines cellules lorsque je clique sur la cellule AK8:

Mon problème est que j'aimerais être capable de faire de la saisie dans les cellules des colonnes qui s'affichent alors. Mais lorsque je clique dans l'une de ces cellules mes colonnes se masquent automatiquement.

Si quelqu'un à la réponse à mon problème, je prends! MERCI

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Application.Intersect(Target, Range("AK8")) Is Nothing Then
Range("AL:AX").EntireColumn.Hidden = Not True
Else
Range("AL:AX").EntireColumn.Hidden = True
End If
Calculate
End Sub

 

[JNP]

Re : Complément au code vba masquage de colonnes

Bonsoir Rosfr11 ,
Peut-être ainsi

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
[B][COLOR=red]If Not Application.Intersect(Target, Range("AL:AX")) Is Nothing Then Exit Sub[/COLOR][/B]
If Not Application.Intersect(Target, Range("AK8")) Is Nothing Then
Range("AL:AX").EntireColumn.Hidden = Not True
Else
Range("AL:AX").EntireColumn.Hidden = True
End If
Calculate
End Sub

Bon courage

 

[rosfr11]

Re : Complément au code vba masquage de colonnes

Un gros Merci,

J'avais aussi trouvé ceci qui fonctionne:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Application.Intersect(Target, Range("AK:AX")) Is Nothing Then
Range("AL:AX").EntireColumn.Hidden = Not True
Else
Range("AL:AX").EntireColumn.Hidden = True
End If
Calculate
End Sub

Bonne fin de soirée