combobox

B

berlioz

Guest
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]
 

Pièces jointes

  • TECHNICO.zip
    12.7 KB · Affichages: 15

Charly2

Nous a quittés en 2006
Repose en paix
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
 

Discussions similaires

Statistiques des forums

Discussions
312 799
Messages
2 092 226
Membres
105 297
dernier inscrit
Cadnov