Reconnaitre les lien hypertexte

Fermé

Louis - 5 août 2010 à 19:44
Patrice33740 Messages postés 8556 Date d'inscription dimanche 13 juin 2010 Statut Membre Dernière intervention 2 mars 2023 - 8 août 2010 à 12:10

Bonjour,

je suis débutant avec les macros Excel - Merci de m'aider à trouver ma solution.

config> Excel - Windows XP

J'ai besoin de recopier les valeurs texte des cellules de la colonne A vers les cellules de la colonne B en éliminant ceux qui sont hypertextes.

Merci

A voir également:

Reconnaitre les lien hypertexte
Lien url - Guide
Verifier un lien - Guide
Créer un lien pour partager des photos - Guide
Lien copié - Forum Téléphones & tablettes Android
Aucune application permettant d'ouvrir ce lien n'a été trouvée - Forum Mobile

1 réponse

Réponse 1 / 1

Patrice33740 Messages postés 8556 Date d'inscription dimanche 13 juin 2010 Statut Membre Dernière intervention 2 mars 2023 1 778
8 août 2010 à 12:10

Option Explicit

Sub CopierColonneAversBsaufLiens()
Dim cel As Range
  For Each cel In ActiveSheet.UsedRange.Columns(1).Cells
    If cel.Hyperlinks.Count = 0 Then cel.Offset(, 1).Value = cel.Value
  Next
End Sub

et si tu veux conserver les formules, remplace :

If cel.Hyperlinks.Count = 0 Then cel.Offset(, 1).Value = cel.Value

par

If cel.Hyperlinks.Count = 0 Then cel.Offset(, 1).Formula = cel.Formula

Patrice

Discussions similaires

"Aucune application permettant d'ouvrir cette URL"

lien copié

Rajout de lien sur plusieurs pages

renommer un lien internet

Insérer un lien hypertexte dans un post Linkedin

Discussions similaires

Newsletters