Reconnaitre les lien hypertexte

Question

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

Patrice33740 · Answer

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.Valuepar
If cel.Hyperlinks.Count = 0 Then cel.Offset(, 1).Formula = cel.Formula

Patrice

Reconnaitre les lien hypertexte

1 réponse

Discussions similaires

Newsletters