concaténation de chaine

[jb]

salut ,
J ai un petit probleme.
Dans ma feuille excel contenant des séries de donnees , j aimerai a partir d un userform creer des chaines suivant mes checkbox cochés et ensuite concatener ses chaines pour faire un recherche des noms des series.
desole je m exprime mal , je vous donne un exemple:


Private Sub OptionButton1_Click() 'cas des surfaces semées
Dim op As String 'chaine sur l operation surface semees
op = "SS" 'code SS
ActiveChart.ChartArea.Clear
Dim MonGraphe As Chart, MaPlage As Range
Dim i As Long
Dim j As Long
Dim l As Long
Dim nb As Long
Dim x As Long
Dim lg As Long
Dim y As Long
Dim taille As Long

taille = 55 'nombre se séries de la feuille
Dim elim As Long
elim = 1
Set MaPlage = Excel.Range(Cells(1, 1), Cells(10, taille))
Set MonGraphe = ThisWorkbook.Charts.Add
MonGraphe.ChartType = xlLine
MonGraphe.SetSourceData MaPlage, xlColumns
ActiveChart.Location Where:=xlLocationAsObject, Name:="arf0"



If CheckBox1 Then 'blé 'si ce checkbox est coché alors
Dim cer As String 'creation de ma chaine

cer = "BL" 'le code sera BL pour Ble

For l = 1 To MaPlage.Columns.Count
If ActiveChart.SeriesCollection(l).Name = & "=" & "op" & "cer" & "ARF0" Then
x = l + 1 'je recherche ma chaine qui est SSBLEARF0 mais
'le = & "=" & "op" & "cer" & "ARF0" ne marche pas aidez moi
Exit For

 

[Jon]

bonjour

si tu concatènes des chaînes et des variables il faut faire comme suit :

lheure=time
msgbox "il est " & format(lheure,"hh:mm")

en l'espèce ty peux faire
If ActiveChart.SeriesCollection(l).Name = "op" & cer & "ARF0" Then

si la série s'appelle opXXXXXXARFO

 

[jb]

merci jon mais ca ne marche pas , ca me met le message d erreur suivant : la methode seriescollection de l objet Chart a echouée........

Je ne sais plus du tou comment faire.