Liste et Sous-liste

[Kerby]

Bonjour,

J'aimerais savoir de quelle manière je peux faire des listes, des sous-listes ... dans excel.
Comme par exemple:
Dans ma première liste je voudrais avoir des marques de véhicules dans la deuxième des modèles pour chaque marque et dans la troisièmes des couleurs pour chaque modèles et ainsi de suite.
Je voudrais en fait que chaque liste sois lié avec la précédente.

J'aimerais aussi que ce sois des cellules déroulante et non des menu déroulant.

Je vous remercie à l'avance je suis en-train de m'arracher les cheveux de sur la tête! 🙁

Bonne Journée

 

[jeanpierre]

Re : Liste et Sous-liste

Bonjour Kerby et Bienvenue sur XLD,

Une recherche (en haut en dessous de ton pseudo) sur "Liste Cascade" devrait répondre à ton questionnement.... (des milliers d'exemples)

Par contre, je ne comprends pas : "J'aimerais aussi que ce sois des cellules déroulante et non des menu déroulant"

A te relire..

Jean-Pierre

 

[BOISGONTIER]

Re : Liste et Sous-liste

Bonjour,

Exemple avec Indirect() et BD

JB

 

[Kerby]

Re : Liste et Sous-liste

Oh merci,

C'est super ce site on à des réponses dans un cour délais!!!

Est-ce possible d'avoir la programmation VBA avec des commentaires s.v.p.?


Je vous remercie beaucoup!

 

[Kerby]

Re : Liste et Sous-liste

Bonjour,

J'aimerais savoir ce qui ne fonctionne pas dans mon fichier.

Merci beaucoup!

 

[BOISGONTIER]

Re : Liste et Sous-liste

Bonjour,

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
  If Not Intersect([A2:A10], Target) Is Nothing And Target.Count = 1 Then
    Sheets("liste").[J2] = Empty
    Sheets("liste").[A1:C1000].AdvancedFilter Action:=xlFilterCopy, _
       CriteriaRange:=Sheets("liste").[J1:J2], CopyToRange:=Sheets("liste").[E1], Unique:=True
  End If
  If Not Intersect([B2:B10], Target) Is Nothing And Target.Count = 1 Then
    Sheets("liste").[J2] = Target.Offset(0, -1)
    Sheets("liste").[K2] = Empty
    Sheets("liste").[A1:C1000].AdvancedFilter Action:=xlFilterCopy, _
       CriteriaRange:=Sheets("liste").[J1:K2], CopyToRange:=Sheets("liste").[F1], Unique:=True
  End If
  If Not Intersect([C2:C10], Target) Is Nothing And Target.Count = 1 Then
    Sheets("liste").[J2] = Target.Offset(0, -2)
    Sheets("liste").[K2] = Target.Offset(0, -1)
    Sheets("liste").[L2] = Empty
    Sheets("liste").[A1:C1000].AdvancedFilter Action:=xlFilterCopy, _
       CriteriaRange:=Sheets("liste").[J1:L2], CopyToRange:=Sheets("liste").[G1], Unique:=True
  End If
End Sub

JB
Formation Excel VBA JB

 

[Kerby]

Re : Liste et Sous-liste

Superbe c'est exactement ce que je désirais.

Serait-il possible que tu me donne une petite explication de chacune des ligne de code???

Je voudrais savoir aussi à quoi sert le 2e Private_sub.

Private Sub Worksheet_Change(ByVal Target As Range) ' positionnement sur premier élément
Application.EnableEvents = False
If Not Intersect([A2:A22], Target) Is Nothing And Target.Count = 1 Then
Sheets("liste").[J2] = Target
Sheets("liste").[K2] = Empty
Sheets("liste").[A1:C1000].AdvancedFilter Action:=xlFilterCopy, _
CriteriaRange:=Sheets("liste").[J1:K2], CopyToRange:=Sheets("liste").[F1], Unique:=True
On Error Resume Next
Target.Offset(0, 1) = Sheets("liste").Range("Système_2")(1)
End If
If Not Intersect([B2:B22], Target) Is Nothing And Target.Count = 1 Then
Sheets("liste").[J2] = Target.Offset(0, -1)
Sheets("liste").[K2] = Target
Sheets("liste").[L2] = Empty
Sheets("liste").[A1:C1000].AdvancedFilter Action:=xlFilterCopy, _
CriteriaRange:=Sheets("liste").[J1:L2], CopyToRange:=Sheets("liste").[G1], Unique:=True
On Error Resume Next
Target.Offset(0, 1) = Sheets("liste").Range("Système_3")(1)
End If
Application.EnableEvents = True
End Sub

Merci Beaucoup! 🙂

 

[BOISGONTIER]

Re : Liste et Sous-liste

-Regarder la rubrique filtre élaboré: Formation Excel VBA JB

Sheets("liste").[J2] = Empty
Sheets("liste").[A1:C1000].AdvancedFilter Action:=xlFilterCopy, _
CriteriaRange:=Sheets("liste").[J1:J2], CopyToRange:=Sheets("liste").[E1], Unique:=True

-Le 2e Private_sub est destiné à positionner la liste déroulante sur le 1er élément de la liste.

JB

 

[Kerby]

Re : Liste et Sous-liste

Tout marche comme sur des roulettes!

Je vous remercie infiniment!

À bientôt!