action vba suivant liste deroulante

[zumye]

bonsoir le forum

actuellement quand je fais une modif sur une cellule, un code vb detect un changement (change) mais ne detecte pas quand je selectione un choix dans une liste deroulante et pourtant suite a ce nouveau choix un chiffre apparait dans une case mais n'est toujours pas detecter par le vb.

qu'elle code vb doit on ecrire pour detecter un changement suite a une action sur la liste deroulante?

merci

 

[soenda]

Re : action vba suivant liste deroulante

Bonsoir Zumye, le fil

S'il s'agit d'une liste dans une feuille (ex: Validation/Liste de données)

Le code doit-être placé dans

Private Sub Worksheet_Change(ByVal Target As Range)

exemple test:

MsgBox Cells(6, 3) & " dans Change"

A plus

 

[zumye]

Re : action vba suivant liste deroulante

bonnsoir soenda
j'utilise deja
Private Sub Worksheet_Change(ByVal Target As Range)
en fait cette un objet que je copie par vb (ActiveSheet.Shapes("zone combinée 5").Select
Selection.Copy
Range("AM" & ligne).Select
ActiveSheet.Unprotect
ActiveSheet.Paste
With Selection
.ListFillRange = "couleur!$F$14:$F$41"
.LinkedCell = "$bX" & ligne
.DropDownLines = 28
.Display3DShading = False
End With)
je sais pas si c'est plus clair

 

[soenda]

Re : action vba suivant liste deroulante

Re,

Effectivement, c'est ... différent.

Je regarde ça.

A plus

P.S.: mais le mieux, ça reste le fichier exemple

 

[zumye]

Re : action vba suivant liste deroulante

en utilisant:
Private Sub Worksheet_Calculate()
ca fonctionne mais je voudrais une reaction du vb que sur la liste deroulante