Concaténer 2 cellules pour en faire un lien de type URL

Bonsoir Eric

avec tes morceaux en a1 et b1 :

=LIEN_HYPERTEXTE("http://"&A1&B1)

j-p

Bonjour
Merci pour l'info, j'ai bien la chaîne concaténée, mais si je clic sur
le lien, j'ai le message "Impossible d'établir une connexion au serveur
internet". Si je fais un copier/coller dans un navigateur internet
l'adresse et juste.

Avec mes meilleures salutations
Eric

Tu n'as pas oublié de rajouter au début le "http://" ?

j-p

Tu n'as pas oublié de rajouter au début le "http://" ?

j-p

Bonjour

L'adresse visible dans la cellule est correcte, et si je fais un
copier/coller dans un navigateur l'adresse est juste, mais si je clic
directement dans excel, j'ai un message d'erreur.

Pour info, mon navigateur par défaut n'est pas IE, mais Mozilla Firefox

Avec mes meilleures salutations
Eric

Bonjoir(c) RaMA

Le 30/08/2004 07:22 vous avez écrit ceci :

car j'avais abandonné Thunderbird (d'une lecture de comptes multiples moins
agréable)
...à moins que ce dernier ait évolué dans ce sens.

Je ne sais pas ce que tu veux dire par la, c'est quoi qui te posais un soucis ?

Ceci dit, je n'utilise TB que pour les NG, pas la messagerie qui est gérée
avec Outlook, oeufs corse ;-)

--
La FAQ Outlook est la : http://faq.outlook.free.fr
JièL / Jean-Louis GOUBERT
Co-auteur de "Internet + de 1 000 trucs de pros" chez Micro Application
http://faq.outlook.free.fr/livreMA/internet_plus_de_1000_trucs_de_pros.htm

Ca devrait fonctionner avce n'importe quel navigateur. Peut tu afficher ici la formule de ta cellule
et des deux cellules concernées ?

j-p

Bonsoir Eric,
Comme ceci peut être :

Sub lienB()
Dim i As Long, zzz As Long, sUite As Label
zzz = Range("F65536").End(xlUp)(2).Row
For i = 1 To zzz
If Range("f" & i).Value = "" Then GoTo sUite
Sheets("feuil1").Range("H" & i).Value = Sheets("feuil1").Range("f" & i) & Sheets("feuil1").Range("g" &
i)
Range("F" & i).Copy
Range("H" & i).PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _
SkipBlanks:úlse, Transpose:úlse
Application.CutCopyMode = False
sUite:
Next i
End Sub

--
Amicales Salutations
Retirer A_S_ pour répondre.
XL 97 / 2000 / 2002
Pour suivre facilement le forum :
news://msnews.microsoft.com/microsoft.public.fr.excel
(Voulez-vous vous abonner ? -> Oui)

"Eric" <NoSpam@nospam.com> a écrit dans le message de news:4132E561.7000506@nospam.com...

Bonsoir Eric,
Toujours en attendant les cracks, en supposant les données situées respectivement en F et G, la proc
suivante concatène le tout dans la colonne H pour la ligne 8

Sub lien()
Sheets("feuil1").Range("H8").Value = Sheets("feuil1").Range("f8") & Sheets("feuil1").Range("g8")
Range("F8").Copy
Range("H8").PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _
SkipBlanks:úlse, Transpose:úlse
Application.CutCopyMode = False
End Sub

Bonjour
Votre exemple fonctionne parfaitement, Merci.
Mais si j'aimerai concatèner les données F et G dans la colonne H, de
toutes les lignes qui sont non vide ?

Avec mes meilleures salutations
Eric

Bonsoir Eric,
Comme ceci peut être :

Sub lienB()
Dim i As Long, zzz As Long, sUite As Label
zzz = Range("F65536").End(xlUp)(2).Row
For i = 1 To zzz
If Range("f" & i).Value = "" Then GoTo sUite
Sheets("feuil1").Range("H" & i).Value = Sheets("feuil1").Range("f" & i) & Sheets("feuil1").Range("g" &
i)
Range("F" & i).Copy
Range("H" & i).PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _
SkipBlanks:úlse, Transpose:úlse
Application.CutCopyMode = False
sUite:
Next i
End Sub

Bonjour

Merci pour la macro.

Avec mes meilleures salutations
Eric

C'était avec plaisir Eric !
--
Amicales Salutations

"Eric" <NoSpam@nospam.com> a écrit dans le message de news:4134876F.5060405@nospam.com...

Bonsoir Eric,
Comme ceci peut être :

Sub lienB()
Dim i As Long, zzz As Long, sUite As Label
zzz = Range("F65536").End(xlUp)(2).Row
For i = 1 To zzz
If Range("f" & i).Value = "" Then GoTo sUite
Sheets("feuil1").Range("H" & i).Value = Sheets("feuil1").Range("f" & i) & Sheets("feuil1").Range("g"
&

i)
Range("F" & i).Copy
Range("H" & i).PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _
SkipBlanks:úlse, Transpose:úlse
Application.CutCopyMode = False
sUite:
Next i
End Sub

Bonjour

Merci pour la macro.

Avec mes meilleures salutations
Eric