combobox

[berlioz]

bonjour

voila je voudrais faire une base de donnée qui permettrais avec des lien de voir les rapport de technico par client

donc j'ai cree un fichier excel TECHNICO.XLS
avec les technicos en ligne
devant chaque technico je faire un menu deroulant qui pointe sur un autre onglet et permet de choisir le client qui lui par le bien d'un lien hypertexte envoi a un autre fichier exel qui gere par date les rapport.

mon probleme est que je veux utiliser des variables pour evite d'ecrire chaque ligne vba par client
If ComboBox19.Value = 'HUDRY' Then
ActiveWorkbook.FollowHyperlink Address:=Sheets('antoine').Range('B6'), NewWindow:=True

End If

merci d'avance si vous avez une idee d'amelioration

berlioz [file name=TECHNICO.zip size=12984]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/TECHNICO.zip[/file]

 

[Charly2]

Bonjour berlioz, le forum,

Si ton lien est toujours en colonne B et le début de la base en ligne 6 (pour Antoine, tu as mis A6:A200), tu peux écrire ta procédure ainsi:
Private Sub ComboBox19_Change()
ActiveWorkbook.FollowHyperlink Address:=Sheets('antoine').Range('B' & ComboBox19.ListIndex + 6), NewWindow:=True
End Sub

Amicalement
Charly

 

[berlioz]

merci c'est bien cela ma question
vraiment superbe se forum

@+ 😉