Microsoft 365 exécuter un code en quittant une feuille

[Usine à gaz]

Bon soir à toutes et à tous,

Je bloque encore sur une procédure et malgré mes recherches et essais, je ne trouve pas.

Je suis sur la feuille "CopieAppels" et quand je clic sur un autre Feuille.
Je souhaite que le code de la feuille (ci-dessous) s'exécute :

Private Sub Worksheet_Deactivate()
Application.ScreenUpdating = True
Application.EnableEvents = False
ActiveWindow.DisplayHeadings = False
ActiveSheet.Unprotect Password:="lolo"
    Rows("2:10000").RowHeight = 40
    Range([a2], Cells(Rows.Count, "a").End(xlUp)).Select
ActiveSheet.Protect Password:="lolo", DrawingObjects:=True, Contents:=True, Scenarios:=True
    ActiveSheet.EnableSelection = xlNoRestrictions
ActiveWindow.DisplayHeadings = True
Application.EnableEvents = True
Application.ScreenUpdating = True
End Sub

Mais voilà, je suis déjà sur l'autre feuille et ça bug ..
Pourriez-vous me dire comment modifier mon code ?
Millionième remerciement Merci encore,
Amicalement,
lionel,

 

[Usine à gaz]

Peut-être temporiser le passage à l'autre feuille ?

 

[job75]

Bonsoir Lionel,

Rabaché 1000 fois : pas de Select en VBA !!!

Et probablement des commandes totalement inutiles qui font grossir l'usine à gaz.

A+

 

[Usine à gaz]

LOL c'est vrai 🙂 mais c'est le seul que j'ai mis qui bloque ? 🙂
car ça ne déprotège pas non plus etc.

 

[mapomme]

Re,

Mettez le code suivant dans le module de Feuil1:

Private Sub Worksheet_Deactivate()
   MsgBox ActiveSheet.Name
   MsgBox Me.Name
End Sub

• placez vous sur Feuil1 puis sélectionnez Feuil2 ou Feuil3.
• vous verrez que ActiveSheet désigne la feuille nouvellement sélectionnée
• et que Me désigne la feuille (Feuil1) qu'on vient de quitter

A vous ensuite d'utiliser à bon escient ActiveSheet ou Me.

edit: bonsoir @job75 🙂

 

[Usine à gaz]

Merci Mapomme 🙂
Je vais voir ça

 

[Usine à gaz]

Bsr Gérard, Mapomme,

Voici où j'en suis :

Private Sub Worksheet_Deactivate()
Me.Application.ScreenUpdating = True
Me.Application.EnableEvents = False
'Me.ActiveWindow.DisplayHeadings = False                                 -  POUR L'INSTANT PAS REUSSI POUR CETTE LIGNE
Me.Unprotect Password:="lolo"
Me.Rows("2:60000").RowHeight = 40
'Me.ActiveSheet.Cells(Rows.Count, "a").End(xlUp)(-5).Select         .-  POUR L'INSTANT PAS REUSSI POUR CETTE LIGNE
'Me.ActiveWindow.ScrollRow = Selection.Row                               -  POUR L'INSTANT PAS REUSSI POUR CETTE LIGNE
Me.Protect Password:="lolo", DrawingObjects:=True, Contents:=True, Scenarios:=True
Me.EnableSelection = xlNoRestrictions
'Me.ActiveWindow.DisplayHeadings = True                                   -  POUR L'INSTANT PAS REUSSI POUR CETTE LIGNE
Me.Application.EnableEvents = True
Me.Application.ScreenUpdating = True
End Sub

Je continue mes recherches 🙂
lionel,

 

[Usine à gaz]

Bonjour à toutes et à tous,

Je cherche dans les aides Microsoft et sur le net des infos sur l'utilisation de Me hors UserForm mais je n'ai pas trouvé.
Si quelqu'un a des pistes .....
Merci d'avance,
Bon dimanches,
lionel,

 

[laurent950]

Bonjour,
Mot clé me
https://docs.microsoft.com/fr-fr/office/vba/language/reference/user-interface-help/me-keyword
les autres mots clé :
https://docs.microsoft.com/fr-fr/of...erence/keywords-visual-basic-for-applications

dans votre code ci-dessus :
    - Application.ScreenUpdating = True ................................................................... (doit être à false au début).
    - Me.ActiveSheet.Cells(Rows.Count, "a").End(xlUp)(-5).Select......................(s'écrit : Me.Cells(Rows.Count, "a").End(xlUp)(-5).Select)
ici :
   - Me.Cells(Rows.Count, "a").End(xlUp)(-5).Select                            
   - ActiveWindow.ScrollRow = Selection.Row
      essayer cela :
   - Application.GoTo Me.Cells(Rows.Count, "a").End(xlUp)(-5), Scroll:=True

Laurent

 

[Usine à gaz]

Bonjour Laurent950,
Merci pour m'avoir répondu et tes corrections 🙂
Amicalement,
lionel,