filtrer avec copie des liens hypertexte sous macro

Question

Bonjour, 

je souhaite ajouter un lien hypertexte ds la copy de mon filtre : 

Range("Root").AdvancedFilter Action:=xlFilterCopy, CriteriaRange:=Range( _
        "critereupdate"), CopyToRange:=Range("A9:I9"), Unique:=True


ss Excel 2007

Patrice33740 · Answer

Bonjour,

Je ne vois qu'une solution, c'est recréer tous les liens originaux un par un.
Essaies ce code (en adaptant n°C à la colonne de Root où se trouvent les liens)
Sub XXX()
Const n°C As Integer = 2  'numèro de colonne de Root contenant les liens
Dim o As Range            'cellule origine
Dim d As Range            'cellule destination
Dim h As Hyperlink        'lien

Range("Root").AdvancedFilter Action:=xlFilterCopy, CriteriaRange:=Range( _
    "critereupdate"), CopyToRange:=Range("A9"), Unique:=True
For Each d In Range("A9").CurrentRegion.Columns(n°C).Cells
  Set o = Range("Root").Columns(n°C).Find(d.Value)
  If Not o Is Nothing Then
    If o.Hyperlinks.Count > 0 Then
      Set h = d.Hyperlinks.Add(d, o.Hyperlinks(1).Address)
      h.SubAddress = o.Hyperlinks(1).SubAddress
    End If
  End If
Next d

End Sub

Filtrer avec copie des liens hypertexte sous macro

1 réponse

Discussions similaires

Newsletters