Discussion :

[onejock]

Bonjour,

je cherche à recuperer l'onglet sur lequel je suis : quand c'est une feuille de données, pas de problème

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

ActiveSheet

mais quand c'est un chart,

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

ActiveChart

ca ne marche pas trop.

merci...

[fring]

cela reste une Sheet

Sheets englobe toutes les feuilles
Worksheets ne tient compte que des feuilles "normales"

[onejock]

mon probleque est que je veux masquer une feuille en la quittant, qu'elle soit de données ou graphique...
et en mettant sur un onglet graphique :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
 
Private Sub Chart_Deactivate()
    ActiveSheet.Visible = xlSheetVeryHidden
End Sub

si mon onglet source (graphique donc) s'appelle 'S' et celui de destination (data en l'occurance), 'C', en allant sur l'onglet 'C' à partir de 'S', c'est 'C' qui est marqué....

alors
1) pourquoii, c'est pas 'S',
2) comment faire pour que ce soit 'S' ???


Merci.

[tirex28]

Bonjour,

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
Private Sub Chart_Deactivate()
    Me.Visible = xlSheetVeryHidden
End Sub

Cordialement,

Tirex28/

[onejock]

Bonjour,

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
Private Sub Chart_Deactivate()
    Me.Visible = xlSheetVeryHidden
End Sub

Cordialement,

Tirex28/

en fait, c'est un peu plus complexe, il faut que je me souvienne de l'onglet et j'ai pas acces à ce "me" parce que je suis dans une fonction de module (enfin, je crois que c'est pour ca) :

l'appel est le suivant

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
 
Private Sub Chart_Deactivate()
    allerA feuilleGestionDesRisques
End Sub

et le code de la procedure est:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
 
Public Sub allerA(objetCible As Object, Optional hide As Boolean)
    ' on recupere la page courante
    Dim feuilleActuelle As Object
    If TypeOf ActiveSheet Is Chart Then
        Set feuilleActuelle = ActiveChart
'MsgBox ActiveChart.Name & " sera masquée"    '--> ERREUR
    Else
        Set feuilleActuelle = ActiveSheet
    End If
 
 
    ' on affiche la nouvelle page
    objetCible.Visible = xlSheetVisible
    objetCible.Activate
 
 
    ' on masque la précedente si ce n'est pas la page d'acceuil
    If IsMissing(hide) Or hide = True Then
        If feuilleActuelle.Name <> feuilleAccueil.Name Then
'Me.Visible = xlSheetVeryHidden      '--> ERREUR
       '     feuilleActuelle.Visible = xlSheetVeryHidden ' code idéal, mais ne marche pas quand il s'agit d'un onglet chart (c'est la tout le pb..)
        End If
    End If
End Sub

[tirex28]

Re,

Et comme ca:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
Private Sub Worksheet_Deactivate()'Depuis une feuille de calcul
    allerA feuilleGestionDesRisques, Me
End Sub
 
Private Sub Chart_Deactivate()'Depuis un graphique
    allerA feuilleGestionDesRisques, Me
End Sub
 
Public Sub allerA(objetCible As Object, ObjetSource As Object, Optional hide As Boolean)
 
    ' on affiche la nouvelle page
    objetCible.Visible = xlSheetVisible
    objetCible.Activate
 
    ' on masque la précedente si ce n'est pas la page d'acceuil
    If ObjetSource.Name <> feuilleacceuil.Name Then
        ObjetSource.Visible = xlSheetVeryHidden
    End If
 
End Sub

Cordialement,

Tirex28/