[VBA] pb graphique avec des variables

pb graphique avec des variables [VBA] - VB/VBA/VBS - Programmation

Marsh Posté le 21-02-2006 à 10:29:49    

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
  5. nme = ActiveSheet.Name
  7. For colone = 3 To 50
  8.     If Worksheets("Feuil1" ).Cells(2, colone).Value = "" Then
  9.         Else: count = count + 1
  10.         End If
  11. Next
  13. 'On Error Resume Next
  15. MsgBox (count)
  16. count = count - 1
  17. MsgBox (count)
  18. Worksheets("Feuil1" ).Activate
  19. Workbooks("classeur2" ).Activate
  20. range(Cells(2, 3), Cells(2, 3 + count)).Select
  24.  
  25.     Charts.Add
  26.     ActiveChart.ChartType = xlLineMarkers
  27.     ActiveChart.SetSourceData Source:=Workbooks("classeur2" ).Worksheets("Feuil1" ).range(Cells(2, 3), Cells(2, 3 + count)), PlotBy:= _
  28.         xlRows
  29.    
  30.     ActiveChart.Location where:=xlLocationAsObject, Name:="Feuil1"


Message édité par baddrive le 21-02-2006 à 15:49:57
Reply

Marsh Posté le 21-02-2006 à 10:29:49   

Reply

Marsh Posté le 21-02-2006 à 15:52:34    

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()
  3. Dim My_Sheet As Object, My_Chart As Object
  5.     Set My_Sheet = ActiveSheet
  6.    
  7.     Charts.Add
  8.     Set My_Chart = ActiveChart
  9.    
  10.     My_Chart.ChartType = xlColumnClustered
  11.     My_Sheet.Activate
  12.     My_Chart.SetSourceData Source:=Selection.Areas(1), PlotBy:= _
  13.         xlRows
  14.     My_Chart.Location Where:=xlLocationAsObject, Name:="Feuil1"
  16.     Set My_Sheet = Nothing
  17.     Set My_Chart = Nothing
  19. End Sub


 
I :hello:  
 

Reply

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed