les virgules disparaissent

[JORDAN]

Bonsoir tout le monde,

J'ai un problème de virgule, lorsque je transferts le contenu d'une listbox à 4 colonnes vers une feuille Excel, quelques fois les virgules disparaissent. Mon fichier est volumineux et pas simple à réduire, voilà le code que j'utilise et une capture d'écran du résultat erroné. Code placé dans l'USF

Private Sub CommandButton1_Click()
Dim I As Integer, J As Integer

For I = 0 To Me.ListBox2.ListCount - 1
    For J = 0 To 3
        Sheets(RefClient).Cells(I + 1, J + 1) = Me.ListBox2.List(I, J)
    Next J
Next I

End Sub

 

[tototiti2008]

Re : les virgules disparaissent

Bonsoir Jordan,

Essaye peut-être

Private Sub CommandButton1_Click()
Dim I As Integer, J As Integer

For I = 0 To Me.ListBox2.ListCount - 1
    For J = 0 To 3
        if isnumeric(Me.ListBox2.List(I, J)) then
        Sheets(RefClient).Cells(I + 1, J + 1) = cdbl(Me.ListBox2.List(I, J))
        else
        Sheets(RefClient).Cells(I + 1, J + 1) = Me.ListBox2.List(I, J)
        end if
    Next J
Next I

End Sub

 

[JORDAN]

Re : les virgules disparaissent

Bonsoir Tototiti,

Un énorme merci pour ton aide et tes excellentes modifications, ça fonctionne à merveille.

Cordialement

 

[job75]

Re : les virgules disparaissent

Bonjour JORDAN, salut Marc,

Une petite explication.

En lisant le texte d'un item de la ListBox, VBA considère que la virgule est le séparateur des milliers.

C'est pourquoi il faut convertir ce texte en nombre avec CDbl.

C'est une précaution à toujours prendre quand on veut entrer des nombres (textes) dans des cellules.

A+