Traduction d'une formule en VBA

Salut le forum,

Est-ce qu’il y a quelqu’un qui peut m’aider à traduire cette formule en code VB pour en faire une macro :

=SI(D5=1;LIEN_HYPERTEXTE("C \lion.wav";""))

&SI(D5=4;LIEN_HYPERTEXTE("C \cheval.wav";""))

&SI(D5=x;…etc...

Sachant que la formule contient plusieurs condition (SI) .

Merci

Bonjour,

essaye ce code :

Dim chemin As String
Dim nomfichier
chemin = "C:\"
Select Case Range("D5")
Case Is = 1
nomfichier = lion.wav
ActiveSheet.Hyperlinks.Add ActiveSheet.Cells(5, 5), chemin & "\" & nomfichier
Case Is = 4
nomfichier = cheval.wav
End Select

Il te placera le lien en E5

Amicalement

Dan

Re

salut Dan et merci beaucoup pour ce code ,je vais l'essayer .

Question : est ce que le nombre de conditions est limité ou bien je peux aller j'usqu'a 100 ou 200 conditons ?

Je m'excuse pour la faute de frappe au niveau du titre:au lieu de (Traduvtion ), <<Traduction>>

Re ,

j'ai rencontrer ce probleme https://www.excel-pratique.com/~files/doc/8gyAftrad.xls

re,

Ah oui mais tu n'avais pas précisé cela dans ton premier message.

Change le C:\ par --> C:\Documents and Settings\Poste\Bureau\cordeta\

Adapte ton code pour le placer comme suit :

Sub lecture()
.....
End sub

Amicalement

Dan

Salut le forum

Bonjour Dan,

j'ai changer le chemin mais il ya toujours un probleme de variable !

https://www.excel-pratique.com/~files/doc/var.xls

Merci