plantage scroll + listbox

[Edith]

Bonjour à tous

Dans le cadre d'une entreprise, je suis contraint
d'utiliser des listbox directement sur une feuille excel

But : afficher les détails d'un enregistrement sélectionné parmi plusieurs listbox

Problème : si un élément a été choisi, un scroll de la souris fait planter excel. Ce phénomène serait connu et proviendrait d'une mauvaise installation. N'ayant pas les
moyens de faire corriger cette installation, j'essaie de contouner le problème

En selectionnant une cellule après le choix dans une listox, le scroll ne fait plus planter.

Par contre, en choisissant 2 fois (+ scroll) la même ligne => plantage (faut quand même le faire exprès)

J'aimerais donc qu'après une sélection et l'affichage des données, la ligne dans la listbox ne soit plus sélectionnée (tel qu'on arrive à la désélectionner quand on
clique dans l'autre liste)

Peut être que dans ce cas, le scroll ne provoquerait plus de plantage

Je vous remercie par avance pour vos recherches

Edith

 

[Papou-net]

Re : plantage scroll + listbox

Bonjour Edith, et bienvenue sur le site,

Je n'ai pas réussi à reproduire ton problème, mais puisqu'il semble qu'en sélectionnant une cellule cela ne bugue plus, voici ce que je te propose :

Private Sub Listbox1_Click()
    ListBox2.ListIndex = -1
    Label1.Caption = ListBox1.Value
    Range("A1").Select
End Sub

Private Sub Listbox2_Click()
    ListBox1.ListIndex = -1
    Label1.Caption = ListBox2.Value
    Range("A1").Select
End Sub

Bien sûr, tu peux changer l'adresse de la cellule A1 par celle de ton choix.

Espérant avoir résolu.

Cordialement.

 

[Edith]

Re : plantage scroll + listbox

Merci pour cette réponse, mais c'est déjà ce que je fais dans le vrai programme.
Il n'y a pas de plantage si l'on fait un seul clic de souris + scroll (chez moi non plus d'ailleurs, c'est seulement au travail)
Le bug vient après 2 clics sur la même ligne + scroll (il faut le faire exprès !)
Pour autant, j'aimerais que le programme ne plante pas, c'est pourquoi je souhaiter que la ligne sélectionnée dans la listbox ne le soit plus après affichage du détail. Nous aurions alors des listbox sans sélection et le scroll ne provoquerait plus de plantage
J'ai déjà pu désélectionner une listbox dans un Userform, mais ici je n'arrive pas à provoquer la fonction ListBox1.ListIndex = -1 à partir d'un autre objet, ce qui serait peut être la solution (sauf par choix dans une autre listbox). Dans ce cas, le choix est manuel. Il faudrait simplement (possible ?) qu'il soit effectué par programme
Cordialement

 

[Papou-net]

Re : plantage scroll + listbox

Désolé, ne pouvant constater le bug, je ne vois pas la solution.

Au fait, quel est le message d'erreur qui s'affiche ?

A +

Cordialement.

 

[Edith]

Re : plantage scroll + listbox

Voici en pièce jointe l'image du plantage.
J'ai remis un nouveau fichier test en ajoutant une textbox
L'info y est envoyée (après clic dans une listbox)
Naïvement je pensais pouvoir exploiter l'évènement 'change'
En pas à pas, on voit bien que le programme passe dans cette procédure sans pour autant exécuter le code
Si personne ne trouve de solutions, nous recommanderons la prudence à l'utilisation du programme
Merci pour toute suggestion

 

[Papou-net]

Re : plantage scroll + listbox

Edith,

J'ai refait des essais avec ton nouveau fichier, toujours pas de problème sur mon poste de travail.

L'erreur elle-même semble inconnue par Excel d'après le message.

Je me sens bien incapable de t'aider davantage, peut-être ce message trouvera-t-il quelqu'un qui aurait été confronté à ce cas et qui l'aurait résolu ?

En attendant, bon courage et bonne soirée.

Cordialement.

 

[Edith]

Re : plantage scroll + listbox

Merci Papou-net pour le temps passé.

Si quelqu'un peut m'aider à faire réagir Excel et libérer la listbox de toute sélection, je crois que le plantage sera évité

Bonne soirée également

Cordialement

Edith

 

[kjin]

Re : plantage scroll + listbox

Bonsoir,
Je n'ai pas de loupe et je ne peux pas afficher l'image !!!
A+
kjin

 

[Edith]

Re : plantage scroll + listbox

Bonjour kjin

Voici l'image agrandie en pièce jointe.
Je ne pense pas que l'on puisse en tirer quoi que ce soit

Si c'est possible, j'aimerais simplement pouvoir désélectionner la listbox sur changement de valeur dans la Textbox

Un clic dans l'objet 'Label' agit de cette façon, d'ailleurs pas à chaque fois. Là aussi, je m'interroge pourquoi ?

Merci par avance

Cordialement

Edith

PS : en cherchant un peu, j'ai trouvé un message similaire sur le forum
https://www.excel-downloads.com/threads/plantage-excel-sur-listbox.110487/

 

[Fo_rum]

Re : plantage scroll + listbox

Bonjour,

je n'ai pas ce problème avec ma version.
Peut-être qu'avec une réinitialisation à chaque fois ...

 

[Edith]

Re : plantage scroll + listbox

Merci pour cette dernière proposition.
Résultat : seul le 1er item de chaque listbox (A1, B1) se désélectionne !!!

Sauf une idée de génie, laissez tomber

Je trouverai une autre solution

Merci encore à ceux qui ont pris un peu de temps pour me dépanner

Bon week end à tous

Edith

 

[kjin]

Re : plantage scroll + listbox

Bonjour,
Je ne comprends pas vraiment le pb dans la mesure où je ne l'ai pas, mais il semblerait que se soit un bug recurent
Pour la désélection des ListBox, as tu essayé l'événement GotFocus de la TextBox ?

Private Sub TextBox1_GotFocus()
    Listbox1.ListIndex = -1
    Listbox2.ListIndex = -1
End Sub

A+
kjin

 

[tototiti2008]

Re : plantage scroll + listbox

Bonjour à tous,

C'est sûr que ce n'est pas trop facile quand on ne peut pas reproduire le bug
Il semble que la touche Echap désactive le contrôle de la feuille de calcul sélectionné, alors peut-être

Private Sub ListBox1_MouseDown(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
    SendKeys "{ESC}"
End Sub

et même chose avec ListBox2