Forum |  HardWare.fr | News | Articles | PC | S'identifier | S'inscrire | Shop Recherche
4725 connectés 

 


Dernière réponse
Sujet : VB ChartObjects
Bloodymary_ Dim graph As ChartObjects  
Workbooks("ASNSMD2.xls" ).Activate  
For i = 1 To Sheets.Count  
  sheets(i).select      
  For Each graph In ActiveSheet.ChartObjects  
ce serait pas :
ActiveSheet.graph.activate
ou un truc ds le style ?
 
'     ActiveSheet.ChartObjects(b).Activate  
c koi ton ChartObjects(b) ???
'     toto = ActiveChart.Name  
  Next  
Next

Votre réponse
Nom d'utilisateur    Pour poster, vous devez être inscrit sur ce forum .... si ce n'est pas le cas, cliquez ici !
Le ton de votre message                        
                       
Votre réponse


[b][i][u][strike][spoiler][fixed][cpp][url][email][img][*]   
 
   [quote]
 

Options

 
Vous avez perdu votre mot de passe ?


Vue Rapide de la discussion
Bloodymary_ Dim graph As ChartObjects  
Workbooks("ASNSMD2.xls" ).Activate  
For i = 1 To Sheets.Count  
  sheets(i).select      
  For Each graph In ActiveSheet.ChartObjects  
ce serait pas :
ActiveSheet.graph.activate
ou un truc ds le style ?
 
'     ActiveSheet.ChartObjects(b).Activate  
c koi ton ChartObjects(b) ???
'     toto = ActiveChart.Name  
  Next  
Next
Iria_hime allez sivouplé !!!!
Iria_hime bonjour,
 
g pas mal de pb avec un code VB (genre de temps en temps ca marche et puis tout d'un coup ca marche plus !!). g 1 classeur excell 97 avec 2 feuilles et des graphiques sur chacune.
g besoin de faire des actions sur chacun de ces graphiques donc je dois tous les parcourir.
pour cela je fais :
 
Dim graph As ChartObjects
Workbooks("ASNSMD2.xls" ).Activate
For i = 1 To Sheets.Count
   sheets(i).select      
   For Each graph In ActiveSheet.ChartObjects
      ActiveSheet.ChartObjects(b).Activate
      toto = ActiveChart.Name
   Next
Next
 
mais ca ne fonctionne pas, il me sort "propriété ou méthode non géré par cet objet"
 
g aussi essayé de faire différemment ma 2ème boucle comme ceci :
 
For j = 1 To ActiveSheet.ChartObjects.Count
   ActiveSheet.ChartObjects(b).Activate
   toto = ActiveChart.Name
Next
 
mais ca marche tjs po.
 
si qq aurait une idée ce serait sympa ou un site qui explique bien le fonctionnement de tout ça car je n'ai pas d'aide.
 
merci d'avance !!!:jap:

Copyright © 1997-2025 Groupe LDLC (Signaler un contenu illicite / Données personnelles)