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

  FORUM HardWare.fr
  Programmation
  VB/VBA/VBS

  [VBA] pb graphique avec des variables

 


 Mot :   Pseudo :  
 
Bas de page
Auteur Sujet :

[VBA] pb graphique avec des variables

n°1310310
baddrive
Posté le 21-02-2006 à 10:29:49  profilanswer
 

Salut,
 
  J'ai un problème de type la méthode 'cells' de l'objet global a échoué sur la ligne 27. alors que la ligne 20 marche très bien, c'est avec le sourcedata que ca marche pas. Sachant que si je met  On Error Resume Next ca me créer mon graphe avec les bonnes valeurs, mais bon il y a quand meme une erreur :s .
 
 

Code :
  1. Dim nme As String
  2. Dim count
  3. Dim colone As XlColumnDataType
  4. nme = ActiveSheet.Name
  5. For colone = 3 To 50
  6.     If Worksheets("Feuil1" ).Cells(2, colone).Value = "" Then
  7.         Else: count = count + 1
  8.         End If
  9. Next
  10. 'On Error Resume Next
  11. MsgBox (count)
  12. count = count - 1
  13. MsgBox (count)
  14. Worksheets("Feuil1" ).Activate
  15. Workbooks("classeur2" ).Activate
  16. range(Cells(2, 3), Cells(2, 3 + count)).Select
  17.  
  18.     Charts.Add
  19.     ActiveChart.ChartType = xlLineMarkers
  20.     ActiveChart.SetSourceData Source:=Workbooks("classeur2" ).Worksheets("Feuil1" ).range(Cells(2, 3), Cells(2, 3 + count)), PlotBy:= _
  21.         xlRows
  22.    
  23.     ActiveChart.Location where:=xlLocationAsObject, Name:="Feuil1"


Message édité par baddrive le 21-02-2006 à 15:49:57
mood
Publicité
Posté le 21-02-2006 à 10:29:49  profilanswer
 

n°1310762
baddrive
Posté le 21-02-2006 à 15:52:34  profilanswer
 

J'ai trouvé une astuce sur le forum. Vu que j'arrive a sélectionner avant il n'y a pas de problème.
 

Code :
  1. Sub Macro1()
  2. Dim My_Sheet As Object, My_Chart As Object
  3.     Set My_Sheet = ActiveSheet
  4.    
  5.     Charts.Add
  6.     Set My_Chart = ActiveChart
  7.    
  8.     My_Chart.ChartType = xlColumnClustered
  9.     My_Sheet.Activate
  10.     My_Chart.SetSourceData Source:=Selection.Areas(1), PlotBy:= _
  11.         xlRows
  12.     My_Chart.Location Where:=xlLocationAsObject, Name:="Feuil1"
  13.     Set My_Sheet = Nothing
  14.     Set My_Chart = Nothing
  15. End Sub


 
I :hello:  
 


Aller à :
Ajouter une réponse
  FORUM HardWare.fr
  Programmation
  VB/VBA/VBS

  [VBA] pb graphique avec des variables

 

Sujets relatifs
variablesKit graphique de ma création, problème.
Passer des variables Javasceipt dans du php[Excel][VBA][ODBC] Connexion SQL Server
exporter des tables Access en VBAVBA : Fonction Dir et attributs.
Utiliser un autre compte mail que celui par défaut avec VBA sous Excel[Algo] Axes d'un graphique
Apprendre VBA access sans JAMAIS avoir fait de prog?suppression symbole bouton mc graphique
Plus de sujets relatifs à : [VBA] pb graphique avec des variables


Copyright © 1997-2022 Hardware.fr SARL (Signaler un contenu illicite / Données personnelles) / Groupe LDLC / Shop HFR