Bonjour au forum,
J'aurai besoin d'une petite aide concernant ce problème :
Je désire mettre sous un format particulier une série sur un graphique "Nuage de point" en fonction d'une condition spécifiée dans le tableau de donnée.
J'ai déja un début de code (qui peut aider, à moins que je sois parti sur la mauvaise piste) mais j'ai du mal encore à comprendre comment je fais le lien entre la condition et la sélection de la série en question sur le graphique.
Je vous joins le fichier pour plus d'explication
Je vous remercie pour votre aide !
à bientôt
PS : Si je ne suis pas clair, merci de me le faire remarquer et je répondrai au plus vite à vos questions,
J'aurai besoin d'une petite aide concernant ce problème :
Je désire mettre sous un format particulier une série sur un graphique "Nuage de point" en fonction d'une condition spécifiée dans le tableau de donnée.
J'ai déja un début de code (qui peut aider, à moins que je sois parti sur la mauvaise piste) mais j'ai du mal encore à comprendre comment je fais le lien entre la condition et la sélection de la série en question sur le graphique.
Je vous joins le fichier pour plus d'explication
Je vous remercie pour votre aide !
à bientôt
PS : Si je ne suis pas clair, merci de me le faire remarquer et je répondrai au plus vite à vos questions,
Code:
Sub Macrocouleur()
Dim x As Integer
Dim maval As String, plage As Range
For x = 1 To 60
For i = 2 To Range("F65535").End(xlUp).Row
If Cells(i, 6) = "1" Then
ActiveChart.SeriesCollection(x).Select
With Selection.Format.Fill
.Visible = msoTrue
.ForeColor.RGB = RGB(255, 0, 0)
.Transparency = 0
.Solid
End With
End If
Next i
Next x
End Sub