Problème pour créer des liens

  • Initiateur de la discussion Initiateur de la discussion Benjamin
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

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"
 
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
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD
Assurez vous de marquer un message comme solution pour une meilleure transparence.

Discussions similaires

Retour