Discussion :

[LitteulKevin]

bonjour,

quelqu'un pourrait t'il me dire comment déterminer le type d'une feuille excel c à dire Chart, DialogSheet , Excel4IntlMacroSheet, Excel4MacroSheet et Worksheet.

En effet, dans mon prog, j'ai une boucle qui recherche dans chacune des feuilles du classeur actif certaine formule mais si l'utilisateur insère une feuillle graphique, la fonction de recherche ne fonctionne plus et mon prog pète ( malgrès ma gestion d'erreur d'allieur ). donc si je pouvai déterminer le type, je pourrais ou non faire le traitement.

merci d'avance.

[DarkVader]

Par la propriété Type de l'objet Sheet -
les diverses constantes sont référencées sous excel.XlSheetType

ex

Code :

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

if worksheets("Feuil1").type = excel.XlSheetType.xlWorksheet then

[LitteulKevin]

oui mais sauf erreur de ma part, si tu écris 'worksheets("Feuil1")', le worksheet signifie forcement que la feuille est de type xlWorksheet.
En tout cas, si je fais par exemple un MsgBox Worksheets("toto").Name
et que ma feuille est une DialogSheet et bien ça plante.

[DarkVader]

Sorry, utilises Sheets

Code :

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

if sheets(sheets(1).name).type = excel.XlSheetType.xlWorksheet then

J'ai fait un peu vite pensant que tu te contenterais de l'essentiel !

[LitteulKevin]

soit g du mal soit il y a quelque chose.
mais selon moi, la propriété Type s'applique effectivement a l'objet Worksheet et non à l'objet Sheets donc cela ne fonctionne pas

[DarkVader]

Si, si mais il y a effectivement un bug Excel dans la valeur de la constante xlchart

...................Sheets().type ___________Const ___________ =
Dialogue…………Nom géré.………………xlDialogSheet.………………-4116
Macro_Intl…………4.…………………………xlExcel4IntlMacroSheet………4
Macro…………………3.…………………………xlExcel4MacroSheet……………3
Feuille …………-4167.………………………xlSheet.…………………………-4167
Graphique……-4169.………………………xlChart.…………………………-4109

Donc utilises la valeur plutôt que la constante.

[LitteulKevin]

ok merci

en fait j'avais fait un exemple tout con :

Code :

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

1
2
3
For i = 1 To ActiveWorkbook.Sheets.Count
MsgBox Sheets(i).Type
Next i

et qui donc planter mais cela venais surement du fait que j'avais une feuille dialogue dans mon classeur (xlDialogSheet) car une fois enlever les autres types de feuilles ne posent eux aucun problème. mais vu que apparement la fonction Type n'est pas géré avec ce type de feuille c normal. Faut le savoir quoi.....