caster un objet

bonjour, j'ai deux questions:

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

Code:

---

If TypeOf objetCible Is Sheets

---

au lieu de

Code:

---

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:

---

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:

---

feuilleCible.Visible = xlVisible

---

mais je viens de trouver pourquoi :

Code:

---

feuilleCible.Visible = xlSheetVisible

---

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

[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:

---

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

bonjour,

tu dois mettre simplement

Code:

---

dim XXX as variant

---

j'oubliais

tu peux aussi faire ça

Code:

---

dim XXX as object

---

merci, pour l'info....:salut: