Lien hypertexte et formule SI ...

Résolu
julien3159 -  
thev Messages postés 2077 Date d'inscription   Statut Membre Dernière intervention   -
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 !!
A voir également:

3 réponses

lermite222 Messages postés 9042 Statut Contributeur 1 191
 
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+
1
julien3159
 
Lol terrible la solution était donc sous mon nez!!

Merci beaucoup tu ma évité de m'arracher les cheveux :D

++
0
thev Messages postés 2077 Date d'inscription   Statut Membre Dernière intervention   719
 
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
0