Bonjour
Débutant en macro j'ai besoin de votre aide
Je souhaite avoir un code qui permet de tester si la cellule est vide, si pas vide alors continuer "debut instructions"
et si vide tester autre celulle
Tester de L30 à L37
+ simplement je souhaite avoir un code qui permet de créer uniquement des series graphiques qui ne sont pas vides
Ci-dessous le code dans les grandes lignes
Declaration Var-----------------------------------------------------------------------------------------------------------------------
Dim Lignes As Integer, i As Integer, X As Integer
Lignes = 0
i = 2
X = 0
Boucle conditionnel----------------------------------------------------------------------------------------------------------------------------
For X = 30 To 37
VI = Worksheets("DONNEES-GRAPH").Cells(X, 12)
If VI <> " " Then
End If
Next
Debut instructions'---------------------------------------------------------------------------------------------------------------------
For Lignes = 30 To 37---------------
ActiveChart.SeriesCollection.NewSeries
ActiveChart.SeriesCollection(i).Name = "='DONNEES-GRAPH'!$J$" & Lignes
ActiveChart.SeriesCollection(i).XValues = "='DONNEES-GRAPH'!$L$" & Lignes & ":$M$" & Lignes
ActiveChart.SeriesCollection(i).Values = "='DONNEES-GRAPH'!$N$" & Lignes & ":$O$" & Lignes
Fin instruction-----------------------------------------------------
End With
i = i + 1
Next
End Sub
Merci bcp
Débutant en macro j'ai besoin de votre aide
Je souhaite avoir un code qui permet de tester si la cellule est vide, si pas vide alors continuer "debut instructions"
et si vide tester autre celulle
Tester de L30 à L37
+ simplement je souhaite avoir un code qui permet de créer uniquement des series graphiques qui ne sont pas vides
Ci-dessous le code dans les grandes lignes
Declaration Var-----------------------------------------------------------------------------------------------------------------------
Dim Lignes As Integer, i As Integer, X As Integer
Lignes = 0
i = 2
X = 0
Boucle conditionnel----------------------------------------------------------------------------------------------------------------------------
For X = 30 To 37
VI = Worksheets("DONNEES-GRAPH").Cells(X, 12)
If VI <> " " Then
End If
Next
Debut instructions'---------------------------------------------------------------------------------------------------------------------
For Lignes = 30 To 37---------------
ActiveChart.SeriesCollection.NewSeries
ActiveChart.SeriesCollection(i).Name = "='DONNEES-GRAPH'!$J$" & Lignes
ActiveChart.SeriesCollection(i).XValues = "='DONNEES-GRAPH'!$L$" & Lignes & ":$M$" & Lignes
ActiveChart.SeriesCollection(i).Values = "='DONNEES-GRAPH'!$N$" & Lignes & ":$O$" & Lignes
Fin instruction-----------------------------------------------------
End With
i = i + 1
Next
End Sub
Merci bcp