VBA : liste deroulante dans plusieurs noms definis

Bonjour,

je voudrais pouvoir un liste de choix dans plusieurs range de cellules non contigue mais cela ma pose probleme.

en effet, j'ai defini des noms pour chacune des plages que j'identifie ensuite dans le code VBA, mais dès que j'en mets plus que 2 plus rien ne va ... Comme je ne suis pas un spécialiste VBA ( ni Excel d'ailleurs ) je viens ici pour demander un peu d'aide.

Merci beaucoup

le code que j'utilise est le suivant ( ou champ represente un nom defini contenant lui-même une plage de cellules):

Private Sub Worksheet_Change(ByVal Target As Range)

 If Not Intersect(Range([champ1], [champ2], [champ3], [champ4]), Target) Is Nothing Then

   On Error Resume Next

   Target.Interior.ColorIndex = [couleurs].Find(Target, LookAt:=xlWhole).Interior.ColorIndex

  End If

End Sub

je joins le fichier pour le test si certain veulent

Bonjour

A tester

Private Sub Worksheet_Change(ByVal Target As Range)
 If Not Intersect(Union([champ1], [champ2], [champ3], [champ4]), Target) Is Nothing Then
   On Error Resume Next
   Target.Interior.ColorIndex = [couleurs].Find(Target, LookAt:=xlWhole).Interior.ColorIndex
  End If
End Sub

Yessssss, ca fonctionne , merci beaucoup ... je classe le dossier en "résolu"