Macro en quittant un onglet
Résolu
fadmaam
Messages postés
35
Statut
Membre
-
fadmaam Messages postés 35 Statut Membre -
fadmaam Messages postés 35 Statut Membre -
Bonjour,
Je souhaiterais faire tourner une macro lorsque je quitte un onglet. Actuellement la macro tourne dès que je modifie une cellule et ça prend donc bcp de temps.
Voici le code que j'ai actuellement:
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Row = 1 Then Exit Sub
Valeur = Target
If Application.Intersect(Columns("A:C"), Target) Is Nothing Then Exit Sub 'si le changement a lieu ailleurs que dans les colonnes A, B ou C, sort de la procédure
Range("A2:AZ500").Select
Selection.Sort Key1:=Range("A2"), Order1:=xlAscending, Key2:=Range("C2") _
, Order2:=xlAscending, Header:=xlGuess, OrderCustom:=1, MatchCase:= _
False, Orientation:=xlTopToBottom, DataOption1:=xlSortNormal, DataOption2 _
:=xlSortNormal
Set c = Columns("A:AZ").Find(Valeur, LookIn:=xlValues)
c.Select
End Sub
J'ai essayé avec la fonction "deactivate" (en gardant juste la partie "Range... -> normal") mais ça ne fonctionne pas. Je présume que c'est parce qu'il faut préciser dans quel onglet il faut sélectionner les données à trier mais je ne sais pas comment faire...
Merci d'avance pour votre aide...
Cordialement,
FadY
Je souhaiterais faire tourner une macro lorsque je quitte un onglet. Actuellement la macro tourne dès que je modifie une cellule et ça prend donc bcp de temps.
Voici le code que j'ai actuellement:
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Row = 1 Then Exit Sub
Valeur = Target
If Application.Intersect(Columns("A:C"), Target) Is Nothing Then Exit Sub 'si le changement a lieu ailleurs que dans les colonnes A, B ou C, sort de la procédure
Range("A2:AZ500").Select
Selection.Sort Key1:=Range("A2"), Order1:=xlAscending, Key2:=Range("C2") _
, Order2:=xlAscending, Header:=xlGuess, OrderCustom:=1, MatchCase:= _
False, Orientation:=xlTopToBottom, DataOption1:=xlSortNormal, DataOption2 _
:=xlSortNormal
Set c = Columns("A:AZ").Find(Valeur, LookIn:=xlValues)
c.Select
End Sub
J'ai essayé avec la fonction "deactivate" (en gardant juste la partie "Range... -> normal") mais ça ne fonctionne pas. Je présume que c'est parce qu'il faut préciser dans quel onglet il faut sélectionner les données à trier mais je ne sais pas comment faire...
Merci d'avance pour votre aide...
Cordialement,
FadY
2 réponses
-
Bonjour,
Le code avec Deactivate devrait marcher mais effectivement, il faut alors préciser dans quel onglet on l'exécute. Donc je procéderais comme cela :
Private Sub Worksheet_Deactivate() Dim Valeur As String 'Valeur = Target : il va falloir changer cette donnée car en quittant l'onglet, il est évident que la 'target' ne sera pas la bonne cellule. 'pour pallier à ce problème, je vous propose ce code : Valeur = InputBox("Tapez le nom de la valeur à rechercher :") If InputBox = "" Then MsgBox("Aucune saisie.") Exit Sub End If Sheets("le nom de votre feuille").Range("A2:AZ500").Select Selection.Sort Key1:=Sheets("le nom de votre feuille").Range("A2"), Order1:=xlAscending, Key2:=Sheets(le nom de votre feuille").Range("C2") _ , Order2:=xlAscending, Header:=xlGuess, OrderCustom:=1, MatchCase:= _ False, Orientation:=xlTopToBottom, DataOption1:=xlSortNormal, DataOption2 _ :=xlSortNormal Set c = Sheets("le nom de votre feuille").Columns("A:AZ").Find(Valeur, LookIn:=xlValues) Sheets("le nom de votre feuille").c.Select End Sub
Cordialement.-
Bonjour Kuartz,
Merci pour votre réponse.
J'ai corrigé le code et voici ce que ça donne :
Private Sub Worksheet_Deactivate()
Sheets("Contract Portfolio").Range("A2:AZ250").Select
Selection.Sort Key1:=Sheets("Contract Portfolio").Range("A2"), Order1:=xlAscending, _
Key2:=Sheets("Contract Portfolio").Range("C2"), Order2:=xlAscending, Header:=xlGuess, OrderCustom:=1, _
MatchCase:=False, Orientation:=xlTopToBottom, DataOption1:=xlSortNormal, DataOption2:=xlSortNormal
End Sub
J'ai enlevé le reste car en fait ça ne sert plus à grand chose si on quitte l'onglet...
Par contre, j'ai un message d'erreur :"Select method of Range clas failed".
Désolé, je ne suis vraiment pas doué :-(
FadY -
Bonjour michel_m,
J'espère que vous n'êtes pas en colère contre moi...
fadmaam, vous auriez dû prêter attention à la réponse de michel_m.
Ce qui plante sur le code, c'est la ligne :
Sheets("Contract Portfolio").Range("A2:AZ250").Select
Et pour cause, vous sélectionnez des cellules d'une feuille où vous n'êtes pas.
Le code modifié et fonctionnel :
Private Sub Worksheet_Deactivate() Sheets("Contract Portfolio").Range("A2:AZ250").Sort Key1:=Sheets("Contract Portfolio").Range("A2"), Order1:=xlAscending, _ Key2:=Sheets("Contract Portfolio").Range("C2"), Order2:=xlAscending, Header:=xlGuess, OrderCustom:=1, _ MatchCase:=False, Orientation:=xlTopToBottom, DataOption1:=xlSortNormal, DataOption2:=xlSortNormal End Sub
Cordialement. -
-
-
Bonjour
SUPPRIME SUITE A ATTITUDE DEDAIGNEUSE DE FADMANN
Michel
