Excel chaine de caractere

Résolu
amine69500 Messages postés 422 Date d'inscription   Statut Membre Dernière intervention   -  
amine69500 Messages postés 422 Date d'inscription   Statut Membre Dernière intervention   -
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
A voir également:

2 réponses

Réponse 1 / 2
Mytå Messages postés 2973 Date d'inscription   Statut Contributeur Dernière intervention   953
 
Re le forum

Modifie le code comme ceci 
' . . .
For i = 0 To UBound(Chaine)
        If InStr(Chaine(i), "lead") Then
            UserfForm1.ListBox1.AddItem Split(Chaine(i), ",")(0)
        End If
    Next i
' . . .


Mytå
0
Réponse 2 / 2
amine69500 Messages postés 422 Date d'inscription   Statut Membre Dernière intervention   12
 
Bonjour myta et merci

ca marche super j'ai enfin reussi
merci de ton aide

Cordialement
0