Microsoft 365 Lien hypertexte

Othmane204 · 2 Décembre 2022

Bonjour à tous,

Je suis entrain de créer une facture avec VBA, et je bloque à cause d'une fonction que j'aimerais appliquer, j'ai beau cherché mais je ne trouves pas ce que je cherche.

Je veux créer un lien hypertexte a travers la derniere feuille ajoutée dans le classeur et mettre le lien dans une cellule predefinie dans une autre feuille ("HISTORIQUE FACTURES") par exemple cellule K4. Et je veux que ca s'ajoute sur une nouvelle ligne a chaque fois que je crée une feuille

Voici le code où je suis arrivé.

Sheets("HISTORIQUE FACTURES").Select
ligne = Range("A2").End(xlDown).Row + 1
ActiveSheet.Hyperlinks.Add Anchor:=Cells(ligne, 1), Address:="", SubAddress:= _
Sheets(Sheets.Count).Name & "!A1", TextToDisplay:=Sheets("FACTURE").Range("K18") & " " & Sheets("FACTURE").Range("F23").Value

Merci d'avance!

Othmane204 · 2 Décembre 2022

Bonsoir à tous je tiens à vous remercier pour vos efforts et votre aide, je vous informe que finallement je suis arrivé au résultat voulu grace au code suivant :

VB:

Dim Derlig&
With Sheets("HISTORIQUE FACTURES")
    Derlig = .Range("L" & Rows.Count).End(xlUp).Row + 1
    .Hyperlinks.Add Anchor:=.Cells(Derlig, 12), Address:="", SubAddress:= _
    "'" & Sheets(Sheets.Count).Name & "'!A1", TextToDisplay:=Sheets("FACTURE").Range("K18") & " " & Sheets("FACTURE").Range("F23").Value & "!A1"
End With

C'est bien ce que @Phil69970 m'avait proposé, c'est juste qu'il devait mettre les apostrophes devant et derrière le nom.

Merci encore!

Phil69970 · 2 Décembre 2022

Bonjour @Othmane204 et bienvenu sur XLD

Si j'ai compris et sans fichier exemple fourni je propose

VB:

Sub Creation_Lien()
Dim Derlig&
With Sheets("HISTORIQUE FACTURES")
    Derlig = .Range("K" & Rows.Count).End(xlUp).Row + 1
    .Hyperlinks.Add Anchor:=.Cells(Derlig, 11), Address:="", SubAddress:= _
    Sheets(Sheets.Count).Name & "!A1", TextToDisplay:=Sheets("FACTURE").Range("K18") & " " & Sheets("FACTURE").Range("F23").Value
End With
End Sub

Le lien est crée dans la colonne K de la feuille "HISTORIQUE FACTURES"
Sinon merci de fournir un fichier exemple avec les explications ou crée le lien

Merci de ton retour

@Phil69970

C'est papy Mougeot ! · 2 Décembre 2022

Bonjour,
Je vous ai proposé une réponse sur le forum XLP

Othmane204 · 2 Décembre 2022

fcyspm30 à dit:
Bonjour,
Je vous ai proposé une réponse sur le forum XLP

Bien recu, je vous remerci. Mais votre solution n'a pas marché non plus.

Othmane204 · 2 Décembre 2022

Phil69970 à dit:
Bonjour @Othmane204 et bienvenu sur XLD

Si j'ai compris et sans fichier exemple fourni je propose

VB:

Sub Creation_Lien() Dim Derlig& With Sheets("HISTORIQUE FACTURES") Derlig = .Range("K" & Rows.Count).End(xlUp).Row + 1 .Hyperlinks.Add Anchor:=.Cells(Derlig, 11), Address:="", SubAddress:= _ Sheets(Sheets.Count).Name & "!A1", TextToDisplay:=Sheets("FACTURE").Range("K18") & " " & Sheets("FACTURE").Range("F23").Value End With End Sub

Le lien est crée dans la colonne K de la feuille "HISTORIQUE FACTURES"
Sinon merci de fournir un fichier exemple avec les explications ou crée le lien

Merci de ton retour

@Phil69970

Je vous remerci pour votre retour, j'ai essayé ce code mais ca ne marche pas.

job75 · 2 Décembre 2022

Bonjour Othmane204, Phil69970, fcyspm30, le forum,

A priori il s'agit dans HISTORIQUE FACTURES de créer les liens conduisant aux autres feuilles.

La macro dans le code de cette feuille :

VB:

Private Sub Worksheet_Activate()
Dim lig&, w As Worksheet
lig = 2
Application.ScreenUpdating = False
Range("A2:A" & Rows.Count).Clear 'RAZ
For Each w In Worksheets
    If w.Name <> Me.Name Then Me.Hyperlinks.Add Cells(lig, 1), "", "'" & w.Name & "'!A1", , w.Name: lig = lig + 1
Next
End Sub

Elle se déclenche quand on active la feuille.

A+

Othmane204 · 2 Décembre 2022

@fcyspm30 et @Phil69970, je partage avec vous vous le fichier come ca vous aurez une idée plus calire.
Bon voila, j'aimerais avoir un lien dans la colonne L e chaque feuille créee a la fin du classeur.

Othmane204 · 2 Décembre 2022

job75 à dit:
Bonjour Othmane204, Phil69970, fcyspm30, le forum,

A priori il s'agit dans HISTORIQUE FACTURES de créer les liens conduisant aux autres feuilles.

