Boostez vos compétences Excel avec notre communauté !
Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force.
Apprenez, échangez, progressez – et tout ça gratuitement !
👉 Inscrivez-vous maintenant !
Je me tourne à nouveau vers vous car ayant écouté vos
conseils, j’ai téléchargé et modifié le source des Hypers-
liens pour l’adapter a mes besoins, mais je butte sur sur
le changement de colonne !
Donc le but, c’était d’intégrer trois colonnes Excel dans
Une ListBox tout en conservant la validité des liens ce
Trouvant dans une colonne.
Cela tourne avec ce code si je met la Ville en col A:,
en B: la Date et en C: les comm's :
Code:
Private Sub UserForm_Initialize()
Me.ListBox1.List = [A:C].Value
End Sub
'-----------------------------------------------
Private Sub listbox1_Click()
Set result = [A:C].Find(ListBox1.Value)
If Not result Is Nothing Then
temp = AdrLien(Cells(result.Row, "b"))
On Error Resume Next
Err = 0
ActiveWorkbook.FollowHyperlink Address:=temp, NewWindow:=True
If Err <> 0 Then MsgBox "Erreur"
End If
End Sub
'----------------------------------------------
Function AdrLien(c As Range)
AdrLien = Mid(c.Hyperlinks(1).Address, 1)
End Function
Dans ma feuille Excel, (col A: la Date), (col B: la Ville)
(col C: commentaires)
Le souci qui me reste, c’est que je voudrais que dans
la ListBox, la Date soit en colonne A :, La Ville en B : et en C : les comm's.
Mais la, les liens fonctionnent toujours mais n’aboutissent pas
Sur l’adresse demandée !
Pour les tests de la Date en col B :, j’ai seulement modifié :
Un Grand Merci !
Une aide bien précieuse
Le source est parfait
1° - J'avais cherché sur le site mais pas trouvé ces sources
2° - J'ai deux autres questions, mais je ne sais pas si je dois créer
un nouveau post ou en faire-part ici ?
- La roulette de la souris ne fonctionne pas dans la ListBox
- Comment dans la ListBox au passage de la souris sur une
ligne, que celle-ci devienne bleue (comme après une sélection)
A moins que vous m'aiguillez sur des sources adéquates
- Navigue sans publicité - Accède à Cléa, notre assistante IA experte Excel... et pas que... - Profite de fonctionnalités exclusives Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel. Je deviens Supporter XLD