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]

activer tous les macros - (non recommandé)

 

[job75]

Etes-vous sûr de ne pas avoir mis le code dans ThisWorkbook ou dans un module standard ?

Et que donne le code :

Private Sub Worksheet_Change(ByVal Target As Range)
MsgBox "aaa"
End Sub

quand on modifie une cellule ?

 

[blancolie]

je n'ai rien touche et rien modifié du tout
je n'ai pas ce code que vous me proposez

 

[blancolie]

voila le code qui se trouve ds la feuil1(feuil1)

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]

je n'ai pas ce code que vous me proposez

Je vous demandais seulement d'insérer l'instruction MsgBox "aaa"

S'exécute-t-elle ?

 

[blancolie]

je mets cela ou ?
si c'est à mettre à suivre, je vois aucune reaction

 

[job75]

je mets cela ou ?

J'ai dit insérer, donc dans la macro Private Sub Worksheet_Change.

S'il n'y a aucune réaction quand on modifie une cellule c'est que la macro ne s'exécute pas.

Conclusion : votre Excel est vérolé.

 

[blancolie]

dc il faut que je réinstalle excel ?

 

[job75]

dc il faut que je réinstalle excel ?

Je travaille sur Excel depuis 25 ans et je ne l'ai jamais fait, c'est à vous de voir.

Mais avez-vous au moins testé sur cette version mon fichier Liste(1).xlsm et fonctionne-t-il ?

 

[blancolie]

j'ai fait une mise a jour et cela fonctionne

 

[blancolie]

oui votre fichier liste(1) fonctionne

 

[job75]

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.

 

[blancolie]

dans ce cas la il faut que re insere ce msgbox

 

[blancolie]

oui la boite de dialogue apparait

 

[job75]

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 :

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 ?