Lien hypertexte avec variables excel
Résolu/Fermé
Pimp92a
Messages postés
418
Date d'inscription
vendredi 26 juin 2009
Statut
Membre
Dernière intervention
20 novembre 2022
-
13 août 2010 à 16:15
Pimp92a Messages postés 418 Date d'inscription vendredi 26 juin 2009 Statut Membre Dernière intervention 20 novembre 2022 - 19 août 2010 à 10:48
Pimp92a Messages postés 418 Date d'inscription vendredi 26 juin 2009 Statut Membre Dernière intervention 20 novembre 2022 - 19 août 2010 à 10:48
A voir également:
- Lien hypertexte avec variables excel
- Liste déroulante excel - Guide
- Lien url - Guide
- Verifier un lien - Guide
- Formule excel - Guide
- Créer un lien pour partager des photos - Guide
5 réponses
eriiic
Messages postés
24569
Date d'inscription
mardi 11 septembre 2007
Statut
Contributeur
Dernière intervention
28 décembre 2023
7 209
17 août 2010 à 20:41
17 août 2010 à 20:41
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
Ricky38
Messages postés
4347
Date d'inscription
samedi 15 mars 2008
Statut
Contributeur
Dernière intervention
2 novembre 2013
1 458
13 août 2010 à 16:24
13 août 2010 à 16:24
Salut,
voici un exemple
Bonne journée
voici un exemple
Bonne journée
Pimp92a
Messages postés
418
Date d'inscription
vendredi 26 juin 2009
Statut
Membre
Dernière intervention
20 novembre 2022
44
16 août 2010 à 21:32
16 août 2010 à 21:32
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
Pimp92a
Messages postés
418
Date d'inscription
vendredi 26 juin 2009
Statut
Membre
Dernière intervention
20 novembre 2022
44
17 août 2010 à 19:50
17 août 2010 à 19:50
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
Pimp92a
Messages postés
418
Date d'inscription
vendredi 26 juin 2009
Statut
Membre
Dernière intervention
20 novembre 2022
44
19 août 2010 à 10:48
19 août 2010 à 10:48
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 :)
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 :)
