Couper une chaine

[malabarbe]

Bonjour,

Je voudrais couper une chaine en deux
tout en supprimant 2 caractères

la chaine :
"ANGELIQUE *DUVAL"

J'utilise :

Instr ="ANGELIQUE *DUVAL"
If InStr(yyy, "*") > 0 Then
    yyy = Mid(yyy, 1, InStr(1, yyy, "*") - 1)
    Cells(I, 2) = yyy
End If

Dans I,2 je récupère bien ANGELIQUE

Mais dans I,3 je voudrais récupérer DUVAL

C'est a dire la partie tronquée mais sans l'espace
et sans l'astérix.

Je n'ai pas trouvé la manip !

 

[youky(BJ)]

Re : Couper une chaine

Salut,
MsgBox Split("ANGELIQUE *DUVAL", "*")(0)
donne. . .ANGELIQUE
MsgBox Split("ANGELIQUE *DUVAL", "*")(1)
donne DUVAL

Bruno

 

[Dull]

Re : Couper une chaine

Salut malabarbe, le Forum

Peut-être comme cela

Nom = "ANGELIQUE *DUVAL"
If InStr(Nom, "*") > 0 Then
    yyy = Mid(Nom, 1, InStr(1, Nom, "*") - 2)
    Cells(I, 2) = yyy
    Cells(1, 3) = Mid(Nom, InStr(1, Nom, "*") + 1)
End If

A Tester
EDITION: Salut youky(BJ), Hi Ges 🙂

Très mauvaise idée d'appeler une variable, un objet ,une fonction ou une procédure du nom d'un mot clef VB:

Ouais...caca, Pas beau, vilain Bref...aneplusrefaire😀
Bonne Journée

 

[Guest]

Re : Couper une chaine

bonjour,

Très mauvaise idée d'appeler une variable, un objet ,une fonction ou une procédure du nom d'un mot clef VB:

Instr ="ANGELIQUE *DUVAL" ("caca🙁")

Dim pos as integer
Dim chaine as string
Chaine="ANGELIQUE *DUVAL"
Pos=instr(Chaine,"*")
if pos > 0 Then
    cells(I,2)=trim(left( Chaine,pos- 1))      
    Cells(I, 3) = Right(Chaine,Len(Chaine)-pos)
End If

A+

[Edition] Hello Dull🙂🙂
Salut Youki

 

[malabarbe]

Re : Couper une chaine

Merci pour vos réponses

Pour Hasco :
Désolé pour le nom de la variable, mais j'ai
fait dans la vitesse et pas fait dans la macro.

Pour le moment, je n'ai testé que le code de : Dull
Mais en metant + 2 a la place de + 1 pour
supprimer l'espace devant le texte de droite.

Je vais bien sur tester les autres codes.

Merci de vos infos, je vous communique mes résultats.

 

[Guest]

Re : Couper une chaine

Re,

Désolé pour le nom de la variable, mais j'ai
fait dans la vitesse et pas fait dans la macro.

Pas de quoi être désolé.
On t'en voudra pas pour si peu. Pense quand même à ceux qui te lisent et aimeraient te répondre.

A+