Problème pour créer des liens

B

Benjamin

Guest
Bonjour a tous j'ai un petit problème que peut etre serez vous ressoudre.
je vais essayer d'etre le plus explicite possible :

J'ai deux feuilles excel , l'une est une base de donnée , l'autre un tableau , j'ai deux colonne dans le tableau une "agence" l'autre "vendeur"
Dans la base de donnée j'ai touts les noms d'agences ainsi que tous les noms de vendeurs.

Lorsque je vais sur le tableau je peux choisir grace a un onglet défilant de prendre n'importe quelle agence.

le problème est que j'aimerais maintenant creer un lien entre agence et vendeur; c'est a dire que lorsque je clique sur tel ou tel agence j'aille sur la cellule d'a coté et trouve sur un autre onglet défilant les vendeurs de la bonne agence et de manière automatique.

Merci de votre aide, je vous souhaite une excellente journée
Cordialement

Benjamin FREY
"Swiss Culture"
 
S

sab

Guest
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
 

Discussions similaires

Statistiques des forums

Discussions
314 162
Messages
2 106 599
Membres
109 637
dernier inscrit
lafforest