Lien hypertexte vers liste déroulante

Bonjour, j'aimerai pouvoir faire un truck sur lequel je me casse la tête

Je vous joints en pièce jointe ce que je cherche à faire

Je voudrais que dans ma feuille BD (base de données) : lorsque je clique sur un NOM (qui serait en faite un sorte de lien hypertexte)

que ça me dirige vers ma feuille Facture et que ça se positionne directement dans la combo sur le bon NOM et que ça m'affiche donc les données que j'ai fais l'aide de recherche V

Je vous remercie pour votre aide

Lili

Lili

Bonjour

Code de Feuille BD

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Application.Intersect(Target, Range("B2:B28")) Is Nothing Then
Sheets("Facture").Range("I2") = Target.Row - 1
Sheets("Facture").Activate
ActiveSheet.Range("D7").Select
End If
End Sub

Cordialement

oh merci !!! c'est super !!! je me suis cassé la tête pendant des heures !!!!

Demain j’essaierai de comprendre le code que tu m'as passé

Merci bcp bcp

Cordialement

Lili

bonjour Amedeus ,

voilà j'ai un problème un peu similaire et j'ai pu constater ton efficacité redoutable alors je me permets de solliciter ton aide.

je cherche a trier une base de donnée qui indique si "oui" ou "non" tel médecin réalise tel type d'examen , et cela a l'aide de deux listes déroulantes, jusque là j'ai pu me débrouiller en bidouillant un peu avec le numéro de colonne qui correspond à un examen dans la base de donnée . mais ce que je souhaiterai , c'est qu'a chaque réponse , "oui " , non" je puisse faire correspondre un lien hypertexte qui renverrai au lien hypertexte de la base de donnée : exemple : Dr A / crane / oui = lien hypertexte ( fichier word) .

merci pour ton aide .

j'ai un peu oublié de joindre le fichier

Bonjour

Ils sont où les liens hypertextes avec les fichiers Word?

Cordialement

je ne les ai pas encore positionnés , faut il que je te renvoie un fichier avec quelques liens ?

oui, bien sur

cordialement

voila , désolé je suis plutôt novice .

les liens sont identiques en fonction de l'examen pour le moment mais je les personnaliserai ensuite en fonction de chaque medecin .

Bonjour

Tu remets les liens corrects et tu testes.

Le Code de Feuille sur Feuil1 copie la cellule de la feuille BD correspondante, avec le lien, et la colle dans ton résultat dès que la sélection du médecin ou de l'examen est modifiée.

Cordialement

ça fonctionne impec !!! merci beaucoup peux tu a l'occasion m'expliquer de quelle manière tu as procédé . encore merci .

Bonjour

Le Code de la Feuil1 avec les explications

Private Sub Worksheet_Change(ByVal Target As Range)
'l'action se déclenche quand tu valides B7 ou E7
If Not Application.Intersect(Target, Range("B7,E7")) Is Nothing Then
'blocage du refraichissement écran
Application.ScreenUpdating = False
'déclaration des variables
Dim i, j
' recherche de la ligne correspondante
i = Application.WorksheetFunction.Match(Range("B7"), Sheets("BD").Range("A1:A10"), 0) - 1
'recherche de la colonne correspondante
j = Application.WorksheetFunction.Match(Range("E7"), Sheets("BD").Range("A1:BV1"), 0) - 1
Sheets("BD").Select
'copie de la cellule contenant le lien hyper dans la BD
Sheets("BD").Range("A1").Offset(i, j).Copy
Sheets("Feuil1").Activate
'et collage de la cellule contenant le lien 
Range("I7").Select
ActiveSheet.Paste
End If
End Sub

Cordialement

désolé pour le délai de réponse , merci beaucoup je vais étudier ça tranquillement . bonne vacances si vous n'en avez pas deja pris .

encore merci .