Excel chaine de caractere
Résolu
amine69500
Messages postés
471
Statut
Membre
-
amine69500 Messages postés 471 Statut Membre -
amine69500 Messages postés 471 Statut Membre -
Bonjour,
voila j'ai une procedure qui me permet de recuperer quelques données dans une chaine de caractere et me retourner le resultat dans des cellules
je souhaiterais modifier ma procedure pour que le resultat que je recupere soit dans une listbox ou comboBox directement sans placer le resultat dans les cellules.
Ma procedure :
Sub Extraire()
Dim i As Byte, Lig As Byte
Dim Chaine As Variant
Chaine = Split(Replace([A1], """", ""), "name:")
Lig = 2
If UBound(Chaine) = -1 Then Exit Sub
For i = 0 To UBound(Chaine)
If InStr(Chaine(i), "lead") Then
Cells(Lig, 1) = Split(Chaine(i), ",")(0)
Lig = Lig + 1
End If
Next i
End Sub
Merci de votre aide
Cordialement
voila j'ai une procedure qui me permet de recuperer quelques données dans une chaine de caractere et me retourner le resultat dans des cellules
je souhaiterais modifier ma procedure pour que le resultat que je recupere soit dans une listbox ou comboBox directement sans placer le resultat dans les cellules.
Ma procedure :
Sub Extraire()
Dim i As Byte, Lig As Byte
Dim Chaine As Variant
Chaine = Split(Replace([A1], """", ""), "name:")
Lig = 2
If UBound(Chaine) = -1 Then Exit Sub
For i = 0 To UBound(Chaine)
If InStr(Chaine(i), "lead") Then
Cells(Lig, 1) = Split(Chaine(i), ",")(0)
Lig = Lig + 1
End If
Next i
End Sub
Merci de votre aide
Cordialement
