Compiler les liens hypertextes sans les formules

Bonjour à tous,

J'ai réalisé un fichier de suivi des projets dans lequel, pour chaque sous-projet nous mettons un lien hypertexte renvoyant vers la documentation en ligne.

Ici, j'ai mis de fausses données, mais on voit dans l'onglet "intelligence de marché" les liens qui se trouvent tout à droite.

Il y a ensuite une macro qui compile tous les projets en cours (là, y en a qu'un). Et je suis obligée de coller les valeurs. Problème : mes liens ne sont pas conservés et l'adresse est trop longue pour utiliser LIEN_HYPERTEXTE

La macro est dans le module "Compilation" et s'appelle "Compilation_Données"

Avez-vous une solution pour conserver les liens hypertextes mais PAS les formules ?

suivi-des-projets-test.xlsm

Option Compare Text     'module insensible aux majuscules/minuscules
Sub Compilation_Données()

Application.ScreenUpdating = False

    Sheets("Compilation").Visible = True

'Effacer les données déjà présentes dans l'onglet Compilation
    Sheets("Compilation").Select
    Rows("3:3").Select
    Range(Selection, Selection.End(xlDown)).Select
    Selection.Clear

'Compiler tous les projets dans l'onglet "Compilation"

     Dim wSheet As Worksheet

     For Each wSheet In Worksheets

          Select Case wSheet.Name
               Case "Compilation", "Trame", "Procédure", "Nouveau projet", "Synthèse par projet", "Synthèse par étape", "Sommaire" 'feuilles à passer
               Case Else

     'Copier les données
                    Select Case wSheet.Name
                         Case "Synthèse par projet": r1 = 5     '1iere ligne est 5
                         Case Else: r1 = 7     'toutes les autres feuille, 1iere ligne est 7
                    End Select

                    r = wSheet.Range("A" & Rows.Count).End(xlUp).Row     'row de la derniere ligne
                    If r >= r1 Then
                         wSheet.Range("A" & r1).Resize(r - r1 + 1).EntireRow.Copy

     'Coller les données dans l'onglet "Compilation"
                        Sheets("Compilation").Range("A" & Rows.Count).End(xlUp).Offset(1).PasteSpecial xlValues

                    End If

          End Select

     Next wSheet

'Remettre la mise en forme
    Sheets("Nouveau projet").Visible = True
    Sheets("Nouveau projet").Select
    Rows("7:12").Select
    Application.CutCopyMode = False
    Selection.Copy

    Sheets("Compilation").Select
    Rows("3:3").Select
    Range(Selection, Selection.End(xlDown)).Select

    Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _
        SkipBlanks:=False, Transpose:=False
    Application.CutCopyMode = False

'Masquer l'onglet "Compilation"
    Sheets("Compilation").Visible = False

'Masquer l'onglet "Nouveau projet"
    Sheets("Nouveau projet").Visible = False

End Sub

Merci !

Hello,

Il faudrait que tu puisses récupérer ton ou tes liens et les ajouter avec cette méthode :

sheets("nom de feuille").Hyperlinks.Add Anchor:=.Range("a5"),Address:="https://example.microsoft.com"

Anchor étant la cellule de destination, ici A5

Merci mais il faut que le lien apparaisse sour une forme raccourcie car il peut avoir 200 caractères.

Hello,

Comme ceci :

sheets("nom de feuille").Hyperlinks.Add Anchor:=.Range("a5"),Address:="https://example.microsoft.com",TextToDisplay:="txt à afficher"