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

blancolie

XLDnaute Impliqué
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.
 

Pièces jointes

  • exemple1.xlsx
    8.9 KB · Affichages: 25

blancolie

XLDnaute Impliqué
voila le code qui se trouve ds la feuil1(feuil1)

VB:
Option Explicit

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
••••ˇˇˇˇ
 

job75

XLDnaute Barbatruc
Et qu'en est-il de la MsgBox que j'ai demandé d'insérer ???

Si le fichier (1) fonctionne je ne vois pas pourquoi les fichiers (2) et (2 bis) ne fonctionneraient pas.

Il y a peut-être quelque chose de particulier à Excel 365.
 

job75

XLDnaute Barbatruc
oui la boite de dialogue apparait
Donc la macro Worksheert_Change s'exécute.

Alors pour voir ce qui ne va pas je modifie la position du On Error Resume Next :
VB:
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
Testez ce fichier (2 ter), que se passe-t-il exactement ? Un bug ? Sur quelle instruction ?
 

Pièces jointes

  • Liste(2 ter).xlsm
    19 KB · Affichages: 6

Discussions similaires

Statistiques des forums

Discussions
311 725
Messages
2 081 941
Membres
101 846
dernier inscrit
Silhabib