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

B

blancolie

XLDnaute Impliqué

• 30 Juin 2020

• #16

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.

 

Pièces jointes

• Classeur3.xlsm

  16 KB · Affichages: 6

Dernière édition: 30 Juin 2020

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 1 Juillet 2020

• #17

Bonjour blancolie, le forum,

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

VB:

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+

 

Pièces jointes

• Liste(2).xlsm

  19.6 KB · Affichages: 8

Vote positif 0 Vote négatif

djidji59430

XLDnaute Barbatruc

• 1 Juillet 2020

• #18

Re
avec PQ

 

Pièces jointes

• PQ.xlsx

  19.6 KB · Affichages: 6

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 1 Juillet 2020

• #19

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

 

Pièces jointes

• Liste(2 bis).xlsm

  19.7 KB · Affichages: 11

Vote positif 0 Vote négatif

B

blancolie

XLDnaute Impliqué

• 1 Juillet 2020

• #20

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 ?

 

Dernière édition: 1 Juillet 2020

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 1 Juillet 2020

• #21

blancolie à dit:

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

Cliquez pour agrandir...

Certainement pas.

 

Vote positif 0 Vote négatif

B

blancolie

XLDnaute Impliqué

• 1 Juillet 2020

• #22

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

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 1 Juillet 2020

• #23

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

 

Vote positif 0 Vote négatif

B

blancolie

XLDnaute Impliqué

• 1 Juillet 2020

• #24

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.

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 1 Juillet 2020

• #25

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

Fermez puis rouvrez le fichier.

 

Vote positif 0 Vote négatif

B

blancolie

XLDnaute Impliqué

• 1 Juillet 2020

• #26

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 ?

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 1 Juillet 2020

• #27

blancolie à dit:

Est ce que office 365 pourrait être la cause ?

Cliquez pour agrandir...

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

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

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 1 Juillet 2020

• #28

blancolie à dit:

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 ?

Cliquez pour agrandir...

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

 

Vote positif 0 Vote négatif

B

blancolie

XLDnaute Impliqué

• 1 Juillet 2020

• #29

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

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 1 Juillet 2020

• #30

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

 

Vote positif 0 Vote négatif