vba : programmer un comportement suite à changement d'onglet

[miguelangelo]

Bonjour à tous,

voilà mon problème,

j'ai un usf qui sélectionne différents onglets de mon fichiers, fait ce que je lui demande de faire, et le fais bien.

cela dit je voudrai que si :
- qq clique sur un onglet différent, que l'usf se ferme
- utilise les touches ctrl + flèche barrée, que l'usf se ferme.

mes question :
- je ne sais pas s'il y a une syntaxe du type on sheets change, mais vraiment manuelle (qui ne concerne pas les lignes de code du type -sheets("xxx").select-

- et aussi quel est l'équivalent de ctrl + fleche barrée en vba

Merci de m'avoir lu et surtout de me comprendre...

 

[Pierrot93]

Re : vba : programmer un comportement suite à changement d'onglet

Bonjour,

essaye peut être ceci, à placer dans le module "thisworkbook", peut être y a t-il lieu de mettre un test sur le nom la feuille... :

Private Sub Workbook_SheetActivate(ByVal Sh As Object)
Unload UserForm1
End Sub

- et aussi quel est l'équivalent de ctrl + fleche barrée en vba

si pour toi c'est page suivante et précédente, essaye peut être ceci :

ActiveSheet.Previous.Select
    ActiveSheet.Next.Select

bonne journée
@+

 

[Hippolite]

Re : vba : programmer un comportement suite à changement d'onglet

Bonjour,

- qq clique sur un onglet différent, que l'usf se ferme

Private Sub Workbook_SheetActivate

- utilise les touches ctrl + flèche barrée, que l'usf se ferme

il faut affecter une macro de fermeture aux touches : Menu Outils/Macros/Macros.../Options

A+

 

[miguelangelo]

Re : vba : programmer un comportement suite à changement d'onglet

merci pour vos réponse :
juste une confirmation an ce qui concerne
"Private Sub Workbook_SheetActivate(ByVal Sh As Object)"
et
"Private Sub Workbook_SheetActivate(ByVal Sh As Object)"

j'ai des macros qui font des allers retours entre les onglets, ca risque de fermer l'usf non ?

 

[Pierrot93]

Re : vba : programmer un comportement suite à changement d'onglet

Re,

c'est pour ce que je disais qu'il y a vait peut être lieu de mettre un test sur le nom de lafeuille, tu peux aussi désactiver ponctuellement les procédures événementielles :

Application.EnableEvents = False
'ton code
Application.EnableEvents = True