Lien hypertexte et formule SI ... Résolu/Fermé

Question

Bonjour,
Je n'ai pas réussi à trouver la solution de mon problème malgré mes mulptiles recherches.
Alors voila mon problème est le suivant :

J'aimerais qu'un lien hypertexte s'active grace à une condition émise par une formule SI, explication par exemple:

A1 = marque voiture
A2 = SI(A1=renault;internet;"")

J'aimerai que dans la cellule A2, il y ai un lien hypertexte intitulé internet qui mène au site de renault quand (et seulement dans ce cas) la marque de la voiture en A1 est renault.
J'ai trouvé comment créer des lien hypertexte (evidement...), comment faire des formules si mais pas moyen de faire les 2...

J'avais testé ca :

A2 = SI(A1=renault;"=LIEN_HYPERTEXTE("http://sitederenaut";"internet")";"")

Le problème de la formule etant que je doit impérativement mettre des "" avant la formule et après la fomrule du lien hypertexte pour que la formule ce valide, seulement évidement quand la condition est rempli il m'écrit la fomrule...mais ca ne marche pas >.<

Quelqu'un pourrait m'aider, me conseiller??

Merci d'avance !!

lermite222 · Answer

Bonjour,
=SI(C5="Renault";LIEN_HYPERTEXTE(C7;"Renault");"")
Mais il faut cliquer sur la cellule
Pour rendre cela automatique je pense qu'il faudra passer par VBA.
NB: Je ne vois pas la nécessité de mettre une condition sauf si tu à beaucoup de liens.
A+

julien3159 · Answer

Lol terrible la solution était donc sous mon nez!!

Merci beaucoup tu ma évité de m'arracher les cheveux :D

++

thev · Answer

voilà une solution pour calcul automatique

=SI(A1=1;lien_ajout(A2);lien_supp(A2))

avec les fonctions suivantes :

Function lien_ajout(cellule)
   
    URL = "http://site_renault"
    nom = URL & cellule.Address
    ActiveSheet.Hyperlinks.Add anchor:=cellule, Address:=URL, TextToDisplay:=nom
    lien_ajout = URL

End Function


Function lien_supp(cellule)
    
    URL = "http://site_renault"
    nom = URL & cellule.Address
    ActiveSheet.Hyperlinks(nom).Delete
    lien_supp = ""

End Function

Lien hypertexte et formule SI ...

3 réponses

Discussions similaires