[RESOLU] Action dès qu'on est sur un onglet particulier

[richert90]

Bonjour le forum,

Voici ma question:
Est-il possible en VBA d'afficher un message à l'utilisateur à chaque fois qu'il va sur une feuille d'un classeur?
Par exemple dans un fichier, j'ai 5 feuilles, et sur cette dernière, qui est vide à cause d'un traitement, je mets un message à l'utilisateur à chaque fois qu'il clique sur cet onglet pour le lui dire.

Merci d'avance,

 

[Pierrot93]

Re : Action dès qu'on est sur un onglet particulier

Bonjour,

regarde peut être ceci, à placer dans le module de la feuille concenée, click droit sur l'onglet => visualiser le code et tu colles...

Private Sub Worksheet_Activate()
MsgBox Me.Name
End Sub

bonne journée
@+

 

[richert90]

Re : Action dès qu'on est sur un onglet particulier

En effet, c'est exactement ça qu'il me fallait!
Merci 🙂

 

[richert90]

Re : Action dès qu'on est sur un onglet particulier

Re,

Cela marche bien mais il y a malgré tout un petit soucis. En effet, l'onglet sur lequel je veux mettre ce message est supprimé et recrée à chaque ouverture du fichier donc du coup quand j'ouvre le fichier, l'onglet est la mais plus le code associé...
Y a t-il une solution?

 

[Pierrot93]

Re : Action dès qu'on est sur un onglet particulier

Re,

regarde dans le module "thisworkbook" du coté de cet événement :

Option Explicit
Private Sub Workbook_SheetActivate(ByVal Sh As Object)

End Sub

A voir si tu peux tester le nom de la feuille activée (argument sh de la procédure)

 

[richert90]

Re : Action dès qu'on est sur un onglet particulier

Private Sub Workbook_SheetActivate(ByVal Sh As Object)
    If Sheets(1).Cells(1, 10).Value <> "TempCPUoC" Then
        MsgBox ("ok"), vbCritical
    End If
End Sub

Voila le code que j'ai pour le moment.
Mais je n'arrive pas à spécifier une feuille pour laquelle le message s'appliquera...

 

[Pierrot93]

Re : Action dès qu'on est sur un onglet particulier

Re,

en testant le nom de la feuille si toujours le même :

Private Sub Workbook_SheetActivate(ByVal Sh As Object)
If Sh.Name = "nomdelafeuille" Then MsgBox "ok"
End Sub

A voir aussi, si tu peux utiliser le numéro d'index de la feuille, si placée au même endroit...

 

[richert90]

Re : Action dès qu'on est sur un onglet particulier

Niquel merci bien 🙂