Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

les virgules disparaissent

  • Initiateur de la discussion Initiateur de la discussion JORDAN
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

JORDAN

XLDnaute Impliqué
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

Code:
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
 

Pièces jointes

  • Capture.JPG
    17.2 KB · Affichages: 67
  • Capture.JPG
    17.2 KB · Affichages: 80
  • Capture.JPG
    17.2 KB · Affichages: 77
Re : les virgules disparaissent

Bonsoir Jordan,

Essaye peut-être

Code:
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
 
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+
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

Réponses
4
Affichages
280
Réponses
15
Affichages
779
Réponses
4
Affichages
732
  • Question Question
Microsoft 365 Erreur UBound
Réponses
4
Affichages
293
Réponses
10
Affichages
661
Réponses
5
Affichages
909
Réponses
3
Affichages
332
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…