Chart ou Sheet?

[Hady]

Bonjour forum!

J'ai un petit soucis. En fait, j'aimerais récupérer le type de la feuille active de mon classeur... Est-ce un chart? ou une sheet?
J'en ai besoin pour effectuer une manipulation... Je ne sais pas vraiment comment faire. Peut-être existe-t-il un type encapsulant chart et sheet?

Merci
Hady, le petit démon :evil:

 

[Sylvain]

Bonsoir,

si je comprend bien tu veux activé une feuille, pour l'activé utilise le code suivant (comme exemple la feuille 22):
Sheets('22').Activate

car chart sert au feuille graphique et Sheets sert a toutes les feuilles

 

[MichelXld]

bonjour Hady , bonjour Sylvain

cette procedure permet de déterminer les noms et les types de feuilles d'un classeur


Sub listerTypesFeuillesClasseur()
Dim i As Integer, j As Integer
Dim typeFeuilles As String
Dim Ch As Chart
Dim Cible As Boolean

For i = 1 To Sheets.Count
j = Sheets(i).Type
typeFeuilles = typeFeuilles & Sheets(i).Name & ' : '

Cible = False
For Each Ch In Charts
If Ch.Name = Sheets(i).Name Then Cible = True
Next Ch

If Cible = True Then
typeFeuilles = typeFeuilles & ' Feuille graphique'
Else

Select Case j
Case xlWorksheet
typeFeuilles = typeFeuilles & ' xlWorksheet'
Case xlChart
typeFeuilles = typeFeuilles & ' xlChart'
Case xlExcel4MacroSheet
typeFeuilles = typeFeuilles & ' xlExcel4MacroSheet'
Case xlExcel4IntlMacroSheet
typeFeuilles = typeFeuilles & ' xlExcel4IntlMacroSheet'
End Select

End If
typeFeuilles = typeFeuilles & vbLf
Next i
MsgBox typeFeuilles
End Sub


bonne soiree
MichelXld