Forum |  HardWare.fr | News | Articles | PC | S'identifier | S'inscrire | Shop Recherche
2910 connectés 

  FORUM HardWare.fr
  Windows & Software
  Logiciels

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

 


 Mot :   Pseudo :  
 
Bas de page
Auteur Sujet :

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

n°1954161
stevetur
Posté le 09-03-2005 à 11:17:49  profilanswer
 

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
mood
Publicité
Posté le 09-03-2005 à 11:17:49  profilanswer
 

n°1954204
AlainTech
Pas trouvé? Cherche encore!
Posté le 09-03-2005 à 11:43:16  profilanswer
 

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!
n°1954212
AlainTech
Pas trouvé? Cherche encore!
Posté le 09-03-2005 à 11:47:28  profilanswer
 

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!
n°1954219
stevetur
Posté le 09-03-2005 à 11:49:59  profilanswer
 

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

n°1954261
AlainTech
Pas trouvé? Cherche encore!
Posté le 09-03-2005 à 12:10:59  profilanswer
 

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!
n°1954304
stevetur
Posté le 09-03-2005 à 12:36:32  profilanswer
 

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


Aller à :
Ajouter une réponse
  FORUM HardWare.fr
  Windows & Software
  Logiciels

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

 

Sujets relatifs
Pb Outlook et compte yahoo [resolu]virus MSN (résolu)
EXCEL : exporter en html avec une largeur fixée??configurer DreamweaverMX pour FTP FREE [resolu]
Partion perdu a récuperer [résolu]Pb déco wifi Belkin F5D7630fr4A [résolu]
[RESOLU] COMTREND CT 633 : câblage et reflexion[urgence boulot] signification des bips du bios [résolu]
[RESOLU]utilitaire pour changer la date d'une photo [Résolu]
Plus de sujets relatifs à : Help ! Sous Excel... [Résolu]


Copyright © 1997-2022 Hardware.fr SARL (Signaler un contenu illicite / Données personnelles) / Groupe LDLC / Shop HFR