Discussion :

[Little-Freud]

salut à tous !!

bon voila j'ai besoin de savoir une petite methode ou fonction qui voudrai me retourner le chiffre que je cherche.

j'ai une variable string qui contient un montant, par ex: 10,55 ou 5,55 ou 8 ou 11,5



on peut voir ici que la virgule n'est pas tjs à la troisième place dans la variable string.
je voudrais retrouver l'emplacement de cette virgule avecune fonction, mais je ne trouve pas laquelle... j'aurai besoin de savoir ou se situe la virgule dans le fichier, afin de faire des tests suivant la position de la virgules..je ne sais pas si vous me suivez..

merci par avance pour toute aide.

[malhivertman1]

Regarde le fonction instr(Départdanstachaine(ex:1 pour 1er caractere) --> non obligatoire, tachaine, tarecherche)
elle te retourne la place du caractere que tu cherches

[ouskel'n'or]

Code :

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

PositionDeLaVirgule = Instr(Lavariable,",")

Tu dis

[jmfmarques]

Je ne sais par pourquoi, mais je "devine" quelque chose...
Tes tests, quels vont-ils être ?
Car si ce sont ceux auxquels je pense, le chemin pris (position de la virgule) n'est pas le meilleur

[méphistopheles]

si tu en as beaucoup, un split serais à mon avis préférable.

[AlainTech]

Je ne sais par pourquoi, mais je "devine" quelque chose...
Tes tests, quels vont-ils être ?
Car si ce sont ceux auxquels je pense, le chemin pris (position de la virgule) n'est pas le meilleur

+1

Je "sens" pareil.

[Little-Freud]

mes tests sont simples, j'ai un montant que je récupère d'un fichier excel, il se trouve sous les formes que je vous ai donné, et je convertis mon xls en txt suivant une trame de données bien précises.

sauf que suivant les virgules j'ai des "0" à introduire avant ou après le montant afin de faire correspondre avec ma trame.

ex: 40.5 -> 4050 sur mon txt
6.5 -> 0650 sur mon txt


je dois savoir ou se trouve ma virgule sinon ca me fou mes tests pr la suite de mon programme en l'air...voila pourquoi...est ce bien le genre de tests à quoi vs pensiez...?

[jmfmarques]

Code :

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

1
2
3
4
5
Private Sub Command1_Click()
  tt = "40,5"
  tt1 = Format(Int(tt) & Mid(tt - Int(tt), 3) & "0", "0000")
  MsgBox tt1
End Sub

[ouskel'n'or]

Comme je soupçonnais un formatage de données pour avoir eu à le faire, ça colle. J'adore faire ça parce que c'est illisible...

Code :

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

1
2
3
4
5
6
7
 
'Ex de formatage désiré "0000,0000"
LeNombre = 12.125
LeNombreFormaté = Right("0000" + Left(CStr(LeNombre) _
, InStr(CStr(LeNombre), ",") - 1), 4) + Left(Right(CStr(LeNombre) _
, Len(CStr(LeNombre)) - InStr(CStr(LeNombre), ",") + 1) + "0000", 5)
MsgBox LeNombreFormaté '= "0012,1250"

Amuse-toi bien

A+