Help ! Sous Excel... [Résolu]

Help ! Sous Excel... [Résolu] - Logiciels - Windows & Software

Marsh Posté le 09-03-2005 à 11:17:49    

Une petite question urgente :
 
Lorsqu'on attribue un hyperlien à une cellule, le texte de la cellule devient bleu, et alors quand on cliques dessus, on arrive sur internet par exemple. Ceci est une chose.
 
Mais, ce que je désirerais faire, c'est extraire d'une cellule contenant un hyperlien, l'adresse internet correpondante, pour la coller sur la colonne d'à côté par exemple.
 
Et ceci pour une quantité importante de ligne. (Donc je m'abstiendrai de le faire cellule par cellule)
 
Merci beaucoup.   :hello:


Message édité par stevetur le 09-03-2005 à 12:36:54
Reply

Marsh Posté le 09-03-2005 à 11:17:49   

Reply

Marsh Posté le 09-03-2005 à 11:43:16    

Ben, c'est simple.
Si tu as un hyperlien dans A1, dans B1 tu mets comme formule:
=A1
 
Tu recopies vers le bas et c'est tout.


---------------
Si on vous donne une info qui marche, DITES-LE!!!! ------ Si vous trouvez seul, AUSSI, votre solution peut servir à d'autres! ------ Je dois la majorité de mes connaissances à mes erreurs!
Reply

Marsh Posté le 09-03-2005 à 11:47:28    

Evidemment, si le texte de la case n'est pas le lien, ça ne marche pas.
 
Je cherche...


---------------
Si on vous donne une info qui marche, DITES-LE!!!! ------ Si vous trouvez seul, AUSSI, votre solution peut servir à d'autres! ------ Je dois la majorité de mes connaissances à mes erreurs!
Reply

Marsh Posté le 09-03-2005 à 11:49:59    

Béh non... quand je fais ça, ca me recopie juste la valeur de la cellule, mais non l'adresse internet qui correspond à l'hyperlien.
 
Exemple :
 
Si j'ai  
 
A1 = Forum
 
Je veux que
 
B1= http://forum.hardaware.fr
 
Voilà, merci

Reply

Marsh Posté le 09-03-2005 à 12:10:59    

Ben, c'est ce que j'avais écrit juste au dessus.
 
Petite macro, alors:
 

Code :
  1. Sub CopyLink()
  2.   Dim vI As Variant
  3.   Dim rLinks As Range
  4.   Set rLinks = Range([A1], [A100])
  5.   On Error Resume Next
  6.   For Each vI In rLinks
  7.     vI.Cells(1, 2) = vI.Hyperlinks(1).Address
  8.   Next vI
  9. End Sub


 
Bon, je me suis pas cassé le c*l à chercher la dernière ligne de la colonne ni à tester pour savoir s'il y avait un lien dans la cellule, d'où le "On error".


---------------
Si on vous donne une info qui marche, DITES-LE!!!! ------ Si vous trouvez seul, AUSSI, votre solution peut servir à d'autres! ------ Je dois la majorité de mes connaissances à mes erreurs!
Reply

Marsh Posté le 09-03-2005 à 12:36:32    

MERCI ENORMEMENT !!!!
 
Je crois que je penserai souvent à ton astuce !!!

Reply

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed