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
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: