Liste déroulante en cascade

CelluleVide

XLDnaute Occasionnel

• 9 Juin 2010

• #2

Re : Liste déroulante en cascade

Bonjour anto59,

En cherchant un peu sur cet excellent forum, tu aurais trouver le fichier joint que j'ai "piquer" ici et dont je remercie encore une fois le ou les auteurs.

A+

 

Pièces jointes

• Liste en Cascade.xls

  31 KB · Affichages: 191
• Liste en Cascade.xls

  31 KB · Affichages: 191
• Liste en Cascade.xls

  31 KB · Affichages: 182

Vote positif 0 Vote négatif

A

anto59

XLDnaute Junior

• 9 Juin 2010

• #3

Re : Liste déroulante en cascade

Merci pour ton message mais pour un soucis de présentation, j'aimerais que la deuxième liste ne soit pas tout de suite présente sur la feuille, ce qui n'est pas le cas dans cet exemple.
Le problème c'est que je ne sais pas si c'est possible.

 

Vote positif 0 Vote négatif

F

Fo_rum

XLDnaute Accro

• 9 Juin 2010

• #4

Re : Liste déroulante en cascade

Salut

voir si cela peut aider.

 

Pièces jointes

• ListesDépendantes(+VBA).xls

  19 KB · Affichages: 140

Vote positif 0 Vote négatif

A

anto59

XLDnaute Junior

• 9 Juin 2010

• #5

Re : Liste déroulante en cascade

Merci, ça peut en effet bien m'aider.
En revanche j'ai deux petites questions:
-Où est ce que tu codes le fait de mettre la liste 1 dans le cas 1 et la liste 2 dans le cas 2?
-A quoi sert les Target.offset.select ?

 

Vote positif 0 Vote négatif

F

Fo_rum

XLDnaute Accro

• 9 Juin 2010

• #6

Re : Liste déroulante en cascade

Re

anto59 à dit:

Merci, ça peut en effet bien m'aider.
En revanche j'ai deux petites questions:
-Où est ce que tu codes le fait de mettre la liste 1 dans le cas 1 et la liste 2 dans le cas 2?
-A quoi sert les Target.offset.select ?

Cliquez pour agrandir...

C'est dans la création des noms qu'on choisit la plage (voir : Insertion-->Nom-->Définir).
Les plages dépendent des listes définies (ici, en Feuil2).
Les noms sont quelconques (avec des interdits que tu découvriras en les essayant)

Target.offset(x ,y ).select sert à placer le curseur dans la cellule située à x lignes et y colonnes.

 

Vote positif 0 Vote négatif

H

hajorinette

XLDnaute Occasionnel

• 11 Juin 2010

• #7

Re : Liste déroulante en cascade

Bonjour le forum

je reprends la conversation car j'ai des questions concernant ce fichier.
En particulier concernant la macro qui permet une fois le choix fait, le positionnement de la deuxième liste déroulante sur le premier élément.
Pour un fichier vraiment similaire ma macro ne marche pas, pouvez vous m'aidez?
La différence entre ce fichier posté et le mien c'est que

*J'ai ma base de données et mes listes déroulantes sur une même feuille
*ma première liste déroulante se trouve en A24 et la deuxieme en B24
*les données de mon premier choix se trouvent à la première ligne (A1,B1...)
*les données de mon 2ème choix sont en dessous du premier choix😛ar exp pour A1 mon 2ème choix se trouve en A2,A3 et A4, sachant que je ne dépasse pas 20 lignes pour le 2ème choix
*les noms de mes champs sont les suivants:
CHOIX1:=DECALER(feuille1!$A$1;;;;NBVAL(feuille1!$A$1:$AE$1))
CHOIX2:=feuille1!$A$1


Merci par avance

 

Vote positif 0 Vote négatif

H

hajorinette

XLDnaute Occasionnel

• 11 Juin 2010

• #8

Re : Liste déroulante en cascade

Je précise que pour la validation des données sous forme de liste

j'ai en A24 = choix1
et en
B24=DECALER(choix2;1;EQUIV(A24;choix1;0)-1;NBVAL(DECALER(choix2;1;EQUIV(A24;choix1;0)-1;22);1))

 

