Fonction split ou autre sur chaine de caractere

[treza88]

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é:

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

 

[pierrejean]

Re : Fonction split ou autre sur chaine de caractere

Bonjour treza88

Vois si tu peux t'inspirer de ceci

 

[Modeste]

Re : Fonction split ou autre sur chaine de caractere

Bonjour treza88,

Pourquoi "0" comme délimiteur, si ce sont les espaces qui sont les séparateurs 😕

s = Split([A2], " ")

fonctionne parfaitement (si le texte est en A2)

Si Staple1600 passe par ici, je le salue bien bas, mais accessoirement il te signalera que l'espace étant le délimiteur par défaut, tu peux même écrire

s = Split([A2])

Dans les deux cas, MsgBox s(2) affichera le contenu du 3e élément du tableau (ici, U765)

[Edit:] Salut Pierre 🙂

 

[treza88]

Re : Fonction split ou autre sur chaine de caractere

Merci pierrejean de ta reponse rapide?

Mais il me faut une solution en vba.

désolé je n'avais pas precisé.

 

[CBernardT]

Re : Fonction split ou autre sur chaine de caractere

Bonjour à tous,

Essayer la fonction Split avec la syntaxe suivante :

Sub ConverSplit()
Dim S, txt, aze As String
S = Split(Sheets("Feuil1").Range("A1"), " ")
aze = UCase("argent")
For Each txt In S
If txt = aze Then
MsgBox aze
Exit Sub
End If
Next txt
End Sub

 

[treza88]

Re : Fonction split ou autre sur chaine de caractere

Ok merci Modeste

Et desolé pour le "0" mais j'ai fait tellement d'essaie que je ne n'avais pas vu que j'avais mis une grosse erreur.

il y a t'il une solution pour avoir d'un seul coup tout ce qu'il y a apres le deuxieme espace ou il faut obligatoirement additionner:

s(2) & s(3) & ...

 

[Modeste]

Re : Fonction split ou autre sur chaine de caractere

Re,

Y'a du monde sur ce fil ... on dirait le printemps et les hirondelles 😀

il y a t'il une solution pour avoir d'un seul coup tout ce qu'il y a apres le deuxieme espace ou il faut obligatoirement additionner:

s(2) & s(3) & ...

La réponse est ... chez pierrejean 😉

 

[treza88]

Re : Fonction split ou autre sur chaine de caractere

Donc pas possible en vba, si ce n'est en les additionnant.

C'est bien cela?

 

[Modeste]

Re : Fonction split ou autre sur chaine de caractere

Re²,

Ce n'est pas vraiment d'addition qu'il s'agit, mais plutôt de concaténation 😕 (mais je suppose qu'on est d'accord au-delà du vocabulaire utilisé).

Si on utilise Split, on crée un tableau et dans ce cas -à ma connaissance- il n'y a pas d'autre solution que de boucler jusqu'à la fin du tableau et "d'assembler" les morceaux. Comme les tableaux sont extrêmement rapides, ça ne devrait pas être un gros handicap !?

 

[pierrejean]

Re : Fonction split ou autre sur chaine de caractere

Re

Vois cette version (je crois qu'il y a du Vba ; tu pourras confirmer ? )

 

[pierrejean]

Re : Fonction split ou autre sur chaine de caractere

Re

Autre version:

s = Mid(aze, InStr(InStr(aze, " ") + 1, aze, " "))
MsgBox (s)

NB: Attention : il faut qu'il y ait bien au moins 2 espaces

 

[treza88]

Re : Fonction split ou autre sur chaine de caractere

Merci pierrejean et a vous tous

Avec les solutions que vous m'avez apporté j'ai reussi a concevoir le code dont j'avais besoin et je vais meme pouvoir le faire evoluer.

merci encore

 

[david84]

Re : Fonction split ou autre sur chaine de caractere

Bonsoir,
sûrement pas tout compris mais au cas où :

Function toto(c) As String
toto = Split(Replace(c, " ", "µ", 1, 2), "µ")(2)
End Function

A+