Reconnaitre les lien hypertexte

Louis -  
Patrice33740 Messages postés 8930 Statut Membre -
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

1 réponse

Patrice33740 Messages postés 8930 Statut Membre 1 782
 
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
0