Discussion :

[onejock]

bonjour, j'ai deux questions:

(la question 1 a été supprimée, y avait juste une faute :

Code :

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

If TypeOf objetCible Is Sheets

au lieu de

Code :

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

If TypeOf objetCible Is Worksheet

)


2) j'aurais aimer faire un peu plus de factorisation de code mais j'ai une erreur sur la deuxieme ligne en gras

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
Public Sub allerA(objetCible As Object)
    ' on recupere la page courante
    Dim feuilleActuelle As Worksheet
    Set feuilleActuelle = ThisWorkbook.ActiveSheet
    ' on cast la cible feuille/graph
    If TypeOf objetCible Is Worksheet Then
        Dim feuilleCible As Worksheet
    Else
        Dim feuilleCible As Chart
    End If
    Set feuilleCible = objetCible
    feuilleCible .Visible = xlVisible
    feuilleCible .Activate
    feuilleActuelle.Visible = xlVeryHidden
End Sub

visiblement le pré-compilateur, parse mon code avant pour faire toutes les declarations MEME celles qui se trouvent dans des blocs jamais executés
// fin question 2

3) autre chose j'ai également un probleme sur :

Code :

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

feuilleCible.Visible = xlVisible

mais je viens de trouver pourquoi :

Code :

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

feuilleCible.Visible = xlSheetVisible

...
il reste finalement que le 2) à resoudre

[onejock]

[bon ben je vais me repondre pour la question 2 , ca pourra servir a quelqu'un : il y a aucun interet à caster... du coup je laisse le tout en object :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
 
Public Sub allerA(objetCible As Object)
    ' on recupere la page courante
    Dim feuilleActuelle As Worksheet
    Set feuilleActuelle = ThisWorkbook.ActiveSheet
 
    ' on cast la cible feuille/graph
    objetCible .Visible = xlVSheetVisible
    objetCible .Activate
    feuilleActuelle.Visible = xlSheetVeryHidden
End Sub

Merci quand même, sujet résolu

[mayekeul]

bonjour,

tu dois mettre simplement

Code :

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

dim XXX as variant

j'oubliais

tu peux aussi faire ça

Code :

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

dim XXX as object

[onejock]

merci, pour l'info....