Double liste déroulante avec chois d'onglet

[Fugy]

Bonjour medames ze medames

j'essayé de crée une liste déroulante double.
1. liste déroulante suivant des feuilles couleurs bleues (A, B …)

2.si je choisis une des feuilles A ou B… j'ai une liste déroulante des numéros de la feuille choisis (liste numéros dans la feuille)

J'ai mis ci-joint le fichier pour mieux comprendre.

J'ai essayé pour la liste déroulante de faire "validation" et de mettre une macro mais sa prener pas. Je suis pas sur aussi que la macro soit niquel ...

Merci d'avance pour votre aide !

 

[Pierrot93]

Re : Double liste déroulante avec chois d'onglet

Re, bonjour Bqtr

je pense que Bqtr a répondu (mercci à lui), a tes 2 premières questions, pour la 3ème je ne crois pas, image trouvée dans les cliparts office...

bon après midi
@+

 

[Fugy]

Re : Double liste déroulante avec chois d'onglet

Bonjour Fugy, Toine, Pierrot93

En PJ un fichier qui fait ce que tu demandes, j'ai repris la macro de Pierrot en y ajoutant la gestion des couleurs des onglets ( avec Excel 2003 ca fonctionne )

A l'ouverture du classeur, la liste des feuilles de couleur se crée en A1 dans la feuille 3. Ensuite quand tu changes la valeur de cette liste, une autre liste se crée en B1 avec les valeurs de la feuille sélectionnée en A1.
Cela suppose que dans chaque feuille de couleur les éléments à mettre dans la liste soit toujours dans la même colonne.

maliste correspond à la liste des feuilles, si tu vas dans Données/Validation tu verras cette liste.

Bonne journée

Merci beaucoup pour ton aide !
je vais essayé de l'adapter à mon programme ce soir. Si j'ai un problème, je vous appel !

Merci les Gars !

 

[Fugy]

Re : Double liste déroulante avec chois d'onglet

juste un question,

pourrais tu modifié le fichier car je n'arrive pas à la faire.

Il faudrait qu'il n'y ai pas que A1 et B1 que je puisse choissir mais A1:A16 + B1:16

Je dois être nul car ca me crée des débogage ....

Merci d'avance !!

 

[bqtr]

Re : Double liste déroulante avec chois d'onglet

Re,

Petite précision : tu veux une liste de validation dans chaque cellule de A1 à A16 avec comme liste la liste des feuilles de couleur, c'est bien ca.
En B1:B16 la liste des valeurs en fonction de la feuille sélectionnée en A1:A16.

Dis moi

 

[bqtr]

Re : Double liste déroulante avec chois d'onglet

Re,

Regarde si cela te convient

A+

 

[Fugy]

Re : Double liste déroulante avec chois d'onglet

Re,

Petite précision : tu veux une liste de validation dans chaque cellule de A1 à A16 avec comme liste la liste des feuilles de couleur, c'est bien ca.
En B1:B16 la liste des valeurs en fonction de la feuille sélectionnée en A1:A16.

Dis moi

Tout a fait ca !! trop fort

 

[Fugy]

Re : Double liste déroulante avec chois d'onglet

Ca y est je viens d'adapter ta proposition à mon programme et ca fonctionne niquel (j'ai un peu galérer pour la validation ...)

Je voulais juste demandé une dernière chose et après je n'embete plus personne (enfin j'espère). Pour les 1er cellules A1:A16, il y a une liste déroulante des feuilles mais il faudrait restreindre le choix au feuilles de couleur bleue (couleur 37). J'ai essayé ce code mais marche pas ...


Private Sub Worksheet_Change(ByVal Target As Range)

Dim cell As Range
Dim maliste2 As String
For Each Sht In Worksheets
If Sht.Tab.ColorIndex = 37 Then

If Not Application.Intersect(Target, Range("A6:A36")) Is Nothing Then
If Target.Count > 1 Then Exit Sub 'permet d'effacer la plage A6:A36 mais pas les listes en colonne B
If Target = "" Then ' annule le déclenchement de la macro si effacement de la cellule et supprime la liste de validation de la cellule en colonne B
Target.Offset(0, 1).Clear
Target.Offset(0, 1).Validation.Delete
Exit Sub
End If
Target.Offset(0, 1).Clear
Target.Offset(0, 1).Validation.Delete
For Each cell In Sheets(Target.Value).Range("A8:A" & Sheets(Target.Value).Range("A65536").End(xlUp).Row)
maliste2 = maliste2 & cell.Value & ","
Next
Target.Offset(0, 1).Validation.Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _
xlBetween, Formula1:=maliste2
End If

End Sub

 

[bqtr]

Re : Double liste déroulante avec chois d'onglet

Re,

Pour avoir uniquement les feuilles de couleur bleu (37) dans la liste, modifie la macro du ThisWorbook comme ceci :

Private Sub Workbook_Open()
Dim ws As Worksheet, maliste As String
Range("A1:A16").Validation.Delete
  For Each ws In Worksheets
      If ws.Tab.ColorIndex = 37 Then ' xlColorIndexNone
         maliste = maliste & ws.Name & ","
      End If
  Next ws
Range("A1:A16").Validation.Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _
xlBetween, Formula1:=maliste
End Sub

Bonne nuit