Afficher/Masquer un tableau détail

Le
Apitos
Bonjour à tous,

J'aimerais en cliquant dans une cellule, qu'un tableau détaillé c=
orrespondant au nom de la zone cliquée soit afficher sous la cellule e=
n question.

Un deuxième clique va masquer ce tableau.

Merci d'avance.

http://www.cjoint.com/c/FFApIepkeiD
Vidéos High-Tech et Jeu Vidéo
Téléchargements
Vos réponses
Gagnez chaque mois un abonnement Premium avec GNT : Inscrivez-vous !
Trier par : date / pertinence
DanielCo
Le #26402914
Bonjour,
En se basant sur les valeurs de la colonne D de Feuil1 :
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel
As Boolean)
Dim Ctr As Long
If Target.Column = 1 And Target.Font.Bold = True Then
Cancel = True
If Target.Value = Target.Offset(1).Value And
Target.Offset(1).EntireRow.Hidden = True Then
Ctr = 0
Do
Ctr = Ctr + 1
If Target.Offset(Ctr).Value = "" Then Exit Sub
If Application.VLookup(Target.Offset(Ctr).Value,
[Feuil1!A:D], 4, 0) = Target.Value Then
Target.Offset(Ctr).EntireRow.Hidden = False
Else
Exit Sub
End If
Loop
End If
If Target.Value = Target.Offset(1).Value And
Target.Offset(1).EntireRow.Hidden = False Then
Ctr = 0
Do
Ctr = Ctr + 1
If Target.Offset(Ctr).Value = "" Then Exit Sub
If Application.VLookup(Target.Offset(Ctr).Value,
[Feuil1!A:D], 4, 0) = Target.Value Then
Target.Offset(Ctr).EntireRow.Hidden = True
Else
Exit Sub
End If
Loop
End If
End If
End Sub
Cordialement.
Daniel
Bonjour à tous,
J'aimerais en cliquant dans une cellule, qu'un tableau détaillé
correspondant au nom de la zone cliquée soit afficher sous la cellule
en question.
Un deuxième clique va masquer ce tableau.
Merci d'avance.
http://www.cjoint.com/c/FFApIepkeiD
Apitos
Le #26403068
Bonjour Daniel,
J'ai essayé le code dans la feuille Feuil2.
Mais cette condition est toujours fausse :
If Target.Value = Target.Offset(1).Value And Target.Offset(1).EntireRow.H idden = False Then
http://www.cjoint.com/c/FFCwVc1mmLK
DanielCo
Le #26403078
Bonjour,
http://www.cjoint.com/c/FFDiQQXd3iv
Daniel
Bonjour Daniel,
J'ai essayé le code dans la feuille Feuil2.
Mais cette condition est toujours fausse :
If Target.Value = Target.Offset(1).Value And
Target.Offset(1).EntireRow.Hidden = False Then
http://www.cjoint.com/c/FFCwVc1mmLK
Publicité
Poster une réponse
Anonyme