modifier un String

J

Jean-Marie

Guest

• 24 Septembre 2003

• #2

Bonjour Delors

Pour écrire la fonction en VBA, pour moi ce serait trop long. La voici dans en formule feuille de calcul. Gère la longueur de la chaîne, et le nombre de "\".

Voici une formule qui permet de faire la transformation :
=STXT(A1;1;CHERCHE("£";SUBSTITUE(A1;"\";"£";NBCAR(B8)-NBCAR(SUBSTITUE(A1;"\";"")))))&"["&STXT(A1;CHERCHE("£";SUBSTITUE(A1;"\";"£";NBCAR(A1)-NBCAR(SUBSTITUE(A1;"\";""))))+1;NBCAR(A1))&"]"

Fait un enregistrer de macro et colle cette formule, pour l'avoir dans le VBA.

Bonne soirée, heu! bonne journée.

@+Jean-Marie

 

Vote positif 0 Vote négatif

D

Delors

Guest

• 24 Septembre 2003

• #3

s´il te plaît Jean Marie, peux-tu le faire pour moi et me présenter le code de VBA? Tout dans mon ordinateur est en langue allemande...
ce serait très gentil si je pouvais obtenir le code VBA.

 

Vote positif 0 Vote négatif

A

arnaud

Guest

• 24 Septembre 2003

• #4

avec une fonction du style


dim monstring as string
dim i as integer
monstring = "c:\toto\titi\tutu.xls"
monstring = monstring & "]"
i = len(monstring)

do while mid (monstring,i,1) <> Chr(92)
i = i-1
loop

monstring = left(monstring,i) & "[" & right (monstring,len(monstring)-i)





g pas tester donc je peut pas t'assuré que ça marche du premier coup. a toi d'adapter.

 

Vote positif 0 Vote négatif

D

Delors

Guest

• 24 Septembre 2003

• #5

Merci beaucoup Arnaud. Tu ne sais pas combien je suis content de savoir comment commencer. Je n´ai pas encore testé ce code, mais j´aimerai savoir si à la dernière ligne ce n´ai pas plutôt:

monstring = left(monstring, len(monstring)-i) & "[" & right(monstring,i) ?

merci beaucoup pour ta réponse.


Delors

 

Vote positif 0 Vote négatif

J

Jean-Marie

Guest

• 24 Septembre 2003

• #6

Re...

Dans ma formule de feuille de calcul, il y a une erreur, il faut remplacer le B8 par A1. De plus après différents essais, cette fonction peut être réduite =SUBSTITUE(A1;"\";"\[";NBCAR(A1)-NBCAR(SUBSTITUE(A1;"\";"")))&"]"

Et la voici en code VBA :

Sub ChangeString()

Range("A1").Value = Application.Evaluate("=SUBSTITUTE(A1,""\"",""\["",LEN(A1)-LEN(SUBSTITUTE(A1,""\"","""")))&""]""")
End Sub

Bonne journée

@+Jean-Marie

 

Vote positif 0 Vote négatif

A

arnaud

Guest

• 24 Septembre 2003

• #7

tu a effectivement raison Delors
g fais ça un peu trop vite fais.

 

Vote positif 0 Vote négatif

D

Delors

Guest

• 24 Septembre 2003

• #8

Merci à Jean Marie et encore Merci à Arnaud. A+

 

Vote positif 0 Vote négatif