formal xls non compatible csv

[cybergui]

Bonjour,
je travaille sur une base de donnée d'élèves que j'importe avec excel. Le nom des classes apparaissent comme ça: 3E5, 3E6, etc. Lorsque je remplace le E MAJ par un e MIN (3e5 au lieu de 3E5) excel me les affiche automatiquement en mode scientifique soit 3.00E+05. Je résous ceci en mettant en format texte avant de mettre le e minuscule: 3e5 apparait avec une erreur en vert dans le coin de la case....
Le problème c'est que je dois enregistrer au format CSV pour bénéficier des séparateurs ";" et lors de l'enregistrement, il me dit que mon fichier peut contenir des informations non compatibles CSV et me demande si je veux conserver le format du classeur. Là, que je mette oui ou non, le 3e5 du classeur excel se transforme en 3.00E+05 en CSV !! Si je remet la colonne en mode texte, il m'affiche 350000 🙁
Comment faire pour garder mon format d'origine, en csv, 3e5 avec e minuscule?
Merci d'avance !

 

[JNP]

Re : formal xls non compatible csv

Bonjour Cybergui 🙂,
Il te suffit de déclarer du texte en faisant précéder tes 3e5 d'une cote (').
Excel laissera tranquille ton texte, et enlèvera les ' dans le CSV 😉.
Bon dimanche 😎

 

[JNP]

Re : formal xls non compatible csv

Re 🙂,
Pour te simplifier la vie, une petite macro

Sub Test()
Dim Plage As Range, Cellule As Range
Set Plage = Application.InputBox("Sélectionner la plage", "A traiter", Type:=8)
For Each Cellule In Plage
If Cellule.Text Like "[3-6]E[1-9]" Then
Cellule = "'" & Replace(Cellule, "E", "e")
End If
Next
End Sub

le masque est prévu pour les 6èmes à 3èmes de 1 à 9 😉.
Bon dimanche 😎

 

[cybergui]

Re : formal xls non compatible csv

Un grand merci JPN pour ta réponse.
Cependant cela n'a rien changé, le problème persiste, avec les 2 méthodes que tu m'as donné. Je t'envoie mon fichier, j'ai remplacé les noms de famille par une lettre pour la confidentialité 🙂
merci d'avance !

 

[Staple1600]

Re : formal xls non compatible csv

Bosopir


Une dernière avant le dodo

Pour JNP 😉

Sub Test()
Dim Plage As Range, Cellule As Range
Set Plage = Application.InputBox("Sélectionner la plage", "A traiter", Type:=8)
For Each Cellule In Plage
If Cellule.Text Like "[3-6]E[1-9]" Then
Cellule = "'" & LCase(Cellule.Text)
End If
Next
End Sub

 

[cybergui]

Re : formal xls non compatible csv

Bonjour,
Bouuhh, je suis désespéré, cela parait si simple pourtant...
Staple1600, j'ai essayé votre macro, rien y fait. La rentrée chez nous a eu lieu depuis 3 semaines et je ne peux toujours pas créer les comptes des élèves....
Essayez s'il vous plait de l'appliquer sur le fichier joint "TEST", peut être que c'est moi qui fait une mauvaise manip...
Merci d'avance !

 

[JNP]

Re : formal xls non compatible csv

Re 🙂,

Le nom des classes apparaissent comme ça: 3E5, 3E6, etc.

et dans ton fichier exemple, ils sont déjà 3e5, 3e6, etc. donc mon masque ne marche pas 😛...

Sub Test()
Dim Plage As Range, Cellule As Range
Set Plage = Application.InputBox("Sélectionner la plage", "A traiter", Type:=8)
For Each Cellule In Plage
If Cellule.Text Like "[3-6][COLOR=red][B][Ee][/B][/COLOR][1-9]" Then
Cellule = "'" & LCase(Cellule.Text)
End If
Next
End Sub

fonctionnera vu qu'il accepte E et e, au lieu de E uniquement 🙄.
En PJ, le CSV obtenu.
Bonne journée 😎
PS : J'ai inclu l'amélioration de Jean-Marie 😀

 

[cybergui]

Re : formal xls non compatible csv

Bonjour,
merci JNP pour ta patience !
Quand j'ouvre ton fichier zip, j'obtiens la même chose 3.00E+01 au lieu de 3e1. Cependant, j'ai compris mon erreur: lorsque j'ouvre le fichier en .csv en double cliquant dessus cela apparait comme cité précédemment, mais quand je l'ouvre avec le bloc-note j'ai effectivement la bonne écriture avec les séparateurs ";" tout comme il faut !
Je suis soulagé, je crée mes comptes immédiatement.
Merci vous êtes formidables!
a++