Sélection dans une liste déroulante et mouvement de souris

[capc93]

Bonjour

D'abord je tiens à m'excuser pour la mise en forme du message que j'envoie depuis mon téléphone puisque les restrictions Internet de mon entreprise sont drastiques....

J'ai mis le code ci dessous pour une liste déroulante présente sur une feuille de calcul. Le code fonctionne mais est long. J'ai essayé de mettre la screenupdating à false....
Ça fonctionne uniquement si je clique dans ma liste et que je ne bouge pas ma souris. Si je la bouge, la sélection change pour revenir à ce que j'ai demandé au départ. Au final ça fonctionne mais je perds encore plus de temps.

Y'a t'il un moyen de solutionner ce problème ( bloquer la souris le temps de l'exécution ou autres?)

Je vous remercie par avance pour votre retour

Private Sub ListCtrl_Click()

Dim valcode As String

val_code = Worksheets("Outil Mineur").Range("J2").Value

Worksheets("Outil Mineur").Activate

Application.EnableEvents = False
Application.ScreenUpdating = False

ActiveSheet.Range("$A$19").AutoFilter Field:=8
ActiveSheet.Range("$A$19").AutoFilter Field:=5, Criteria1:="CRA"
ActiveSheet.Range("$A$19").AutoFilter Field:=9, Criteria1:=val_code

Application.EnableEvents = True
Application.ScreenUpdating = True

ActiveSheet.Range("A1").Select

End Sub

 

[Oranger]

Bonjour,

Ce n'est pas très clair ce que tu cherches à faire... Pourrais tu nous mettre un classeur en pièce jointe? Ton but c'est quoi?

Oranger