Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

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

capc93

XLDnaute Junior
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

Code:
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
 
Dernière édition:

Discussions similaires

Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…