Formater Du Txt En Num

[Zouzou93]

Bonjour,

Est ce que quelqu'un pourrait m'aider SVP SVP ..... Merci d'avance.
J'ai un fichier EXCEL dans lequel ont été saisis plus de 500 lignes de tarifs en mode TXT. Je souhaiterais pouvoir formater toutes ces cellules en Euros afin de pouvoir les exploiter dans des formules. Cela est-il possible ?
Merci par avance de votre aide.
Slts
Zouzou93

 

[pierrejean]

Re : Formater Du Txt En Num

bonjour Zouzou93

selectionner les cellules concernées et lancer la macro

Sub format()
  Selection.NumberFormat = "_($* #,##0.00_);_($* (#,##0.00);_($* ""-""??_);_(@_)"
End Sub

 

[Zouzou93]

Re : Formater Du Txt En Num

Merci PierreJean,

J'ai essayé et ça ne fonctionne pas. Peut être ai-je zappé une étape ?
Pour plus de clarté,je vous joins un extrait du fichier. Merci encore.
Zouzou93

 

[argon1515]

Re : Formater Du Txt En Num

Bonjour Zouzou93, PierreJean

Fonction CNUM(texte) ensuite tu mets un format cellule nombre monétaire.

Bonne journée

 

[Zouzou93]

Re : Formater Du Txt En Num

J'ai oublié le fichier ...Désolée.

 

[jeanpierre]

Re : Formater Du Txt En Num

Bonjour Zouzou93, PierreJean, argon1515,

Une autre solution, tu saisis 1 dans une cellule vide, tu la copies, tu selectionnes ta plage, Collage spécial et tu coches Multiplication.

Bon après-midi.

Jean-Pierre

 

[Zouzou93]

Re : Formater Du Txt En Num

Merci Argon1515,

Je dois être sacrément nulle ! Mais la fonction ne marche pas ou plutôt je n'ai peut être pas su appliquer la fonction. SVP pouvez vous m'aider ? Merci
Zouzou93

 

[Zouzou93]

Re : Formater Du Txt En Num

Merci mille fois JeanPierre .... Ca marche et j'ai su faire !
Merci à vous 3.
Super ce site !
Zouzou93

 

[mutzik]

Re : Formater Du Txt En Num

bonjour,

voici ton fichier

 

[pierrejean]

Re : Formater Du Txt En Num

re

la solution de jeanpierre est excellente

comme je n'aime pas rester sur un echec , la macro modifiée
(pas besoin de selectionner

Sub format()
  For Each cel In ActiveSheet.UsedRange
  cel.Value = CDbl(cel)
  Next cel
  ActiveSheet.UsedRange.NumberFormat = "_($* #,##0.00_);_($* (#,##0.00);_($* ""-""??_);_(@_)"
End Sub

 

[Zouzou93]

Re : Formater Du Txt En Num

Génial toutes vos solutions fonctionnent. Les formats TXT en EUROS n'ont plus de secrets pour moi désormais ! En revanche pour le reste c'est moins sûr. A bientôt et encore merci