Problème macro Tri + SelectionChange

[Arnaud61]

Bonjour,

Alors voilà, dans mon fichier j'utilise cette macro pour afficher une feuille si je clique sur une cellule comprise entre "A6" et "A1000":

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

If Not Application.Intersect(Target, Range("A6: A1000")) Is Nothing Then Userform1.Show

End Sub

Le problème c'est que j'ai une autre fonction qui me sélectionne les cellules entre "A6" et "A1000"

Celle-ci:

Private Sub Workbook_Open()

Range("A6:EE1000").Select
Selection.Sort Key1:=Range("C6"), Key2:=Range("D6"), Order1:=xlAscending
Range("A1").Select

End Sub

Donc quand j'ouvre mon fichier ça m'affiche directement mon userform1...

Y'a-t-il un moyen pour éviter cela?

Une macro pour désactiver mon "Worksheet_SelectionChange" ?

Merci

 

[wilfried_42]

Re : Problème macro Tri + SelectionChange

Bonjour arnaud

Private Sub Workbook_Open()
application.enableevents = false
Range("A6:EE1000").Select
Selection.Sort Key1:=Range("C6"), Key2:=Range("D6"), Order1:=xlAscending
Range("A1").Select
application.enableevents = true
End Sub

 

[Arnaud61]

Re : Problème macro Tri + SelectionChange

Nickel, pour le workbookopen ça fonctionne!

Le soucis c'est que j'utilise un bouton qui fait la même chose que mon workbookopen et ça ne fonctionne pas avec le bouton...

Private Sub CommandButton1_Click()
Application.EnableEvents = False
Range("A6:EE1000").Select
Selection.Sort Key1:=Range("C6"), Key2:=Range("D6"), Order1:=xlAscending, Order2:=xlAscending
Range("A1").Select
Application.EnableEvents = True

End Sub

 

[wilfried_42]

Re : Problème macro Tri + SelectionChange

re

essaye !

ennableevents joue sur les macros evennementielles

on les bloque avec false pour qu'elles ne soient pas lancées
on le reactive avec true

 

[Arnaud61]

Re : Problème macro Tri + SelectionChange

Je viens de refaire la manip... ça fonctionne...

😕

Merci beaucoup!!!