Discussion :

[fifi5622]

bonjour a tous ,


voila j'ai un petit souci avec une fonction split ( erreur 9 l'indice n’appartiens pas la a selection )

je suppose qu' excel en reconnait pas bien mon caractère special

je voudrais donc épeler dans un msgbox le contenu de ma variable ( "phrase" ) en caractère spéciaux pour trouver celui qui me conviens pour faire ensuite mon split


la fonction asc semble être celle dont j'ai besoin , mais apres je en vois pas trop comment faire ... MsgBox Asc(

test le X imie caractere de la phrase ? >>> exemple msgbox " le 5 ime caractere est le car 65"

ou bloucler sur la phrase en décalant a chaque fois d'un caractère ?

Code :

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

1
2
3
4
5
dim top 
 
top = " toto & pauline vont à la plage !!! " 
 
top2 = split( top("&"'))(1)

[parmi]

Bonjour,

Pour le Split, tu dois séparer la chaîne et le séparateur avec une virgule

Code :

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

1
2
top2 = Split(top, "&")(1)
msgbox top2

[unparia]

Bonjour
Tu nous mentionnes :

un petit souci avec une fonction split ( erreur 9 l'indice n’appartiens pas la a selection )

alors que ton code :
1) ne montre aucune "sélection"
2) dénonce forcément avant toute autre chose, tel qu'écrit, une erreur se syntaxe en sa ligne 5
Question : as-tu au moins ouvert ton aide VBA à la rubrique Split, fonction, puisque tu utilises cette fonction ?
Il semble que non. Fais-le donc, s'il te plait.

[fifi5622]

merci de vos reponses

le code je viens de l'inventer pour les besoins du post

et oui j'ai oublier la ","

et si je split "&" ( 1) ma selection est le (1) je dois donc obtenir sauf erreur de ma part "pauline vont à la plage !!!"

[parmi]

C'est ce que tu obtiendras avec mon bout de code...

[fifi5622]

donc pour le moment je susi parti sur une truc du genre

Code :

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

MsgBox Asc(Mid(toto , 7, 1))

j'extrait le 1 caractère , le 7 ieme caractère de la phrase et ensuite je l'inverse avec asc ...

biensur Parmi


mais j'ai du mal exprimer mon souhait / souci

j'ai voulu faire un exemple fictif ...


mais je pense pouvoir me debrouiller avec le code

MsgBox Asc(Mid(...

[parmi]

Si tu veux connaître les valeurs ASCII de chaque caractère, fais une boucle comme ceci

Code :

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

1
2
3
    For I = 1 To Len(top)
        Debug.Print I & ": " & Asc(Mid(top, I, 1))
    Next

Et tu tapes Ctrl-G pour voir le résultat dans l'IDE

[unparia]

MsgBox Asc(Mid(toto , 7, 1))


j'extrait le 1 caractère , le 7 ieme caractère de la phrase et ensuite je l'inverse avec asc ...

as-tu vraiment conscience de ce que tu fais là ?
Car si "inverser", c'est trouver la correspondance "caractère" d'un "code de caractère", ma foi ... on se demande pourquoi être passé par le code de caractère et non avoir directement extrait le caractère .
Tu donnes vraiment l'impression de "tâtonner" sans même t'intéresser réellement à la finalité du "mécanisme" que tu mets en place.

[unparia]

Re
Je ne sazis pas ce que tu cherches à faire, mais regarde (à tout hasard) ce que ferait ceci :

Code :

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

1
2
3
4
5
6
7
 Dim top As String
   top = "toto & pauline vont à la plage !!! "
   Dim titi() As Byte
   titi = StrConv(top, vbFromUnicode)
   For i = 0 To UBound(titi)
      MsgBox titi(i) & " ---> " & Chr(titi(i))
   Next

("just in case" ).

[fifi5622]

c'est bon j'ai ma réponse


merci de votre aide


le caractère special que je cherchais était chr(95) et si j'avais pu j'aurai mis "_" mais excel n'ne voulais pas
j'ai donc du chercher une parade ( car je pense que 'aurai encore le souci pour d'autres bout de codes )

mon Split " avec chr(95)" fonctionne dorénavant !

merci a vous ....