[VBA]sortir un nombre d' une string

bonjour,


j ai une string où se trouve plusieurs nombres

je souhaiterai séparer les nombres de la string


mais je sais pas trop comment faire

quelqu un aurait une idée , un lien , un tuto ??

merci ;)

Salut,

Il faudrait nous dire ce qui sépare tes nombres, un espace, une virgule ou autre, quel est ton critère d'éclatage pour donner un piste de recherche, avec un exemple de string et de ce que tu veux en sortir

Starec

Citation:

---

Envoyé par megapacman

bonjour,


j ai une string où se trouve plusieurs nombres

je souhaiterai séparer les nombres de la string


mais je sais pas trop comment faire

quelqu un aurait une idée , un lien , un tuto ??

merci ;)

---

Hello,

Oui, il y a un tuto pour ça ...
Les expressions rationnelles / régulières dans Access par la pratique

Dans la pratique ...
avec un pattern "(\d)" tu récupères uniquement les chiffres ...
avec un pattern "([a-zA-Z])" uniquement les lettres (à adapter en cas d'accents ...)

Ou bien plus simplement la fonction split si un caractère délimite chaque nombre

en fait j ai trouvé ce que je cherchais bon c'est peut-être laborieux mais bon


voila ca donne ca :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40

Sub nbpages() Dim i As Integer Dim mystring As String Dim nblettre As Integer Dim longueur As Integer Dim lettre As String Dim num As Integer mystring = Cells(14, 3).Value mystring = Replace(mystring, " ", "") Debug.Print mystring longueur = Len(mystring) Debug.Print longueur   nblettre = 0   For i = 1 To longueur lettre = Mid(mystring, i, 1) Debug.Print lettre   If IsNumeric(lettre) = True Then   nblettre = nblettre + 1 Debug.Print nblettre   Else   i = longueur   End If   Next i i = 1 num = Mid(mystring, i, nblettre) Debug.Print num   MsgBox (num)   End Sub

---

car en fait j ai plusieurs nombre dans ma string mais moi je veux juste la premiere partie des nombres ;)

reste a passer le num en variable public et le tour est joué


j espere que ca pourra servir a quelqu un d autre on ne sais jamais



merci pour vos reponses

mince il est ou le resolu ?????

Citation:

---

Envoyé par megapacman

mince il est ou le resolu ?????

---

http://cafeine.developpez.com/misc/tagresolu.png

merci cafeine