Lien hypertexte avec variables excel
Résolu
Pimp92a
Messages postés
417
Date d'inscription
Statut
Membre
Dernière intervention
-
Pimp92a Messages postés 417 Date d'inscription Statut Membre Dernière intervention -
Pimp92a Messages postés 417 Date d'inscription Statut Membre Dernière intervention -
A voir également:
- Lien hypertexte avec variables excel
- Partager des photos avec un lien - Guide
- Lien url - Guide
- Liste déroulante excel - Guide
- Word et excel gratuit - Guide
- Renommer un lien hypertexte ✓ - Forum Bugs et suggestions
5 réponses
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 :
eric
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
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
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?
Quelqu'un a-t-il rencontré le même problème?
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question