Probleme listbox et souris

Bonjour à toutes et tous,

j'ai une listbox dans un onglet excel et si je double clic sur un des items cela me lance un formulaire

seulement voila une fois le formulaire fermé je demande à ce que le champ de recherche se vide et que la listbox revienne au premier item.

Tout fonctionne jusque la mais mon soucis c'est que je n'ai plus la main avec ma souris

Soit je dois faire clic droit ou cliquer sur la listbox pour reprendre la main.

Comment procéder afin de régler cela svp?

Private Sub Full_List_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
ConsultandUpdate.Show

Cherche.Value = ""
Full_List.ListIndex = 0

End Sub

merci par avance

@+

Bonjour,

Essai ainsi ...

Private Sub Full_List_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
Cancel = True    ' << ligne ajoutée
ConsultandUpdate.Show

Cherche.Value = ""
Full_List.ListIndex = 0

End Sub

ric

merci

je viens de tenter mais ne fonctionne pas

je dois survoler la listbox ou cliquer sur le champ de recherche pour que cela me rende la main.

A toutes fins utiles voici le code pour le champ de recherche également

Private Sub Full_List_DblClick(ByVal Cancel As MSForms.ReturnBoolean)

ConsultandUpdate.Show
Cherche.Value = ""
Full_List.ListIndex = 0

End Sub

Public Sub Cherche_Change()

 NomTableau = "Projects"
 NbCol = Worksheets("Projects").Range(NomTableau).Columns.Count
 TblBD = Worksheets("Projects").Range(NomTableau).Resize(, NbCol + 1).Value

  colRecherche = 3

  clé = Cherche & "*": n = 0
  Dim tbl()
  For i = 1 To UBound(TblBD)
    If TblBD(i, colRecherche) Like clé Then

          n = n + 1: ReDim Preserve tbl(1 To 2, 1 To n)
        tbl(1, n) = TblBD(i, colRecherche)
     End If
  Next i
  If n > 0 Then Full_List.Column = tbl Else Full_List.Clear

End Sub

voici le probleme reproduit

chercher par exemple Acronyme3 et ensuite double cliquer pour ouvrir le userform

une fois sortie du userform on perd la main sauf à survoler la listbox

personne n'a d'idées pour résoudre cela?

merci par avance

Bonjour,

Désolé si je ne suis pas revenu avant ...

Ou bien je n'ai pas compris le souci > ou je n'ai pas ce souci sur ma machine ...

Le double clique sur un item de la liste ouvre bien le formulaire > en fermant le formulaire > tout semble en ordre et je n'ai aucune difficulté à continuer de manipuler Excel ...

ric

euh alors j'ai un soucis car de mon coté une fois que je ferme le formulaire je ne peux sélectionner aucune cellule ni même fermer excel

il faut au préalable survoler la listbox

Bonjour,

Je n'ai pas ce souci ...

Si le problème persiste sur le fichier que tu nous as fait parvenir ...

Est-ce que tu as des macros complémentaires ou est-ce que tu as installé des choses tel le Pack de 92 nouvelles fonctions Excel et VBA ?

ric

J’ai bien le soucis sur le fichier adressé et non pas installé de pack complémentaire

Bonjour,

Je ne sais pas trop comment t'aider ...

Peut-être une réparation de Excel en passant par le Panneau de configuration ...

ric

juste pour m'assurer d'une chose:

nous sommes bien d'accord que vous passez par le champ de recherche?

je pose la question car si je double clic directement dans la listbox sur un acronyme le problème n'apparait pas.

par contre si je recherche disons Acronyme31 dans le champ de recherche celui ci va apparaitre en tète de liste de la listbox mais alors là à la fermeture de form et bien on perd la main enfin de mon coté...

donc le probleme semble plutot venir du champ de recherche

Bonjour,

C'est bien la démarche que j'ai testée à plusieurs reprises ...

Par contre, je viens de démarrer une vieille machine, laquelle a Excel 2007 > et là > j'ai souci décrit ...

Je regarde plus près et je reviens ...

ric

Je tourne sous office 2016 pour info

Salut Darkangel,

Pas de problème non plus chez moi

@+

Il semblerait que tu ailles directement cliquer de nouveau dans le champ recherche ce qui fonctionne d’accord.

Mais essaye juste de sélectionner n’importe quel autre cellule après le form et chez moi c’est la que ça bug

Bonjour à tous,

Darkangel a écrit :

Je tourne sous office 2016 pour info

Oui, j'ai vu l'info de ton profil ...

Reste que sous Excel 2007 > j'ai le souci que tu décris ...

Je regarde cela demain si je peux trouver une parade ...

Si j'en trouve une > j'espère qu'elle fonctionnera sur ton ordi ...

ric

merci par avance!

Re,

Darkangel a écrit :

Il semblerait que tu ailles directement cliquer de nouveau dans le champ recherche ce qui fonctionne d’accord.

Mais essaye juste de sélectionner n’importe quel autre cellule après le form et chez moi c’est la que ça bug

Si après l'USF je clique sur un nom de la liste, je n'ai toujours aucun problème

Je suis sous O365 aussi

Bonjour à tous,

Ce que j'ai trouvé et qui semble systématique ...

En fermant le formulaire > au retour dans la macro > écrire dans le champ "Cherche" semble être la source de ton souci ...

Pour tester > mets cette ligne en commentaire ...

Private Sub Full_List_DblClick(ByVal Cancel As MSForms.ReturnBoolean)

ConsultandUpdate.Show
'''''' Cherche.Value = ""
Full_List.ListIndex = 0

End Sub

ric

Merci pour votre retour Ric

Effectivement c'est bien le soucis c'est à dire que si je met cette ligne en commentaire cela résous le soucis

cependant je voudrais tout de même mettre à 0 le champ recherche ce qui remet la listbox également alors comment procéder svp?

merci par avance