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

XL 2010 supprimer la virgule d'un nombre

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

kastor

XLDnaute Junior
Bonjour,

J'ai des valeurs dans un fichier que je souhaite modifier.

voici ce que je peux avoir
12,53
12,5
9
0,56

et j'ai besoin de nourrie un fichier .txt sans les virgules mais avec les décimales sur 8 caratcères

donc :
00001253
00001250
00000900
00000056

Auriez-vous un idée de la formule.

Merci d'avance
 
Trier par date Trier par votes
Bonjour,
Si le symbole décimal de Windows est la virgule
=TEXTE(A1*100;"00000000")
Si c'est le point
=TEXTE(SUBSTITUE(A1;",";".")*100;"00000000")
 
Vote positif 0 Vote négatif
bonjour à tous,

une solution VBA:

Code: 
Sub Modif()

For i = 3 To 100 ' pour les lignes 3 à 100, sur la colonne 3 (C)
    Cells(i, 3) = Cells(i, 3) * 100
    Cells(i, 3).NumberFormat = "00000000"
Next

End Sub

A+
 
Vote positif 0 Vote négatif
Sans formule ni vba si le symbole décimal de Windows est la virgule.
Inscrire 100 dans une cellule vierge==>copier cette cellule
Sélectionner les cellules à modifier==>collage spécial==>multiplication
les cellules au format personnalisé ==>"00000000"
 
Vote positif 0 Vote négatif
Je ne veux pas modifier le fichier excel d'origine, je veux juste récupérer la valeur pour l'écrire dans un fichier .txt au format "000000000" sans virgule.

je creuse le code de Paf (en espérant que le chien se sauve ^^ )
 
Vote positif 0 Vote négatif
re tous,

il faut juste créer un fichier texte pour y coller la colonne de nombres reformatés ?

Un classeur exemple et des explications complètes pourrait permettre d'élaborer une proposition plus aboutie.

En attendant, on peut aussi faire:

montant = Format(Cells(i, 3) * 100, "00000000")

A+
 
Vote positif 0 Vote négatif
Bonsour® Jacky im schnockeloch 😀 le monsieur il a dit : VBA
tu n'aurais pas pu utiliser l'enregistreur ??? on perd du temps ... !🙄
ROTFL...😉😛
 
Vote positif 0 Vote négatif
Bonjour à tous,
Code: 
Sub FichierTexte()
Dim fichier$, r As Range
fichier = ThisWorkbook.Path & "\FichierTexte.txt" 'à adapter
Application.ScreenUpdating = False
Application.DisplayAlerts = False
On Error Resume Next 'si aucune constante numérique
ActiveSheet.Copy
With ActiveWorkbook
  Set r = .Sheets(1).Cells.SpecialCells(xlCellTypeConstants, 1) 'toute la feuille
  'Set r = .Sheets(1).[A:A].SpecialCells(xlCellTypeConstants, 1) 'seulement la colonne A
  r.NumberFormat = "@" 'format Texte
  For Each r In r
    r = Format(100 * r, "00000000")
  Next
  .SaveAs fichier, xlText
  .Close
End With
End Sub
A+
 
Vote positif 0 Vote négatif
Re,

S'il y a un grand nombre de cellules à traiter il faut utiliser un tableau VBA, c'est beaucoup plus rapide :
Code: 
Sub FichierTexte()
Dim fichier$, P As Range, nlig&, t, j%, i&
fichier = ThisWorkbook.Path & "\FichierTexte.txt" 'à adapter
Application.ScreenUpdating = False
Application.DisplayAlerts = False
ActiveSheet.Copy
With ActiveWorkbook.Sheets(1)
  Set P = .UsedRange 'toute la feuille
  'Set P = .UsedRange.Columns(1) 'seulement la 1ère colonne
  P.NumberFormat = "@" 'format Texte
  nlig = P.Rows.Count
  t = P.Resize(nlig + 1) 'au moins 2 éléments
  For j = 1 To UBound(t, 2)
    For i = 1 To nlig
      If IsNumeric(CStr(t(i, j))) Then t(i, j) = Format(100 * t(i, j), "00000000")
  Next i, j
  P = t
  .Parent.SaveAs fichier, xlText
  .Parent.Close
End With
End Sub
Bonne soirée.
 
Vote positif 0 Vote négatif
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

M
  • Question Question
Microsoft 365 Macro pour changer le format de nombre à l'ouverture d'un CSV
Réponses
4
Affichages
196
oguruma
  • Question Question
XL 2021 Comment supprimer des noms du gestionnaire de noms dans un classeur
Réponses
7
Affichages
755
jeff1494
L
  • Question Question
XL 2021 Export vers bloc note, met une virgule à la place des points
Réponses
3
Affichages
669
Lu K
L
S
  • Résolu(e)
Microsoft 365 [RESOLU] Excel : Calcul de prix en fonction d'un type
Réponses
4
Affichages
470
JHA
J
A
  • Question Question
XL 2021 Automatiser la génération de documents Word à partir d’Excel avec VBA
Réponses
12
Affichages
883
ali591
A
  • Résolu(e)
Microsoft 365 Reporter automatiquement le nombre de valeurs uniques d'un tableau structuré filtré par plusieurs segments.
Réponses
3
Affichages
906
chris
I
  • Résolu(e)
Microsoft 365 Modifier le format d'un nombre issu d'une autre cellule
Réponses
2
Affichages
510
ilyes4205
I
J
  • Question Question
XL pour MAC Chiffre après la virgule ajustable
Réponses
2
Affichages
677
mapomme
N
  • Question Question
Microsoft 365 supprimer espaces par vba et convertir en nombres
Réponses
9
Affichages
959
Fouineur44
F
M
  • Résolu(e)
Microsoft 365 Supprimer photo dans dossier
Réponses
10
Affichages
847
Marvin57
M
N
  • Question Question
Microsoft 365 VBA Supprimer lignes en fonction des valeurs d'une cellule
Réponses
11
Affichages
2 K
Phil69970
G
  • Question Question
Microsoft 365 Saut de ligne dans une cellule
Réponses
3
Affichages
773
GClaire
G
B
  • Résolu(e)
Microsoft 365 VBA tabulation
Réponses
2
Affichages
744
BOILEAU
B
T
  • Question Question
Microsoft 365 Automatiser la mise en forme d'un tableau qui s'adapte au nombre de lignes.
Réponses
4
Affichages
648
xUpsilon
H
  • Résolu(e)
XL 2016 mettre un point a la fin d'une suite de mots concaténé et des virgules entre des mots (excel 2016)
2
Réponses
15
Affichages
2 K
Laurent78
L
  • Résolu(e)
XL 2016 Démo pour positionner un UserForm ou ContextMenu sur la grille (Toute version)
10 11 12
Réponses
178
Affichages
9 K
TooFatBoy
  • Résolu(e)
Microsoft 365 Modifier dynamiquement la source de données d'un TCD
Réponses
5
Affichages
4 K
goube
T
  • Résolu(e)
Microsoft 365 Conditionner l'accès à une page d'un multipage
2
Réponses
26
Affichages
3 K
TooFatBoy
G
  • Question Question
XL 2013 Conversion chiffres en lettre avec 3 chiffre après la virgule
Réponses
5
Affichages
3 K
patricktoulon
M
  • Résolu(e)
XL 2010 Code VBA pour remplacer un point par une virgule ( Replace ) et en faire un nombre
Réponses
2
Affichages
2 K
mamarus
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…