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

XL 2016 probleme csv separateur et nombre decimale

Créer une discussion

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 !

S'inscrire
K

kontractor08

XLDnaute Nouveau
Bonjour

j'ai un petit soucis

dans mon classeur j effectue une copie d un range sheets(SERIE A") dans une nouvelle feuille sheets("provisoir") qui se créée à l appui d un bouton
jusque la ca va bien
mon exportation en format csv avec séparateur "," dans une autre feuille sheets("BIOXA") fonctionne tres bien

mais le soucis c est que j ai 4 colonne de ("H:K") qui contiennent des données numériques "29,35" donc mon soucis est que l 'exportation en csv detecte cette virgule comme separateur
j aurai donc besoin de pouvoir remplacer juste avant l exportation en csv de modifier les valeur numériques des colonnes H,I,J,K pour que leurs virgules soient remplacées par des points.


merci par avance à tous
 
Solution
Re
A tester:
VB: 
Sub test()
For n = 1 To Sheets("provisoir").Range("A" & Rows.Count).End(xlUp).Row
 a = Sheets("provisoir").Range("B" & n) & "," & Sheets("provisoir").Range("A" & n) & ","
For m = 3 To 13
  If m > 7 And m < 12 Then
     x = Replace(CStr(Sheets("provisoir").Cells(n, m)), ",", ".")
   Else
     x = Sheets("provisoir").Cells(n, m)
  End If
  a = a & x & ","
Next
Sheets("labo").Range("A" & n) = Left(a, Len(a) - 1)
Next
End Sub
Trier par date Trier par votes
Re
A tester:
VB: 
Sub test()
For n = 1 To Sheets("provisoir").Range("A" & Rows.Count).End(xlUp).Row
 a = Sheets("provisoir").Range("B" & n) & "," & Sheets("provisoir").Range("A" & n) & ","
For m = 3 To 13
  If m > 7 And m < 12 Then
     x = Replace(CStr(Sheets("provisoir").Cells(n, m)), ",", ".")
   Else
     x = Sheets("provisoir").Cells(n, m)
  End If
  a = a & x & ","
Next
Sheets("labo").Range("A" & n) = Left(a, Len(a) - 1)
Next
End Sub
 
Vote positif 0 Vote négatif
Solution
Identifiez-vous ou inscrivez-vous pour participer.
Rejoins nos membres "Supporter XLD" et booste ton expérience Excel !
- 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

G
  • Question Question
XL 2016 modifier virgule en point
Réponses
1
Affichages
685
Grouchet
G
V
  • Question Question
Multiselect et textbox
Réponses
0
Affichages
2 K
vassili
V
  • Question Question
Aide pour compléter un code Vba Excel
Réponses
7
Affichages
2 K
Hpotter
R
  • Question Question
Macro Excel VBA: Problème avec condition If et filtre
Réponses
6
Affichages
5 K
ricardo512
R
  • Question Question
Recherche et ajout dans unserform
Réponses
7
Affichages
1 K
Nikky 74
M
[REF] Wiki 5 de MichelXld (Formules, Audits de formules, Répertoires, Fichiers)
Réponses
0
Affichages
47 K
MichelXld
M
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…