Evénement lors d'un click sur onglet

JCGL

XLDnaute Barbatruc

• 2 Mars 2009

• #2

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

Bonjour à tous,

As-tu testé :

Code:

Private Sub Worksheet_Activate()

End Sub

A+ à tous

 

Vote positif 0 Vote négatif

C

Chico64

Guest

• 2 Mars 2009

• #3

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

Code:

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.

 

Vote positif 0 Vote négatif

Roland_M

XLDnaute Barbatruc

• 2 Mars 2009

• #4

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 !

 

Vote positif 0 Vote négatif

C

Chico64

Guest

• 2 Mars 2009

• #5

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 ?

Code:

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

 

Vote positif 0 Vote négatif

skoobi

XLDnaute Barbatruc

• 2 Mars 2009

• #6

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.

 

Vote positif 0 Vote négatif

C

Chico64

Guest

• 3 Mars 2009

• #7

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

Je vous remercie à Tous,

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

Code:

Private Sub Workbook_SheetActivate(ByVal Sh As Object)

Chico.

 

Vote positif 0 Vote négatif