Discussion :

[GADENSEB]

Bonjour le Forum

Je reviens vers vous toujours avec mes problèmes de liens hypertextes.

Là de ma bdd "BASE EMPLOI" J'extrais avec un filtre élaboré certaines données que je colle dans l'onglet "GESTION" mais je n'arrive pas à tranférer les liens hypertextes sur les résultats filtrés.

Voilà les paramétres :

- Onglet "BASE EMPLOI" :
- Les données se trouvent dans les cellules (dont en-têtes) A1:BA705 --> peut-on remplacer ces références par la plage qui est nommée "BASEEMPLOI" ?
- Les liens hypertextes se trouvent dans la colonne "AN" --> Plage nommée "ANNONCE"

- Onglet "GESTION" --> Filtres élaborés
- Les critères de filtre élaboré sont en "A32:A33"
- Les éléments affichés sont dans les cellules "A35:I35"
- La colonne où les liens hypertextes doivent se générés sont dans la colonne "H" à partir de la ligne 36


-------------------------------
La premiére partie du code pour générer le filtre élaborés fonctionne nikel

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
Private Sub Worksheet_Change(ByVal Target As Range)
 
 
Sheets("BASE EMPLOI").[A1:BA705].AdvancedFilter Action:=xlFilterCopy, _
     CriteriaRange:=[A32:A33], CopyToRange:=[A35:I35]

-------------------------------
Par contre, je coince sur la partie de recopie des liens hypertextes, j'ai dû faire une bourde dans le code

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
   With Sheets("GESTION")
 Dim lig As Integer
 
        For lig = 36 To .[H65536].End(xlUp).Row
            ligData = Application.Match(.Cells(lig, 1), Worksheets("BASE EMPLOI").Range("AN:AN"), 0)
            .Hyperlinks.Add .Cells(lig, 8), Worksheets("BASE EMPLOI").Cells(ligData, 8).Hyperlinks(1).Address
        Next lig
    End With
 
End Sub

Qqn aurait une idée de l'erreur ?

Bon 8 mai à tous

Seb

[GADENSEB]

Bonjour,
Je met mon fichier DEMO si cela peut éclairer mon probléme

ps : dans l'onglet "GESTION"

Merci !

SebBASE EMPLOI - DEMO.xls

[Marc-L]

Bonjour, bonjour,

comme une simple copie transfère les liens hypertextes,
utiliser alors un simple filtre puis copier les données filtrées !

Exemple de copie de données filtrées en ligne n°4 …

__________________________________________________________________________________________

Merci de cliquer sur pour chaque message ayant aidé puis sur pour clore cette discussion …

[GADENSEB]

Bonjour,
Effectivement cela est pas mal mais je serais plus sur

Dans mon fichier test :

Je génére le filtre élaboré

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
'Génère le filtre élaboré d'analyse des relances
Sheets("DONNEES").[A1:C11].AdvancedFilter Action:=xlFilterCopy, _
     CriteriaRange:=[C18:C19], CopyToRange:=[C21:E21]

Comment rechercher la SOCIETE, puis copier le lien hypertexte correspondant que je cherche dans la feuille DONNEES......
Pas sur de mon code...

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
with worksheets("DONNEES")
ActiveCell.FormulaR1C1 = "=VLOOKUP(R[1]C[-5],A1:B11,3,0)"
end with

As-tu une idée ?

Bonnes journée

Seb



TEST MACRO V2 - DEMO.xlsx

[Marc-L]

Si un filtre élaboré ne copie pas les liens hypertexte, je ne verserais point dans l'usine à gaz ‼

Autant l'abandonner et procéder comme je l'ai décrit, bien plus simple et efficace …


__________________________________________________________________________________________
L'avenir n'appartient pas qu'à ceux se levant tôt mais surtout à ceux sachant lire …

[GADENSEB]

Bonsoir

Oki je teste cette solution.

Merci
Bonne soirée

Seb