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

B

blancolie

XLDnaute Impliqué

• 1 Juillet 2020

• #31

activer tous les macros - (non recommandé)

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 1 Juillet 2020

• #32

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

Et que donne le code :

VB:

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

quand on modifie une cellule ?

 

Vote positif 0 Vote négatif

B

blancolie

XLDnaute Impliqué

• 1 Juillet 2020

• #33

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

 

Vote positif 0 Vote négatif

B

blancolie

XLDnaute Impliqué

• 1 Juillet 2020

• #34

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

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 1 Juillet 2020

• #35

blancolie à dit:

je n'ai pas ce code que vous me proposez

Cliquez pour agrandir...

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

S'exécute-t-elle ?

 

Vote positif 0 Vote négatif

B

blancolie

XLDnaute Impliqué

• 1 Juillet 2020

• #36

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

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 1 Juillet 2020

• #37

blancolie à dit:

je mets cela ou ?

Cliquez pour agrandir...

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

 

Vote positif 0 Vote négatif

B

blancolie

XLDnaute Impliqué

• 1 Juillet 2020

• #38

dc il faut que je réinstalle excel ?

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 1 Juillet 2020

• #39

blancolie à dit:

dc il faut que je réinstalle excel ?

Cliquez pour agrandir...

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 ?

 

Vote positif 0 Vote négatif

B

blancolie

XLDnaute Impliqué

• 1 Juillet 2020

• #40

j'ai fait une mise a jour et cela fonctionne

 

Vote positif 0 Vote négatif

B

blancolie

XLDnaute Impliqué

• 1 Juillet 2020

• #41

oui votre fichier liste(1) fonctionne

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 1 Juillet 2020

• #42

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.

 

Vote positif 0 Vote négatif

B

blancolie

XLDnaute Impliqué

• 1 Juillet 2020

• #43

dans ce cas la il faut que re insere ce msgbox

 

Vote positif 0 Vote négatif

B

blancolie

XLDnaute Impliqué

• 1 Juillet 2020

• #44

oui la boite de dialogue apparait

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 1 Juillet 2020

• #45

blancolie à dit:

oui la boite de dialogue apparait

Cliquez pour agrandir...

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

Vote positif 0 Vote négatif