Excel chaine de caractere

Résolu/Fermé
amine69500 Messages postés 418 Date d'inscription lundi 8 juin 2009 Statut Membre Dernière intervention 25 août 2013 - 11 sept. 2012 à 17:52
amine69500 Messages postés 418 Date d'inscription lundi 8 juin 2009 Statut Membre Dernière intervention 25 août 2013 - 12 sept. 2012 à 12:40
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

2 réponses

Mytå Messages postés 2969 Date d'inscription mardi 20 janvier 2009 Statut Contributeur Dernière intervention 20 décembre 2016 926
11 sept. 2012 à 18:26
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
amine69500 Messages postés 418 Date d'inscription lundi 8 juin 2009 Statut Membre Dernière intervention 25 août 2013 12
Modifié par amine69500 le 12/09/2012 à 12:42
Bonjour myta et merci

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

Cordialement
0