Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
michdenis
Bonjour Luc,
Une fonction faite à la volée que tu peux copier dans un module Standard
Dans ta cellule, tu écris la formule suivante :
=TrouverLink(A1) A1 ayant un lien hypertexte
'------------------------------ Function TrouverLink(rg As Range)
Dim A As String If rg.Hyperlinks.Count > 0 Then With rg A = .Hyperlinks(1).Address & .Hyperlinks(1).SubAddress End With End If If A <> "" Then TrouverLink = A Else TrouverLink = "" End If
End Function '------------------------------
Salutations!
"Luc Bourgeois" a écrit dans le message de news:
Bonjour,
Je souhaite extraire la cible du lien hypertexte d'une cellule dans une autre cellule?
Bonjour Luc,
Une fonction faite à la volée que tu peux copier dans un module Standard
Dans ta cellule, tu écris la formule suivante :
=TrouverLink(A1) A1 ayant un lien hypertexte
'------------------------------
Function TrouverLink(rg As Range)
Dim A As String
If rg.Hyperlinks.Count > 0 Then
With rg
A = .Hyperlinks(1).Address & .Hyperlinks(1).SubAddress
End With
End If
If A <> "" Then
TrouverLink = A
Else
TrouverLink = ""
End If
End Function
'------------------------------
Salutations!
"Luc Bourgeois" <LucBourgeois@discussions.microsoft.com> a écrit dans le message de news:
4160E581-9140-45D0-9905-B1F2835DF9B2@microsoft.com...
Bonjour,
Je souhaite extraire la cible du lien hypertexte d'une cellule dans une
autre cellule?
Une fonction faite à la volée que tu peux copier dans un module Standard
Dans ta cellule, tu écris la formule suivante :
=TrouverLink(A1) A1 ayant un lien hypertexte
'------------------------------ Function TrouverLink(rg As Range)
Dim A As String If rg.Hyperlinks.Count > 0 Then With rg A = .Hyperlinks(1).Address & .Hyperlinks(1).SubAddress End With End If If A <> "" Then TrouverLink = A Else TrouverLink = "" End If
End Function '------------------------------
Salutations!
"Luc Bourgeois" a écrit dans le message de news:
Bonjour,
Je souhaite extraire la cible du lien hypertexte d'une cellule dans une autre cellule?
Luc Bourgeois
ou dois-je ecrire la fonction?
Bonjour Luc,
Une fonction faite à la volée que tu peux copier dans un module Standard
Dans ta cellule, tu écris la formule suivante :
=TrouverLink(A1) A1 ayant un lien hypertexte
'------------------------------ Function TrouverLink(rg As Range)
Dim A As String If rg.Hyperlinks.Count > 0 Then With rg A = .Hyperlinks(1).Address & .Hyperlinks(1).SubAddress End With End If If A <> "" Then TrouverLink = A Else TrouverLink = "" End If
End Function '------------------------------
Salutations!
"Luc Bourgeois" a écrit dans le message de news:
Bonjour,
Je souhaite extraire la cible du lien hypertexte d'une cellule dans une autre cellule?
ou dois-je ecrire la fonction?
Bonjour Luc,
Une fonction faite à la volée que tu peux copier dans un module Standard
Dans ta cellule, tu écris la formule suivante :
=TrouverLink(A1) A1 ayant un lien hypertexte
'------------------------------
Function TrouverLink(rg As Range)
Dim A As String
If rg.Hyperlinks.Count > 0 Then
With rg
A = .Hyperlinks(1).Address & .Hyperlinks(1).SubAddress
End With
End If
If A <> "" Then
TrouverLink = A
Else
TrouverLink = ""
End If
End Function
'------------------------------
Salutations!
"Luc Bourgeois" <LucBourgeois@discussions.microsoft.com> a écrit dans le message de news:
4160E581-9140-45D0-9905-B1F2835DF9B2@microsoft.com...
Bonjour,
Je souhaite extraire la cible du lien hypertexte d'une cellule dans une
autre cellule?
Une fonction faite à la volée que tu peux copier dans un module Standard
Dans ta cellule, tu écris la formule suivante :
=TrouverLink(A1) A1 ayant un lien hypertexte
'------------------------------ Function TrouverLink(rg As Range)
Dim A As String If rg.Hyperlinks.Count > 0 Then With rg A = .Hyperlinks(1).Address & .Hyperlinks(1).SubAddress End With End If If A <> "" Then TrouverLink = A Else TrouverLink = "" End If
End Function '------------------------------
Salutations!
"Luc Bourgeois" a écrit dans le message de news:
Bonjour,
Je souhaite extraire la cible du lien hypertexte d'une cellule dans une autre cellule?
michdenis
Bonjour Luc,
Tu ouvres VBE(visual basic editor) -> raccourci clavier Alt + F11
Dans le menu de cette fenêtre / insertion / module / et tu copies le code dans la plage blanche qui vient de s'insérer.
Et dans ta cellule, tu appelles la fonction :
=TrouverLink(A1) A1 ayant un lien hypertexte
Salutations!
"Luc Bourgeois" a écrit dans le message de news:
ou dois-je ecrire la fonction?
Bonjour Luc,
Une fonction faite à la volée que tu peux copier dans un module Standard
Dans ta cellule, tu écris la formule suivante :
=TrouverLink(A1) A1 ayant un lien hypertexte
'------------------------------ Function TrouverLink(rg As Range)
Dim A As String If rg.Hyperlinks.Count > 0 Then With rg A = .Hyperlinks(1).Address & .Hyperlinks(1).SubAddress End With End If If A <> "" Then TrouverLink = A Else TrouverLink = "" End If
End Function '------------------------------
Salutations!
"Luc Bourgeois" a écrit dans le message de news:
Bonjour,
Je souhaite extraire la cible du lien hypertexte d'une cellule dans une autre cellule?
Bonjour Luc,
Tu ouvres VBE(visual basic editor) -> raccourci clavier Alt + F11
Dans le menu de cette fenêtre / insertion / module /
et tu copies le code dans la plage blanche qui vient de s'insérer.
Et dans ta cellule, tu appelles la fonction :
=TrouverLink(A1) A1 ayant un lien hypertexte
Salutations!
"Luc Bourgeois" <LucBourgeois@discussions.microsoft.com> a écrit dans le message de news:
B2DD72FA-3A4B-469E-95BB-5B99FCA7EABC@microsoft.com...
ou dois-je ecrire la fonction?
Bonjour Luc,
Une fonction faite à la volée que tu peux copier dans un module Standard
Dans ta cellule, tu écris la formule suivante :
=TrouverLink(A1) A1 ayant un lien hypertexte
'------------------------------
Function TrouverLink(rg As Range)
Dim A As String
If rg.Hyperlinks.Count > 0 Then
With rg
A = .Hyperlinks(1).Address & .Hyperlinks(1).SubAddress
End With
End If
If A <> "" Then
TrouverLink = A
Else
TrouverLink = ""
End If
End Function
'------------------------------
Salutations!
"Luc Bourgeois" <LucBourgeois@discussions.microsoft.com> a écrit dans le message de news:
4160E581-9140-45D0-9905-B1F2835DF9B2@microsoft.com...
Bonjour,
Je souhaite extraire la cible du lien hypertexte d'une cellule dans une
autre cellule?
Tu ouvres VBE(visual basic editor) -> raccourci clavier Alt + F11
Dans le menu de cette fenêtre / insertion / module / et tu copies le code dans la plage blanche qui vient de s'insérer.
Et dans ta cellule, tu appelles la fonction :
=TrouverLink(A1) A1 ayant un lien hypertexte
Salutations!
"Luc Bourgeois" a écrit dans le message de news:
ou dois-je ecrire la fonction?
Bonjour Luc,
Une fonction faite à la volée que tu peux copier dans un module Standard
Dans ta cellule, tu écris la formule suivante :
=TrouverLink(A1) A1 ayant un lien hypertexte
'------------------------------ Function TrouverLink(rg As Range)
Dim A As String If rg.Hyperlinks.Count > 0 Then With rg A = .Hyperlinks(1).Address & .Hyperlinks(1).SubAddress End With End If If A <> "" Then TrouverLink = A Else TrouverLink = "" End If
End Function '------------------------------
Salutations!
"Luc Bourgeois" a écrit dans le message de news:
Bonjour,
Je souhaite extraire la cible du lien hypertexte d'une cellule dans une autre cellule?
