Décomposition par valeur en VBA

Re : Décomposition par valeur en VBA

Sinon, es t'il possible en modifiant mon enregistrement de macro, pour mon graph

de rajouter les conditions vert jaune et rouge, a l'intérieur
Si c'est réalisable, est t'il possible de me donner les lignes a rajouter.


Merci


"Zizou meilleur joueur du mondial, c'est déja pas mal, un titre de champion du monde, c'est mieu quand meme"

Re : Décomposition par valeur en VBA

Est t'il possible de modifier les données d'un enregistrement de macro

Pour mettre une donnée tel que

Prendre les valeurs de G5:Gi

i étant le nombre d'itération de mon programme de calcul

à la place d'une plage de valeur de G5:G94

Est t'il possible de prendre en compte jusqu'a la valeur i

Merci

Re : Décomposition par valeur en VBA

Bonjour baptiste

Tu es avare en informations sur ton problème.
Donne plus d'explications, transmet le bout de code obtenu avec l'enregistreur, et tu auras certainement de l'aide.

@+Jean-Marie

Re : Décomposition par valeur en VBA

Voila l'enregistrement d'un de mes graphiques.
Comment ajouter la condition jusqu'a "i"
et mettre un code couleur suivant différente plage de valeur

Nombre d'Entry par période de 1 minute
Charts.add
ActiveChart.ChartType = xlColumnClustered
ActiveChart.SetSourceData Source:=Sheets("Feuil1").Range("G5:G94,K5:K94"), _
PlotBy:=xlColumns
ActiveChart.Location Where:=xlLocationAsNewSheet
With ActiveChart
.HasTitle = True
.ChartTitle.Characters.Text = "Entry (Step 1min)"
.Axes(xlCategory, xlPrimary).HasTitle = True
.Axes(xlCategory, xlPrimary).AxisTitle.Characters.Text = "Time"
.Axes(xlValue, xlPrimary).HasTitle = True
.Axes(xlValue, xlPrimary).AxisTitle.Characters.Text = "Nb Entry"
End With
ActiveChart.SeriesCollection(1).Select
With ActiveChart.ChartGroups(1)
.Overlap = 100
.GapWidth = 0
.HasSeriesLines = False
.VaryByCategories = False
End With
Sheets("Feuil1").Select


Dans une autre macro j'utilise cette donnée

'Saisie du nombre d'itération de la boucle
Do
i = InputBox("Indiquez le nombre de minutes, de 1 à 256", "Nombre de minutes", 90)
Loop Until (Val(i) > 0) And (Val(i) < 257)

que je veu réutiliser por déterminer jusqu'a i, voila

Re : Décomposition par valeur en VBA

J'ai maintenant un programme qui tourne
Merci Sylvain

Sub lancerGraphiques()

'lancer graphiques
Dim VarGraphNumb As Byte
Dim varNomGraph As String
Dim i As Variant

'Saisie du nombre d'itération de la boucle
Do
i = InputBox("Indiquez le nombre de valeurs à calculer de 1 à 256", "Nombre de valeurs", 90)
Loop Until (Val(i) > 0) And (Val(i) < 257)

'créer les graphiques
For VarGraphNumb = 1 To 4
Sheets("Feuil1").Select
varNomGraph = Cells(1, 10 + VarGraphNumb).Value
Charts.add
ActiveChart.ChartType = xl3DColumnClustered

ActiveChart.SeriesCollection(1).Delete
ActiveChart.SeriesCollection.NewSeries
ActiveChart.SeriesCollection(1).XValues = "=Feuil1!R5C7:R" & i + 4 & "C7"
ActiveChart.SeriesCollection(1).Values = "=Feuil1!R5C" & VarGraphNumb + 10 & ":R" & i + 4 & "C" & VarGraphNumb + 10
ActiveChart.SeriesCollection(1).Name = varNomGraph

With ActiveChart
.HasTitle = True
.ChartTitle.Characters.Text = varNomGraph
.Axes(xlCategory).HasTitle = True
.Axes(xlCategory).AxisTitle.Characters.Text = "Temps"
.Axes(xlSeries).HasTitle = False
.Axes(xlValue).HasTitle = False
On Error Resume Next
.Name = varNomGraph
.Deselect
On Error GoTo 0
End With
continuer:
Next VarGraphNumb

End Sub

Par contre, j'ai un petit problème dessus
For VarGraphNumb = 1 To 4
si je modifie la valeur, et que je passe a 10, sa marche très bien
mais le programme, me trace les graphes de toute les colonnes se trouvant jusqu'a 10

Comment ne prendre en compte, que les colonnes que je veu
pour l'instant j'ai de K à M
mais je voudrais aussi les colonnes P,T et V

Et comment ajouter les données
Profondeur intervalle 0
Largeur intervalle 0
Profondeur graphique 200

Et bien sur la mise en couleur selon plage de valeur
vert si <6
jaune si <10
rouge si >=10

merci