Tronquer une chaine

[malabarbe]

Bonjour,

Comment par Macro tronquer une chaine a partir d'un caractère ?

La chaine :
DULLDUMMAN USA* F.PS. 3 ans

Ce qu'il faudrait :
DULLDUMMAN USA

Merci à vous

 

[Pierrot93]

Re : Tronquer une chaine

Bonjour,

en vba cela pourrait donner ceci, enfin si j'ai bien compris... :

Dim s As String
s = "DULLDUMMAN USA* F.PS. 3 ans"
s = Mid(s, 1, InStr(1, s, "*") - 1)

bon après midi
@+

 

[Guest]

Re : Tronquer une chaine

Bonjour,

si ta chaine est en A1:

=GAUCHE(A1;TROUVE("*";A1)-1)

A+

[Edition]Oups! j'avions point vu PAR MACRO.
Hello Pierrot🙂

 

[Pierrot93]

Re : Tronquer une chaine

Re,
bonjour Hasco🙂

[Edition]Oups! j'avions point vu PAR MACRO.

moi non plus du reste....

 

[YANN-56]

Re : Tronquer une chaine

Bonjour Malabarbe, et à ceux qui passeront par ici.

(Au passage, pense à te raser! 🙂)

En supposant que ta chaine soit en A5 de Feuil1

Private Sub CommandButton1_Click()

Dim SEPARATEUR As Variant
SEPARATEUR = "*"
  
    Worksheets("Feuil1").Cells(7, 1).Value = Left(Worksheets("Feuil1").Cells(5, 1).Value, _
    InStrRev(Worksheets("Feuil1").Cells(5, 1).Value, SEPARATEUR, -1) - 1)
  
End Sub

Et si tu souhaites ne récupérer que les caractères de droite,
je te laisse bosser: Le principe est le même.

Amicalement

Yann

Exemple joint

 

[Pierrot93]

Re : Tronquer une chaine

Re, bonjour Yann

une autre solution ainsi :

Dim s As String
s = "DULLDUMMAN USA* F.PS. 3 ans"
s = Split(s, "*")(0)

@+

 

[YANN-56]

Re : Tronquer une chaine

Bonjour Pierrot,

J'aime bien te croiser, car j'apprends toujours quelque chose avec toi.

C'est quand-même bigrement plus simple!

Amicalement, et Merci à toi.

Yann

 

[malabarbe]

Re : Tronquer une chaine

Bonjour à tous et merci pour vos réponses.

Je n'ai pas pu tester le code car j'ai mal fait le traitement avant !

Voici la chaine de départ :
DULLDUMMAN USA F.PS. 3 ans

Avec le code suivant, si dans la chaine se trouve " F.",
je voudrais insérer un "*" avant " F."

Pour obtenir :
DULLDUMMAN USA* F.PS. 3 ans

Mais ma chaine est tronquée !!!

Strg = Cells(1, 2)
yyy = Mid(Replace(Strg, " F.", "*"), InStr(1, Replace(Strg, " F.", "*"), " ", 1) + 1)

 

[homepyrof53]

Re : Tronquer une chaine

Bonjour

Strg = Cells(1, 2)

strg=replace(Strg," F.","* F.")
strg=replace(Strg,"** F.","* F.")

 

[Pierrot93]

Re : Tronquer une chaine

Re,
peut être comme ceci, mais pas sûr d'avoir bien compris ta demande :

Dim s As String
s = "DULLDUMMAN USA F.PS. 3 ans"
Mid(s, InStr(1, s, "F.") - 1) = "*"

 

[YANN-56]

Re : Tronquer une chaine

Re malabarbe

Tu risques de te heurter à un problème si il y a un autre "F" dans ta chaîne

Sauf si le nombre de caractères est le même derrière ou devant celui concerné.

A voir.

Yann

 

[homepyrof53]

Re : Tronquer une chaine

Ce qui serait bien c'est d'avoir les différents cas que tu peux avoir

DULLDUMMAN USA F.PS. 3 ans
DULLDUMMAN USA * F.PS. 3 ans

..........................
DUDULE FRA * M.PS. 5 ans

..............

 

[malabarbe]

Re : Tronquer une chaine

Ok, grace a vos conseils, cela tourne.

Néanmoins pour tester un ensemble de chaines, quelle
serait la fonction qui me permetrai de savoir si cette
chaine contiens le caractère "*" ?

 

[Pierrot93]

Re : Tronquer une chaine

Re,

essaye ceci :

Dim s As String
s = "DULLDUMMAN USA *F. PS. 3 ans"
If InStr(s, "*") > 0 Then MsgBox "ok * présent"

 

[malabarbe]

Re : Tronquer une chaine

Dernière modif = OK

Merci beaucoup à tous

Bonne fin de journée

@ +