Filtrer avec copie des liens hypertexte sous macro
nanne44
Messages postés
1
Date d'inscription
Statut
Membre
Dernière intervention
-
Patrice33740 Messages postés 8561 Date d'inscription Statut Membre Dernière intervention -
Patrice33740 Messages postés 8561 Date d'inscription Statut Membre Dernière intervention -
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
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
A voir également:
- Filtrer avec copie des liens hypertexte sous macro
- Partager des photos avec un lien - Guide
- Copie cachée - Guide
- Telecharger macro convertir chiffre en lettre excel - Télécharger - Tableur
- Super copie - Télécharger - Gestion de fichiers
- Copie écran samsung - Guide
1 réponse
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)
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