Discussion :

[zoumzoum59]

Bonjour a tous

je cherche comment récupérer les caractères après le deuxième espace de cette chaine, j'ai cherché differente solutions mais rien ne fonctionne.

Ma chaine :

19 EGGER U765 GRIS ARGENT ST15

j'ai essayé:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
Dim s As Variant
 Dim aze As String
 aze = "a r"
s = split(aze, "0")
MsgBox s

mais la fonction split n'est pas reconnu

quelqu'un a une idée?

merci d'avance

[boisgontierjacques]

Bonjour,

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
 
Dim s As Variant
Dim aze As String
aze = "a r"
s = split(aze, " ")
For i=lbound(s) to Ubound(s)
  MsgBox s(i)
Next i

Jacques Boisgontier

[kiki29]

Salut, kif kif

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
Option Explicit
 
Sub Tst()
Dim i As Long
Dim str As String, Ar() As String
 
    str = "19 EGGER U765 GRIS ARGENT ST15"
    Ar = Split(str, " ")
    For i = LBound(Ar) To UBound(Ar)
        Debug.Print Ar(i)
    Next i
End Sub

[zoumzoum59]

Merci a vous pour le coup de pouce.

C'est tout a fait ce qu'il me fallait.

Encore merci.

[Marc-L]

Bonjour.

je cherche comment récupérer les caractères après le deuxième espace de cette chaine : 19 EGGER U765 GRIS ARGENT ST15

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
Sub Demo()
       SP = Split("19 EGGER U765 GRIS ARGENT ST15")
    SP(0) = ""
    SP(1) = ""
    MsgBox LTrim(Join(SP))
End Sub

__________________________________________________________________________________________________
Tous unis, tous Charlie