La macro dans le code de cette feuille :

VB:

Private Sub Worksheet_Activate() Dim lig&, w As Worksheet lig = 2 Application.ScreenUpdating = False Range("A2:A" & Rows.Count).Clear 'RAZ For Each w In Worksheets If w.Name <> Me.Name Then Me.Hyperlinks.Add Cells(lig, 1), "", "'" & w.Name & "'!A1", , w.Name: lig = lig + 1 Next End Sub

Elle se déclenche quand on active la feuille.

A+

Bonjour @job75, je vous remercie pour votre retour, et ce que vous pouvez appliquer votre solution dans mon fichier que je viens de partager.

Merci!

job75 · 2 Décembre 2022

Merci pour votre fichier, ce n'est pas du tout ce que je pensais :

- la facture précédente listée FA2211-011 n'existe plus

- les feuilles FACTURE et ZZZZ 4565 sont identiques, pourquoi ?

Tout cela paraît assez incohérent, il faudrait revoir la conception de l'ensemble.

Othmane204 · 2 Décembre 2022

job75 à dit:
Merci pour votre fichier, ce n'est pas du tout ce que je pensais :

- la facture précédente listée FA2211-011 n'existe plus

- les feuilles FACTURE et ZZZZ 4565 sont identiques, pourquoi ?

Tout cela paraît assez incohérent, il faudrait revoir la conception de l'ensemble.

Oui en fait la facture FA2211-011 n'existait pas j'ai inseré cette ligne mauellement pour essayer le aut de ligne, es dans ce fichier j'ai pas ajouté les comandes pour effacer le contenu de la feuille facture c'est pour cela que les 2 feuilles sont identiques

job75 · 2 Décembre 2022

Vous voulez dire que la feuille FACTURE est un modèle ? Alors appelez-la MODELE FACTURE.

Et présentez-nous un fichier avec 3 ou 4 factures différentes crées (qu'il suffira donc de lister).

Othmane204 · 2 Décembre 2022

job75 à dit:
Vous voulez dire que la feuille FACTURE est un modèle ? Alors appelez-la MODELE FACTURE.

Et présentez-nous un fichier avec 3 ou 4 factures différentes crées (qu'il suffira donc de lister).

Oui c'est bien ca
Voici le fichier

Phil69970 · 2 Décembre 2022

Bonjour @fcyspm30 et @job75

Perso quand je lis ceci :

fcyspm30 à dit:
Je vous ai proposé une réponse sur le forum XLP

Je me dit que la charte §2.10 n'est pas respecté.

Et quand je vois le fichier fourni et la demande je pense que la demande est assez incohérente.

Othmane204 à dit:
mettre le lien dans une cellule predefinie dans une autre feuille ("HISTORIQUE FACTURES") par exemple cellule K4.

Ps: En mettant les les bonnes colonnes (colonne L et non pas K) mon post #2 fonctionne.

Par contre ceci ne fonctionne pas !!!!

@Phil69970

job75 · 2 Décembre 2022

Dans la feuille HISTORIQUE FACTURES la colonne Désignation ne va pas.

En effet dans chaque facture il y a plusieurs lignes pour Désignation.

Il faudrait donc supprimer cette colonne non ?

Othmane204 · 2 Décembre 2022

Phil69970 à dit:
Bonjour @fcyspm30 et @job75

Perso quand je lis ceci :

Je me dit que la charte §2.10 n'est pas respecté.

Et quand je vois le fichier fourni et la demande je pense que la demande est assez incohérente.

Regarde la pièce jointe 1157031

Ps: En mettant les les bonnes colonnes (colonne L et non pas K) mon post #2 fonctionne.

Par contre ceci ne fonctionne pas !!!!

Regarde la pièce jointe 1157035

@Phil69970

Tout d'abord je suis desolé si j'ai enfreint la regle, ca n'etait pas du tout mon intention.
Sachez que j'ai corrigé la colonne en L et ca marche toujours pas

Microsoft 365 Lien hypertexte

Othmane204

XLDnaute Nouveau

Othmane204

Phil69970

XLDnaute Barbatruc

C'est papy Mougeot !

XLDnaute Occasionnel

Othmane204

XLDnaute Nouveau

Othmane204

XLDnaute Nouveau

job75

XLDnaute Barbatruc

Pièces jointes

Othmane204

XLDnaute Nouveau

Pièces jointes

Othmane204

XLDnaute Nouveau

job75

XLDnaute Barbatruc

Othmane204

XLDnaute Nouveau

job75

XLDnaute Barbatruc

Othmane204

XLDnaute Nouveau

Pièces jointes

Phil69970

XLDnaute Barbatruc

job75

XLDnaute Barbatruc

Othmane204

XLDnaute Nouveau

Discussions similaires

Microsoft 365 Lien hypertexte

XLDnaute Nouveau

​

XLDnaute Barbatruc

XLDnaute Occasionnel

XLDnaute Nouveau

XLDnaute Nouveau

XLDnaute Barbatruc

Pièces jointes

XLDnaute Nouveau

​

Pièces jointes

XLDnaute Nouveau

XLDnaute Barbatruc

XLDnaute Nouveau

XLDnaute Barbatruc

XLDnaute Nouveau

Pièces jointes

XLDnaute Barbatruc

XLDnaute Barbatruc

XLDnaute Nouveau

Discussions similaires