Contenu d'une liste déroulante à partir d'autres listes déroulantes.

[blancolie]

Bonsoir le forum,

j'aimerais créer une liste déroulante dans la colonne agent (F9) et que son contenu fasse apparaître les éléments de la liste 1 et liste 2 dans cette fameuse liste déroulante.

je vois des tutos liste déroulante en cascade mais ce n'est pas vraiment ce que je recherche.

Merci de votre aide.

 

[blancolie]

la si j'ajoute W, sur astreinte, w apparait sur liste et xx apparait pour pour agent. Si je supprime la colonne jaune, sur liste la partie jaune disparait et idem pour la partie bleu.

 

[job75]

Qu'est-ce que c'est que cette histoire de xx pour agent ???

Et vous disiez que rien ne se modifiait ???

 

[blancolie]

Dans le post 40, j'avais indiqué apres que vous m'avez dit qu emon excel est vérolé, que j'avais fait une mise à jour d'excel et suite à cela et tout est rentré dans l'ordre. et dans le post 45 j'ai répondu a ce post en faisant un test du ma réponse au post 46

 

[job75]

Très curieux cette histoire de mise à jour mais si tout va bien maintenant n'en parlons plus.

 

[blancolie]

j'ai fait les mises à jour beta insider Fast.

 

[job75]

j'ai fait les mises à jour beta insider Fast.

Allô tonton, pourquoi tu tousses ?

 

[blancolie]

????

 

[job75]

https://www.bing.com/videos/search?...2D19DCA79B086B1E8B292D1&view=detail&FORM=VIRE

 

[blancolie]

mdr

 

[blancolie]

Bonsoir Job75,

j'ai adpaté ton code, cela marche bien par contre cela fait un flash pour s'actualiser. Comment faire cela en douceur ? et comment avoir le fond bleu et jaune ? Cela se trouve dans l'onglet paramètre.

Bizarre également, si j'ai moins d'agent que dans la colonne agent, d'habitude je n'ai pas autant de ligne que la colonne astreinte.

Voici le code utilsé :

Option Explicit

Private Sub Worksheet_Change(ByVal Target As Range)
Application.ScreenUpdating = False
Application.EnableEvents = False
[Liste].Clear 'RAZ
[Agent].Copy [Liste].Cells(1)
[Astreinte].Copy [Liste].Cells([Agent].Count + 1)
On Error Resume Next 'si aucune SpecialCell
[Liste].SpecialCells(xlCellTypeBlanks).Delete xlUp 'supprime les cellules vides
Application.EnableEvents = True
End Sub

 

[job75]

La discussion est marquée "Résolu" depuis longtemps, j'arrête là.

 

[blancolie]

je te remercie pour ton travail.
il est ou le service apres vente (lol)

 

[job75]

Ah ce n'est plus "Résolu" ? On change d'idée comme de chemise !

 

[blancolie]

comprends pas pourquoi j obtiens pas la même chose

 

[FlamXYZ]

Bonjour à tous,

Ton exemple n'est pas parlant
remplis donc ta liste a la main pour faire voir ce que tu veux !

Crdlmt

Salut,

au cas ta préocupation est encore d'actualité, ci joint une suggestion.

l'astuce a été de créé une plage dynamique à l'aide de la fonction décaller.
Nommé une plage de cellule à mettre en validation de donnée; puis, modifier les références de cette plage à partir du gestionnaire des noms.