Discussion :

[Antiploc]

Bonjour à tous,

Besoin d'un petit coup de main sur un problème qui me semble basique et pourtant je bute, je bute...

J'ai un fichier csv qui comporte une colonne dont les valeurs contenues sont 000.
Ce fichier doit être mis en forme et enregistré en xls par une macro et les 3 zéros doivent obligatoirement être conservés dans des cellules au format "Texte".

Lorsque le csv est ouvert dans Excel, il s'affiche dans la colonne 0 au lieu de 000.

La macro modifie la propriété en Selection.NumberFormat = "000", je retrouve bien un affichage avec mes 3 zéros mais Si je demande quel est le format des cellules de la colonne modifiée, Excel indique un format "Spécial" avec un type reprenant des caractères chinois (Je ne sais pas d'où il sort ça) !?!!?

Si je modifie de nouveau le format par Selection.NumberFormat = "@", Excel supprime 2 zéros et j'ai à nouveau 0 au lieu de 000.

Comment pourrais-je faire pour conserver mes 3 zéros et être en format "Texte".

J'espère avoir été assez clair, merci d'avance pour votre aide précieuse.

[Antiploc]

Solution trouvée juste après avoir fait cette demande :



Sub Reformat1()
Dim xCell As Range, Plage As Range, x As String, z As String, y As Byte
Set Plage = Range("D1" & Cells(Rows.Count, "d").End(xlUp).Row)
Plage.NumberFormat = "@"
For Each xCell In Plage
If Len(xCell.Value) < 14 Then
x = xCell.Value
y = 14 - Len(xCell.Value)
z = Application.WorksheetFunction.Rept("0", y)
xCell.Value = z & x
End If
Next xCell
End Sub

[mapeh]

Bonjour,
En utilisant Power Query pour importer le fichier csv (au lieu de l'ouvrir via VBA), tu pourrais conserver ce format (et effectuer maintes autres opérations) lors de cet import.
Bonne apm

[Raccourcix]

Bonjour

Dans les options vous pouvez désactiver les transformations automatiques dont la suppression des zéros non significatifs


Stéphane

[Antiploc]

Merci pour cette réponse, mais je n'ai malheureusement pas ces options dans la version d'Excel que j'utilise

[Antiploc]

Bonjour,
En utilisant Power Query pour importer le fichier csv (au lieu de l'ouvrir via VBA), tu pourrais conserver ce format (et effectuer maintes autres opérations) lors de cet import.
Bonne apm

Je n'ai jamais utilisé Power Query, c'est l'occasion d'y jeter un oeil. Merci pour ce conseil.