Complément au code vba masquage de colonnes

rosfr11 · 10 Décembre 2009

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 · 10 Décembre 2009

Re : Complément au code vba masquage de colonnes

Bonsoir Rosfr11 🙂,
Peut-être ainsi

Code:

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 · 10 Décembre 2009

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

Complément au code vba masquage de colonnes

rosfr11

Guest

JNP

XLDnaute Barbatruc

rosfr11

Guest

Discussions similaires

Complément au code vba masquage de colonnes

rosfr11

Guest

JNP

XLDnaute Barbatruc

rosfr11

Guest

Discussions similaires

Privacy & Transparency

Privacy & Transparency