concaténation de chaine

  • Initiateur de la discussion Initiateur de la discussion jb
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

J

jb

Guest
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
 
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
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD
Assurez vous de marquer un message comme solution pour une meilleure transparence.

Discussions similaires

Réponses
1
Affichages
2 K
Réponses
0
Affichages
770
J
Réponses
2
Affichages
1 K
J
V
Réponses
2
Affichages
695
V
Retour