Traiter de facons différentes les feuilles et les graph pleine page

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

doublenico

XLDnaute Junior
Bonjour à tous,

Je bloque pour écrire un bout de code, je m'explique.
Sur mon classeur, j'installe sur chaque feuille des zones de textes mais selon mes documents, parfois j'ai des graphiques pleines pages qui me font planter ma macro.
En fait je voudrais ecrire dans ma macro (pour le moment sans succès) que si j ai un graph en pleine page de ne pas faire de traitement et de passer à l'autre onglet.
Je n'ai pas trouvé de méthodes pour les graph donc j'ai tenté de provoquer une erreur dans ma macro en prenant une propriete d'un graphique. En gros si
AutoScaling = true(qui n'est dispo que sur un graph, pas sur une feuille) ca veut alors bien dire que je suis sur un graphique pleine page.
Voici mon code :

Code:
For i = 1 To iNbOnglets
    'test pour vérifier s'il s'agit d'un onglet graphique
    On Error Resume Next
    ' on invente une fausse erreur car il n'y a pas de propriete chart pour une feuille
    If Workbooks(strNomFichier).Sheets(1).AutoScaling = True Then
    End If
    If Err <> 0 Then 'alors onglet graphique
      Err.Clear
      ionglet = 1 '1 = graphique
    Else
      ionglet = 0 '0 = feuille standard
    End If
    On Error GoTo 0
    'ne pas installer sur les onglets protégés et sur le mm onglet
    
    If Workbooks(strNomFichier).Sheets(i).ProtectContents = False And i <> iPremierOngletNonProtege Then
      Workbooks(strNomFichier).Sheets(i).Activate
       
      
      Workbooks(strNomFichier).Sheets(i).Range("A1").Select
      ActiveSheet.Paste
      Range("A1").Select
    End If
  Next
End If

Merci d'avance
 
Re : Traiter de facons différentes les feuilles et les graph pleine page

Bonjour Doublenico

plutôt que d'utiliser "sheets" utilises "Worksheets", cela devrait marcher comme tu le veux, enfin j'espère, à tester tout de même.

bon après midi
@+
 
Re : Traiter de facons différentes les feuilles et les graph pleine page

Re

plutôt que de gérer une erreur, je verrais plus un test de ce style :

Code:
Sub test()
Dim x
For Each x In Sheets
If x.Type = 4 Then MsgBox "c'est un graph"
Next x
End Sub

a voir et à tester selon ton fichier.

@+
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

Réponses
4
Affichages
461
Réponses
7
Affichages
163
Retour