Excel 2002 > Recopier du texte et pas de l'hypertexte d'une colonne A vers col B

  • Initiateur de la discussion Initiateur de la discussion Vouis
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

Vouis

XLDnaute Nouveau
Bonjour a tous

Je suis un débutant VBA, mais je m'accroche !

Auriez vous un début de programme VBA (ou un lien vers un tel programme) pour reconnaître un lien hypertextes, par rapport à un simple texte.
J'ai posé la question dans tous les sens dans les moteurs de recherche, rien ne semble être écrit sur le sujet.


Application :

Dans la "colonne A", des cellules avec du texte et d'autres avec des hypertextes.

Il faudrait que le programme me permette de recopier uniquement les valeurs texte de A dans la cellule adjacente en colonne B. Donc, de reconnaître l'hypertexte pour ne pas le recopier.

Simple pour vous, j'imagine !
Merci que cela devienne simple pour moi.

Vouis
 
Re : Excel 2002 > Recopier du texte et pas de l'hypertexte d'une colonne A vers col B

Bonjour,
une solution parmi d'autre
Code:
Sub d()
    For i = 1 To 10
        On Error Resume Next
        x = Cells(i, 1).Hyperlinks(1).Address
        If x = "" Then Cells(i, 2) = Cells(i, 1)
        x = ""
        On Error GoTo 0
    Next
End Sub
A+
kjin
 
Re : Excel 2002 > Recopier du texte et pas de l'hypertexte d'une colonne A vers col B

Bonjour Kjin,

ton programme est impeccable pour recopier le contenu des cellules A en B en retirant le lien hypertexte.

La solution pour mon problème est de ne retrouver en colonne B seulement ce qui était du texte en colonne A.
Je cherche donc à éliminer toutes les valeurs hypertextes (texte et lien) en ouvrant une colonne B qui ne les recopie pas.

Merci pour ta réponse. As-tu une solution pour ce problème ?

A+
Vouis
 
Re : Excel 2002 > Recopier du texte et pas de l'hypertexte d'une colonne A vers col B

re,
Le code copie la valeur des cellules de la colonne A qui ne contiennent pas de liens hypertexte, conformément à ta demande initiale, c'est ça, c'est pas ça ?
Si c'est pas ça, alors faut m'expliquer mieux.
Note qu'un fichier exemple avec le résultat à obtenir serait bienvenu
A+
kjin
 
Re : Excel 2002 > Recopier du texte et pas de l'hypertexte d'une colonne A vers col B

Bonjour à tous

Bonjour kjin


En comprenant la question ainsi : extraire ce qui est affiché dans le lien hypertexte
(correspond à : Texte à afficher)
hl.gif

voici ma proposition

Code:
Sub a()
Dim c As Range
For Each c In Range([A1], [A65536].End(xlUp))
c.Offset(, 1) = c.Hyperlinks.Item(1).TextToDisplay
Next c
End Sub
 
Dernière édition:
Re : Excel 2002 > Recopier du texte et pas de l'hypertexte d'une colonne A vers col B

Re


J'avais zappé le début du fil, désolé

en mariant nos deux approches 😉

Code:
Sub dd()
    For i = 1 To 10
        On Error Resume Next
        x = Cells(i, 1).Hyperlinks(1).Address
        y = Cells(i, 1).Hyperlinks.Item(1).TextToDisplay
        If x = "" Or Cells(i, 1).Text <> y Then Cells(i, 2) = Cells(i, 1)
        x = ""
        On Error GoTo 0
    Next
End Sub
 
Re : Excel 2002 > Recopier du texte et pas de l'hypertexte d'une colonne A vers col B

Salut les pros,

Aîe aîe aîe ! ! ! ... j'me suis mal expliqué.
Je vous avais prévenu, je ne suis pas un pro.

J'essaye de nouveau :

Colonne A
Texte
Hypertexte

Colonne B
Texte Le texte de A1 est copier en B1
"vide" L' Hypertexte de A2 n'est pas copier

Je travail sur des pages Internet pleines de liens hypertextes sans importance qui empêchent mon programme Excel de fonctionner. L'idée est de les supprimer. En colonne B, ils n’apparaissent plus.

Qu’en pensez vous ?!?!?! Merci les gars.

Vouis
 
Re : Excel 2002 > Recopier du texte et pas de l'hypertexte d'une colonne A vers col B

Bonsoir Kjin,

Ok pour te transmettre mon fichier … mais je ne sais pas comment ? ? ?
Peux tu m’expliquer ou me dire ou se trouve la procédure ?

Merci
Vouis
 
Re : Excel 2002 > Recopier du texte et pas de l'hypertexte d'une colonne A vers col B

Re,
Dans la fenêtre, lorsque tu écris ton nouveau message
click sur l'agrafe dans le menu
dans la nouvelle fenêtre
click sur parcourir
choisi le fichier sur ton disque
click sur envoyer
A+
kjin
 
Re : Excel 2002 > Recopier du texte et pas de l'hypertexte d'une colonne A vers col B

Re,
Faire passer un fichier fait gagner du temps !
Code:
Sub d()
    For i = 1 To 10
        On Error Resume Next
        x = Cells(i, 1).Hyperlinks(1).Address
        y = Cells(i, 1).Hyperlinks(1).SubAddress
        If x = "" And y = "" Then Cells(i, 2) = Cells(i, 1)
        x = ""
        y = ""
        On Error GoTo 0
    Next
End Sub
A+
kjin
 
Re : Excel 2002 > Recopier du texte et pas de l'hypertexte d'une colonne A vers col B

Encore une erreur de ma part ...
La macro n'apparait pas dans le tableur que je t'ai envoyé.

Rectification ... Cela devrait aller cette fois ci. 😀

Vouis
 

Pièces jointes

- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

Retour