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]

bonsoir le forum,

je reviens sur cette discussion car j'aimerais dans ce fichier ci-joint rajouter autant de ligne dans le tableau liste et qu'elles affichent le contenu des 2 autres tableaux (agent et astreinte) ( tout en conservant les les formats et cellules) qu'il y de ligne dans les tableaux agent et astreinte. bien sur, il faut que ds ces 2 tableaux (agent et astreinte), les lignes soient remplies.

merci pour votre aide.

 

[job75]

Bonjour blancolie, le forum,

Avec 3 tableaux structurés le VBA est en effet bien plus simple, fichier (2) :

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

Notez que la liste de validation en F13 est définie par =INDIRECT("Liste")

A+

 

[djidji59430]

Re
avec PQ

 

[job75]

On peut mettre des couleurs de fond différentes sur les 2 tableaux sources, fichier (2 bis).

 

[blancolie]

cool bien pensé les couleurs ? peut on faire pareil dans la liste déroulante ?

Je vois que tu as cré un module et je vois range("E16"), cela tombe sur une cellule vide dans la colonne permanence, Pourquoi ? Pourqui autant de ActiveWorkbook.Save ?

 

[job75]

cool bien pensé les couleurs ? peut on faire pareil dans la liste déroulante ?

Certainement pas.

 

[blancolie]

c'est drôle, le fichier post 17 et 19 , je n'ai plus le même comportement, rien ne se rajoute, rien ne s'efface si cellule vide

 

[job75]

A part les 2 couleurs c'est le même fichier, chez moi le comportement est le même.

 

[blancolie]

chez moi, si dans colonne agent et astreinte, si il n 'y as rien de marqué, dans liste aucune ligne s'efface et dans le cas contraire rien non plus. et si je rentre une donnée, dans liste, rien ne s'affiche.

 

[job75]

Vous avez dû en bricolant désactiver les évènements.

Fermez puis rouvrez le fichier.

 

[blancolie]

non non, je n ai rien toucher, j'ai activer las macros à la demande d'excel. ce midi cela marchait sur mon autre poste au bureau qui n'est pas sous excel 365.

Est ce que office 365 pourrait être la cause ?

 

[job75]

Est ce que office 365 pourrait être la cause ?

Ce serait étonnant, voyez plutôt du coté de la sécurité des macros.

Elles sont peut-être désactivées automatiquement (sans avertissement).

 

[job75]

Je vois que tu as cré un module et je vois range("E16"), cela tombe sur une cellule vide dans la colonne permanence, Pourquoi ? Pourqui autant de ActiveWorkbook.Save ?

C'était un module de l'enregistreur de macro, je viens de le supprimer des fichiers (2) et (2 bis).

 

[blancolie]

j'ai activé d'office les macro en relançant excel et toujours pareil.

 

[job75]

Dans "Sécurité des macros" quelle est l'option sélectionnée ?