Afficher un message
Vieux 26/09/2004, 18h42   #2 (permalink)
sab
Guest
 
Messages: n/a
Par défaut Re: Problème pour créer des liens

bonjour Benjamin,

dans cette exemple j'ai supposé que la plage agence soit en feuil1 colonne A et qu'elle soit nommé "agence" et que la plage vendeur soit en feuil1 colonne B et qu'elle soit nommé "vendeur"

les listes de validation en feuil 2
A1 =agence
B1 =vendeur

copie cette macro sur la page code de Feuil2

Private Sub Worksheet_Change(ByVal Target As Range)
For Each c In Sheets("Feuil1").Range("agence")
If c = Sheets("Feuil2").[A1] Then _
listeVendeur = listeVendeur & Sheets("Feuil1").Cells(c.Row, 2) & ", "
Next
listeVendeur = Left(listeVendeur, Len(listeVendeur) - 2)
With Sheets("Feuil2").Range("B1").Validation
.Delete
.Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _
xlBetween, Formula1:=listeVendeur
End With
End Sub

sab