Discussion :

[stick25]

Bonjour,

J'ai besoin de votre aide car je rencontre un problème pour remplir une listbox. Il faudrait que celle-ci puisse contenir des décimaux (les données que j'y importent sont décimales et j'aimerais conserver ce format ; càd éviter de multiplier par 1000 pour avoir des entiers).
J'arrive à insérer des points sous la forme "12.054" mais il faudrait "12,054" car par la suite j'utilise les valeurs de la listbox dans différents calculs.

Mon code est le suivant :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
CommonDialog1.ShowOpen
If CommonDialog1.FileName = "" Then MsgBox "Vous n'avez rien sélectionné": Exit Sub
Open CommonDialog1.FileName For Input As #1
 
Dim ligne As String
Dim i As Integer
Dim w As String
Dim valeurs As Variant
Dim sd As Variant
Input #1, ligne
w = InputBox("Quel est le séparateur des cordonnées ?" & VBA.Chr(13) & VBA.Chr(10) & "1ère coordonnées trouvées dans votre fichier :  " & VBA.Chr(10) & ligne)
valeurs = Split(ligne, w)                                              'on sépare selon le séparateur entré plus haut
Liste.Lstb_pts.AddItem (valeurs(0))
Liste.Lstb_pts.List(Liste.Lstb_pts.ListCount - 1, 1) = valeurs(1)
Liste.Lstb_pts.List(Liste.Lstb_pts.ListCount - 1, 2) = valeurs(2)
Liste.Lstb_pts.List(Liste.Lstb_pts.ListCount - 1, 3) = valeurs(3)
 
While Not EOF(1)                                                      
Input #1, ligne
 
valeurs = Split(ligne, w)
Liste.Lstb_pts.AddItem (valeurs(0))
Liste.Lstb_pts.List(Liste.Lstb_pts.ListCount - 1, 1) = valeurs(1)
Liste.Lstb_pts.List(Liste.Lstb_pts.ListCount - 1, 2) = valeurs(2)
Liste.Lstb_pts.List(Liste.Lstb_pts.ListCount - 1, 3) = valeurs(3)
 
Wend
 
Close #1

Si je suis obligé de séparer les données par un " " et supprimer la inputbox ça ne me dérange pas.
Il me semble que le problème est que dès qu'il rencontre une virgule le programme croit qu'il faut aller à la ligne.

J'espère que c'est possible est que vous allez pouvoir m'aider !
Merci par avance.

[Didier Gonard]

Bonjour,

la listbox n'accorde aucune importance au séparateur décimal vu qu'elle ne gère que des strings.

une possibilité :
Une fois obtenu tes "nombres", tu peux employer la fonction Replace (cf aide vba) pour remplacer les points par des virgules sans problème.

cordialement,

Didier

[stick25]

Bonjour,

j'ai utilisé "Line input" et plus aucun problème d'insertion.

Cependant maintenant encore un petit problème. Le fichier de *.txt que j'importe dans ma listbox vient de calculs Matlab, et les séparateurs décimaux sont des points.
J'aimerais alors lors de l'import dans ma listbox convertir ces points en virgule.
Deux questions se posent alors :
- à quel moment de mon code faire cette conversion : avant l'écriture dans la listbox ou après. Peut-être mieux, si c'est réalisable, de le faire avant, pour éviter de remplir 2 fois la listbox.
- quel code écrire ? j'ai regarder dans l'aide la fonction replace mais pas évident encore une fois de m'en sortir seul ^^
J'ai écris après l'insertion dans la listbox

Code :

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

1
2
For i = 0 To Liste.Lstb_pts.ListCount - 1
Replace(Liste.Lstb_pts.List(i, 0), ".", ",")

Mais erreur : "attendu : ="
Merci de votre aide !!

[stick25]

En utilisant ce qui suit ça roule :

Code :

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

1
2
For i = 0 To Liste.Lstb_pts.ListCount - 1
Liste.Lstb_pts.List(i, 0) = Replace(Liste.Lstb_pts.List(i, 0), ".", ",")

Merci