Microsoft 365 Lien hypertexte

O

Othmane204

XLDnaute Nouveau
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!
 
Solution
O
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!

​

Trier par date Trier par votes
Phil69970

Phil69970

XLDnaute Barbatruc
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
 
Vote positif 0 Vote négatif
O

Othmane204

XLDnaute Nouveau
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
Cliquez pour agrandir...
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
Cliquez pour agrandir...
Je vous remerci pour votre retour, j'ai essayé ce code mais ca ne marche pas.
 
Vote positif 0 Vote négatif
job75

job75

XLDnaute Barbatruc
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+
 

Pièces jointes

  • Factures(1).xlsm
    21 KB · Affichages: 4
Vote positif 0 Vote négatif
O

Othmane204

XLDnaute Nouveau
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+
Cliquez pour agrandir...
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!
 
Vote positif 0 Vote négatif
job75

job75

XLDnaute Barbatruc
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.
 
Vote positif 0 Vote négatif
O

Othmane204

XLDnaute Nouveau
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.
Cliquez pour agrandir...
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
 
Vote positif 0 Vote négatif
Phil69970

Phil69970

XLDnaute Barbatruc
Bonjour @fcyspm30 et @job75

Perso quand je lis ceci :
fcyspm30 à dit:
Je vous ai proposé une réponse sur le forum XLP
Cliquez pour agrandir...

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.
Cliquez pour agrandir...

1669980099297.png


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

Par contre ceci ne fonctionne pas !!!!

1669980607396.png


@Phil69970
 
Vote positif 0 Vote négatif
O

Othmane204

XLDnaute Nouveau
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
Cliquez pour agrandir...
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
 
Vote positif 0 Vote négatif

Discussions similaires

J
  • Résolu(e)
Autres Partage fichier avec lien hypertexte
2
Réponses
20
Affichages
616
TooFatBoy
TooFatBoy
Sellig
  • Résolu(e)
XL 2019 Créer un lien Hypertexte ancré à un mot sur une autre feuille
Réponses
8
Affichages
272
sylvanu
sylvanu
D
  • Résolu(e)
XL 2021 Créer feuilles automatiquement dans un classeur a partir d'une liste et lien hypertexte
Réponses
6
Affichages
412
Phil69970
Phil69970
J
  • Question
XL 2021 Lien hypertexte dans forme rectangle
Réponses
2
Affichages
348
Phil69970
Phil69970
M
  • Résolu(e)
XL 2013 Lien hypertexte dans tableau structuré
Réponses
4
Affichages
607
M.Ben
M
J
  • Question
Microsoft 365 Problème lien hypertexte
Réponses
5
Affichages
475
Phil69970
Phil69970
B
  • Résolu(e)
XL 2016 Ouvrir une feuille masquée avec un lien hypertexte
Réponses
2
Affichages
534
berru76
B
R
  • Question
Microsoft 365 Fonction lien Hypertexte
Réponses
7
Affichages
718
job75
job75
Y
  • Question
XL 2021 Lien Hypertexte et feuilles masquées
Réponses
4
Affichages
637
Yacine
Y
Telegraphist
  • Question
XL 2016 Bouton vers lien hypertexte issus de formules
Réponses
2
Affichages
780
crocrocro
C

Membres actuellement en ligne

20 membres et 380 invités.

Partager cette page

Tutos vidéos

Power Query : Ajouter des requêtes (Excel et Power BI)
Créez votre première fonction LAMBDA dans Excel en 3 étapes!
LAMBDA, l’arme secrète de Microsoft pour Excel !
Office Insider - Découvrez les nouveautés Excel avant tout le monde

Statistiques des forums

Discussions
314 714
Messages
2 112 142
Membres
111 438
dernier inscrit
espaulette