WorsheetChange Target.Range.Value

Bonjour,

J'essaye de faire une macro qui me met à 1 une variable si l'utilisateur à selectionné une certaine valeur dans une liste.

Cette liste apparait 48 fois, et je voudrais que lorsque je selectionne la valeur donné, il me mette 1.

j'ai donc mis ce bout de code dans "Worksheet_change"

If Target.Range("D35:D82").Value = "Dedicated Internet Wired Org" Then vlan201 = 1

Malheureusement j'ai un soucis au niveau du range, puisque tout est vide alors que j'ai selectionné 5 valeurs différente dans tout le"range"

Si vous avez des idées, merci