Lien hypertexte avec variables excel

Bonsoir,

Ton code sans la feuille ne sert pas à grand chose...
La prochaine fois dépose un extrait de ton fichier sur cijoint.fr et colle ici le lien fourni.

Lien hypertexte avec variable :

    variable = "affich-18825011-lien-hypertexte-avec-variables-excel"
    Worksheets("feuil1").Hyperlinks.Add Anchor:=[B3], Address:= _
        "https://forums.commentcamarche.net/forum/" & variable _
        , TextToDisplay:="libellé du lien"

eric

Salut,

voici un exemple

Bonne journée

Bonsoir,

je reviens avec mon problème.

L'exemple que tu m'as fourni Ricky38 m'a permis d'avancer dans ma tâche.

Mais, j'ai un problème tout de même.

Lorsque je souhaite faire cette formule sous vba avec des variables, cela ne fonctionne pas. L'erreur est la suivante:

ERREUR DEFINIE PAR L'APPLICATION OU PAR L'OBJET.

Voici le code que j'utilise :

Dim g As Integer
Dim h As Integer
Dim j As Integer
Dim k As Integer
Dim l As Integer
Dim m As Integer
Dim n As Integer
Dim Lig As Long
Dim s As Integer
Dim t As Integer
Dim u As Integer
Dim v As Integer
Dim w As Integer

Do

w = w + 1

Loop While Cells(9, w) <> "CONTRACT NUMBER"

Do
v = v + 1
Loop While Cells(9, v) <> "PLA"

Do
u = u + 1
Loop While Cells(9, u) <> "ORGANIZATION"

Do
t = t + 1
Loop While Cells(9, t) <> "DOMAIN NAME"

Do
g = g + 1
Loop While Cells(9, g) <> "RENEWAL TYPE "

i = 10

Do
h = h + 1
j = j + 1
k = k + 1
l = l + 1
n = n + 1
o = o + 1
Loop While Cells(9, h) <> "SERIAL NUMBER STATUS"

ActiveSheet.Range("BG9").Value = "http://test/index.php?name="
ActiveSheet.Range("BH9").Value = "&mail=test@test.fr&phone=01.41.41.41.41&domainname="
ActiveSheet.Range("BI9").Value = "&partner="
ActiveSheet.Range("BL9").Value = "&repname="
ActiveSheet.Range("BM9").Value = "&contractnumber="
ActiveSheet.Range("BN9").Value = "&expirationdate=11/11/11&addcomments="")"

ActiveSheet.Range("AN10") = ActiveSheet.Range("BG9") & ActiveSheet.Range("BH9") & ActiveSheet.Range(Lig, t) & ActiveSheet.Range("BI9") & ActiveSheet(Lig, u) & ActiveSheet.Range("BL9") & ActiveSheet.Range(Lig, v) & ActiveSheet.Range("BM9") & ActiveSheet.Range(Lig, w) & ActiveSheet.Range("BN9")

En fait le code regarde sur chaque ligne les infos des colonnes mentionnées et les concatènent pour remplir le formulaire.

Pouvez-vous m'aider?

Merci d'avance

J'ai essayé pas mal d'autres choses, mais je bute toujours.

Quelqu'un a-t-il rencontré le même problème?

Bonjour Eric,

merci pour la formule, c'était exactement ce que je souhaitais. Malheureusement, je ne pouvais pas envoyer mon classeur, mais à l'avenir, si je le peux je le ferai.

Encore merci pour l'aide fournie :)