Liens dans ListBox

[malabarbe]

Bonjour à tous,

Dans ma feuille Excel, j'ai des liens vers des sites Internet

J'ai créé une ListBox ou je récupère les données de ma feuille

Mais, dans la ListBox, j'ai bien le nom du lien, mais la fonction
lien n'existe plus.

Comment faire pour conserver ces liens dans ma ListBox ?

A vous lire.

 

[jeanpierre]

Re : Liens dans ListBox

Re,

Et sans vouloir trop m'avancer, il me semble déjà que le scroll en VBA est déjà un petit exploit.

Vouloir le faire avancer sur 3 ou 5 est peut-être possible, voir et analyser le code ???.

Pour l'instant, je ne vois pas.

 

[malabarbe]

Re : Liens dans ListBox

Ok jeanpierre,

Je vais faire des essais !

Mais si quelqu'un a une idée la dessus,
elle serait la bienvenue.

@ +

 

[malabarbe]

Re : Liens dans ListBox

Avec lidée de jeanpierre,

J'ai modifié comme suit

Public Sub Controle_ActualiseWheel(Control As MSForms.Control, ByVal sens As Integer)
  Dim Index As Long
  Index = Control.ListIndex
  Select Case sens
    Case 1
      If Index < Control.ListCount - 1 Then Index = Index[SIZE="5"] + 5    '1[/SIZE]    Case -1
      If Index > 0 Then Index = Index [SIZE="5"]- 5    '1[/SIZE]
  End Select
  Control.ListIndex = Index
End Sub

Le scroll s'incrémente bien de 5, mais en fin de liste,
erreur.

Je dois dépasser la valeur de l'index !

Comment gérer cela ?

 

[Hulk]

Re : Liens dans ListBox

Re,

Hulk, ton premier fichier zippé fait 30.8 ko, le second un peu moins.....

Pourquoi les mettre sur un site éphémère ?????

Ah bon, chez moi l'un fait 60 et celui de Malabarbe fait 200 et des poussières...

Encore un mystère Excel 😀

Bonne soirée.

 

[Hulk]

Re : Liens dans ListBox

Re,

Dans l'Explorateur Windows, le Scroll a un incrément de 5 lignes

Alors que dans ma Macro, le Scroll n'est que de 1 !

Comment modifier cela ?

Dans l menu "Démarrer" -> "Panneau de Configuration" -> "Souris -> Onglet "Roulette"... Peut-être là.

Cdt, Hulk.

 

[jeanpierre]

Re : Liens dans ListBox

Re,

Euh, Hulk, je sais que les suisses sont long à la détente, mais c'est ce que j'ai dit sur le post #29, et il était 22h34, soit presque une heure de retard...

Pour tes fichiers du post #25, je répète 30 et moins de 30 ko donc "déposables (pfiou le mot inventé)" ici. (et non 60 et 200, sauf si l'on ne parle pas de la même chose)

(même pas peur)

 

[Hulk]

Re : Liens dans ListBox

Re,

Ouais ça c'est mon côté Schwitz, suis lent à la détente... Mais y a pas l'feu au lac 😀 (comme on dit par ici)

Cdt, Hulk.

 

[malabarbe]

Re : Liens dans ListBox

Avez-vous regardé mon petit bout de code ?

Il fait bien le Scroll haut et bas incrément de 5

Mais en début ou fin de liste je n'arrive pas a gérer le
dépassement d'index haut ou bas !

 

[Hulk]

Re : Liens dans ListBox

Et re,

Je rebondis encore pour dire que :

Juste pour avoir la roulette dans une ListBox ou une ComboBox, c'est tout de même lourd pour les débutants (que je suis encore d'ailleurs) et même pour les plus avancés (je pense).

Je ne veux pas minimiser l'excellent travaille de Mr Pourtier, mais c'est balaise pour, si j'ose dire, si "peu" !

Perso je fais comme ça :

Dans une ComboBox ou ListBox en cliquant dessus et en maintenant le click appuyé, tu montes la souris vers le haut ou vers le bas (en dehors de la ListBox ou ComboBox, mais sans sortir de l'USF), la liste défile, comme quand on click sur la petite barre de "l'ascenseur"... bref ça va même plus vite qu'avec la roulette !

J'espère que j'ai été compris.. 🙄

Maintenant chacun fait comme il veut.

Cdt, Hulk.

 

[malabarbe]

Re : Liens dans ListBox

Ok Hulk pour tes propos

Mais j'ai réussi a gérer mon incrément de 5 dans les deux sens

mème si il ne reste que 2 ou 3 lignes a monter ou a descendre,

si moin de 3 lignes vers le haut, focus sur ligne 1

si moin de 3 lignes vers le bas, focus en dernière ligne

Voilà !

PS: Mon code est dispo pour les intéressés

@ +

 

[malabarbe]

Re : Liens dans ListBox

🙂 Voila, j'ai finalisé mon projet ! : 🙂

Grace aux bons conseils et l'aide a la modification du code
et surtout a votre patience vu mon acharnement !​

Donc un Grand MERCI aux Menbres et
aux différentes sources disponibles
une véritable mine d'or.​

 

[malabarbe]

Re : Liens dans ListBox

Bonsoir à tous,

Comme je l'ai annoncé dans mon précédent
post, ma liste fonctionne à merveille.

Si je reviens vers vous c'est que je voudrais
modifier la mise en forme c'est à dire :

Actuellement, ma ListBox ce trouve placée
directement dans la UserForm1.

Ce que je souhaiterai faire, c'est de placer la
ListBox1 dans une Frame située dans UserForm1.

J'ai voulu faire, mais j'ai des erreurs à gogo
et des plantages d'Excel.

Un coup de main me serai bien utile !

PS: La source en pièce jointe

 

[malabarbe]

Re : Liens dans ListBox

CouCou !

Personne pour m'aider ?

Je crois que le soucis viens d'ici :

Private Sub MouseWheel(ByVal fwKeys As Long, _
                      ByVal zDelta As Long, _
                      ByVal xPos As Long, _
                      ByVal yPos As Long)
Dim sens As Integer
  With UserForm1.ListBox1
    Select Case .ActiveControl.Tag
    Case "Liste1"
'MsgBox "passe 0"   ' Quand Listbox1 est directement dans Form1, ok message
    Case Else
'MsgBox "passe 1"   ' Quand ListBox1 dans Frame1, ok message 
      Exit Sub
    End Select
    
    If zDelta < 0 Then sens = 1 Else sens = -1
    .Controle_ActualiseWheel .ActiveControl, sens
  End With
  
End Sub

Je bidouille, je bidouille mais pas de résultats