Autres Créer des liens hypertexte automatiques et dans plusieurs colonnes dans un tableau excel

JMC · 21 Octobre 2024

Bonjour à tous,
J'ai toujours mon tableau d'association (en pièce jointe), dans lequel je voudrais mettre des liens hypertextes pour chaque colonnes (qui correspondent à différentes cellules et qui sont les même pour chaque mois), dans la page "Journal Général" .
Je voudrais savoir si il y aurait une formule pour éviter de les faire manuellement.
J'ai commencé à en écrire pour le mois de janvier pour vous donner l'exemple.
Si cela est possible, merci pour votre aide.

Cordialement

job75 · 21 Octobre 2024

Dans les fichiers précédents j'ai remplacé :

VB:

        .Hyperlinks.Add r, "", cible.Address(0, 0, External:=True)

par :

VB:

        .Hyperlinks.Add r, "", cible.Parent.Name & "!" & cible.Address(0, 0)

l'adresse du lien est plus simple.

TooFatBoy · 21 Octobre 2024

Bonjour,

En rationnalisant ton classeur, on pourrait remplacer les liens par un double-clic dans la cellule grâce à une petite macro.

VB:

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    If Not Intersect(Target, Range("I5:N16,W5:AH16")) Is Nothing Then
        Cancel = True
        Application.Goto Sheets(Cells(Target.Row, 5).Value).Cells(26, Target.Column)
    End If
End Sub

JMC · 21 Octobre 2024

TooFatBoy à dit:
Bonjour,

En rationnalisant ton classeur, on pourrait remplacer les liens par un double-clic dans la cellule grâce à une petite macro.

VB:

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) If Not Intersect(Target, Range("I5:N16,W5:AH16")) Is Nothing Then Cancel = True Application.Goto Sheets(Cells(Target.Row, 5).Value).Cells(26, Target.Column) End If End Sub

Bonjour et merci,
Mon tableau tel que tu me mets la macro, ne me met plus les cellules en jaune dans les mois concernés.
J'ai rectifié les mois dans les cellules du "Journal Général".
Tout est ok sauf cette colorisation que j'avais demandé depuis le début.

job75 · 21 Octobre 2024

Bonjour JMC, TooFatBoy,

Ce sont des liens hypertextes qui sont demandés alors créez-les, c'est très simple :

VB:

Sub Creer_Liens()
Dim r As Range, cible As Range
Application.ScreenUpdating = False
With Sheets("JOURNAL GENERAL")
    Set r = Union(.[F5:N16], .[T5:AH16])
    r.Clear 'RAZ
    r.NumberFormat = "0.00 €"
    r.HorizontalAlignment = xlCenter
    For Each r In r
        Set cible = Sheets(r.Row - 3).Cells(29, r.Column).End(xlUp)
        r = cible.Value
        .Hyperlinks.Add r, "", cible.Parent.Name & "!" & cible.Address(0, 0)
    Next r
End With
End Sub

Les feuilles des mois doivent être placées dans l'ordre à partir de la 2ème feuille.

A+

JMC · 21 Octobre 2024

job75 à dit:
Bonjour JMC, TooFatBoy,

Ce sont des liens hypertextes qui sont demandés alors créez-les, c'est très simple :

VB:

Sub Creer_Liens() Dim r As Range, cible As Range Application.ScreenUpdating = False With Sheets("JOURNAL GENERAL") Set r = Union(.[F5:N16], .[T5:AH16]) r.Clear 'RAZ r.NumberFormat = "0.00 €" r.HorizontalAlignment = xlCenter For Each r In r Set cible = Sheets(r.Row - 3).Cells(29, r.Column).End(xlUp) r = cible.Value .Hyperlinks.Add r, "", cible.Address(0, 0, External:=True) Next r End With End Sub

Les feuilles des mois doivent être placées dans l'ordre à partir de la 2ème feuille.

A+

Bonjour Job75 et merci pour l'aide.

job75 à dit:
Les feuilles des mois doivent être placées dans l'ordre à partir de la 2ème feuille.

Je ne comprends pas très bien ce que tu veux dire, car sur mon fichier, tous les mois sont dans l'ordre chronologique.;
Il n'y a que dans le VBA, que les mois sont mélangés, et ç je n'y ai rien touché (déjà que je n'y connais pas grand chose...)
Et ta formule ne me donne pas le résultat demandé. Je n'y ai peut-être pas compris ce qui se pourrait

job75 · 21 Octobre 2024

JMC à dit:
Je ne comprends pas très bien ce que tu veux dire, car sur mon fichier, tous les mois sont dans l'ordre chronologique.;

Il ne faut pas modifier les positions des feuilles des mois qui doivent être comme j'ai dit.

Et les liens hypertextes sont créés comme demandé (il n'y a plus de formules de liaisons inutiles).

job75 · 21 Octobre 2024

Si les valeurs des feuilles des mois doivent être souvent modifiées on placera dans le code de la feuille "JOURNAL GENERAL" :

VB:

Private Sub Worksheet_Activate()
Creer_Liens
End Sub

Elle s'exécute quand on active la feuille.

job75 · 21 Octobre 2024

Dans les fichiers précédents j'ai remplacé :

VB:

        .Hyperlinks.Add r, "", cible.Address(0, 0, External:=True)

par :

VB:

        .Hyperlinks.Add r, "", cible.Parent.Name & "!" & cible.Address(0, 0)

l'adresse du lien est plus simple.

JMC · 21 Octobre 2024

job75 à dit:
Dans les fichiers précédents j'ai remplacé :

VB:

.Hyperlinks.Add r, "", cible.Address(0, 0, External:=True)

par :

VB:

.Hyperlinks.Add r, "", cible.Parent.Name & "!" & cible.Address(0, 0)

l'adresse du lien est plus simple.

Grand Merci à vous deux.
Pour ma part j'en ai fini avec ce fichier qui me convient.

A une autre fois qui sait....

Autres Créer des liens hypertexte automatiques et dans plusieurs colonnes dans un tableau excel

JMC

XLDnaute Junior

Pièces jointes

job75

TooFatBoy

XLDnaute Barbatruc

Pièces jointes

JMC

XLDnaute Junior

Pièces jointes

job75

XLDnaute Barbatruc

Pièces jointes

JMC

XLDnaute Junior

job75

XLDnaute Barbatruc

job75

XLDnaute Barbatruc

Pièces jointes

job75

XLDnaute Barbatruc

JMC

XLDnaute Junior

Discussions similaires