Evénement lors d'un click sur onglet

[Chico64]

Bonsoir A Vous Tous,

Existe-il un événement lorsque l'on clique sur un onglet ?

Merci.
Chico

 

[JCGL]

Re : Evénement lors d'un click sur onglet

Bonjour à tous,

As-tu testé :

Private Sub Worksheet_Activate()

End Sub

A+ à tous

 

[Chico64]

Re : Evénement lors d'un click sur onglet

Merci pour ta réponse.

En fait, je souhaiterais que lorsque je clique sur un onglet la cellule A1 ce colore en une couleur, mais ca ne marche pas

Private Sub Workbook_Activate()
    Range("A1").Select
    With Selection.Interior
        .Pattern = xlSolid
        .PatternColorIndex = xlAutomatic
        .Color = 5296274
        .TintAndShade = 0
        .PatternTintAndShade = 0
    End With
End Sub

Chico.

 

[Roland_M]

Re : Evénement lors d'un click sur onglet

bonsoir

comme l'indique JCGL (que je salut)

à la place de Private Sub Workbook_Activate()
place ceci Private Sub Worksheet_Activate()

ceci dans le code feuille question !

 

[Chico64]

Re : Evénement lors d'un click sur onglet

Merci,

Donc il faut que je colle ce bout de code dans toutes les feuilles dans lesquelles je veux que cet événement se déroule ?

Private Sub Worksheet_Activate()
    Range("A1").Select
    With Selection.Interior
        .Pattern = xlSolid
        .PatternColorIndex = xlAutomatic
        .Color = 5296274
        .TintAndShade = 0
        .PatternTintAndShade = 0
    End With
End Sub

Merci.
Chico

 

[skoobi]

Re : Evénement lors d'un click sur onglet

Bonjour Roland, Chico,

Pas forcément.
Tu peux créer l'événement Private Sub Workbook_SheetActivate(ByVal Sh As Object) dans "ThisWorkbook" mais il faut que les feuilles concernées ne changent pas à moins d'être identifiable facilement.
A te relire.

 

[Chico64]

Re : Evénement lors d'un click sur onglet

Je vous remercie à Tous,

C'est bien l'événement suivant qui faut utiliser

Private Sub Workbook_SheetActivate(ByVal Sh As Object)

Chico.