[VBA] pb graphique avec des variables

Recherche :

Mot : Pseudo : Filtrer
Bas de page
Auteur	Sujet : [VBA] pb graphique avec des variables

baddrive

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 :

Dim nme As String
Dim count
Dim colone As XlColumnDataType
nme = ActiveSheet.Name
For colone = 3 To 50
If Worksheets("Feuil1" ).Cells(2, colone).Value = "" Then
Else: count = count + 1
End If
Next
'On Error Resume Next
MsgBox (count)
count = count - 1
MsgBox (count)
Worksheets("Feuil1" ).Activate
Workbooks("classeur2" ).Activate
range(Cells(2, 3), Cells(2, 3 + count)).Select
Charts.Add
ActiveChart.ChartType = xlLineMarkers
ActiveChart.SetSourceData Source:=Workbooks("classeur2" ).Worksheets("Feuil1" ).range(Cells(2, 3), Cells(2, 3 + count)), PlotBy:= _
xlRows
ActiveChart.Location where:=xlLocationAsObject, Name:="Feuil1"

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

Publicité

baddrive

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 :

Sub Macro1()
Dim My_Sheet As Object, My_Chart As Object
Set My_Sheet = ActiveSheet
Charts.Add
Set My_Chart = ActiveChart
My_Chart.ChartType = xlColumnClustered
My_Sheet.Activate
My_Chart.SetSourceData Source:=Selection.Areas(1), PlotBy:= _
xlRows
My_Chart.Location Where:=xlLocationAsObject, Name:="Feuil1"
Set My_Sheet = Nothing
Set My_Chart = Nothing
End Sub

I :hello:

FORUM HardWare.fr

Programmation

VB/VBA/VBS

[VBA] pb graphique avec des variables

Sujets relatifs
variables	Kit 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 VBA	VBA : 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

Page générée en 0.030 secondes