Vote positif 0 Vote négatif

F

Fo_rum

XLDnaute Accro

• 11 Juin 2010

• #9

Re : Liste déroulante en cascade

Salut,

hajorinette, si c'est à moi que tu poses ton problème, voici une adaptation (VBA) avec ce que j'ai compris.

 

Pièces jointes

• 2ListesDépendantes(VBA).xls

  23 KB · Affichages: 116

Vote positif 0 Vote négatif

H

hajorinette

XLDnaute Occasionnel

• 11 Juin 2010

• #10

Re : Liste déroulante en cascade

Nickel un très GRAND merci Fo rum, j'ai zappé le fait de nommer les listes
Je reviens vers toi si je bute sur le compréhension de quelque chose mais à priori c'est tout bon ^^

Merci encore
génial ce fo..rum!

 

Vote positif 0 Vote négatif

H

hajorinette

XLDnaute Occasionnel

• 11 Juin 2010

• #11

Re : Liste déroulante en cascade

Private Sub Worksheet_Change(ByVal Target As Range)

Dim Col As Byte, Derli As Byte, Nom As String

If Target.Column > 2 Or Target.Address <> "$A$24" Then Exit Sub
On Error Resume Next
Application.EnableEvents = False
For Col = 1 To 9 '9 pour la dernière colonne
If Target = Cells(1, Col) Then
Derli = Cells(25, Col).End(xlUp).Row
Nom = Range(Cells(2, Col), Cells(Derli, Col)).Address
Exit For
End If
Next
With Cells(24, "B")
.Select
.ClearContents
.Validation.Delete
.Validation.Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, _
Operator:=xlBetween, Formula1:="=" & Nom
.Value = Cells(2, Col).Value
End With
Application.EnableEvents = True
End Sub


j'ai compris le code pour à peu près tout sauf pour la necessité de nommer les listes de 2ème choix

Evidemment je les ai nommées sur la 1ere feuille car je fais tout dessus mais je ne sais pas pourquoi la macro ne marche pas , ya il une obligation sur les noms à mettre pour ces listes

Merci d'avance

 

Vote positif 0 Vote négatif

H

Habitude

XLDnaute Accro

• 11 Juin 2010

• #12

Re : Liste déroulante en cascade

Il y a aussi les listes de validation avec fonction indirect

 

Vote positif 0 Vote négatif

H

hajorinette

XLDnaute Occasionnel

• 11 Juin 2010

• #13

Re : Liste déroulante en cascade

Je ne sais pas exactement ou créer ces listes avec la fonction indirect.
J'ai tenté de le faire en B24 (emplacement de la liste déroulante de mon 2ème choix)
ça me propose bien les choix qu'il faut mais le positionnement de la deuxième liste déroulante sur le premier élément. nen se fait toujours pas :s
je pensais que la macro imposait à B24 quelle soit une liste de validation :Type:=xlValidateList

Merci de me renseigner plus par rapport à ça

 

Vote positif 0 Vote négatif

H

Habitude

XLDnaute Accro

• 11 Juin 2010

• #14

Re : Liste déroulante en cascade

En A1
Tu crée d'abord une première liste de validation.
= NomListe

Chaque élément de cette liste doit être lier à une liste du même nom.

En B1
Tu créer une deuxième liste de validation
= Indirect (A1)

 

Vote positif 0 Vote négatif

F

Fo_rum

XLDnaute Accro

• 11 Juin 2010

• #15

Re : Liste déroulante en cascade

Re,

avec ce code, tu n'as besoin de nommer que la liste en A24

hajorinette à dit:

Nom = Range(Cells(2, Col), Cells(Derli, Col)).Address

.Value = Cells(2, Col).Value
j'ai compris le code pour à peu près tout sauf pour la necessité 😕 de nommer les listes de 2ème choix

Cliquez pour agrandir...

la ligne en rouge définit la plage de la liste de validation en B24 tandis que la ligne en bleu permet d'avoir le premier élément.

Si tu as encore des difficultés, envoie un morceau épuré d ton fichier.

 

Vote positif 0 Vote négatif