Macro convertir nombre

Bonjour le Fil,

En général ce problème survient lors d'export de données à partir d'autres applications vers un fichier au [soit-disant] format Excel et parfois lors l'import dans Excel de certains fichiers textes (txt, asc, csv, ...) en particulier lorsque tous les champs sont encadrés par des identificateurs de texte (quotte).

Citation:

---

Envoyé par Krimo1973

.NumberFormat = "General"
.Value = .Value ( pourquoi on répète 2 fois la propriété value ?)

---

En complément des explications de Philippe (que je salue :coucou:),
on peut aussi l'utiliser lorsque les cellules contiennent des valeurs constantes (par opposition aux résultats de formules).

.Value = .Value est un pis-aller pour convertir un chiffre représentant un nombre entier, en nombre entier (ce qui est le cas de ce Fil):
- l'avantage c'est de pouvoir l'appliquer à une plage de cellules ;
- l'inconvénient, c'est que ça marche qu'avec certains format : Entier sans séparateur de milliers, certaines fractions et Heures minutes secondes ;
- le problème, c'est que ça supprime la virgule dans les nombres décimaux français (il prend la virgule pour un séparateur de milliers).

La bonne méthode pour transformer des chiffres français en nombre c'est :
.FormulaLocal = .Value
et pour les chiffres anglais :
.Formula = .Value
- l'avantage c'est que ça reconnaît automatiquement tous les formats de base (et certains formats personnalisés) comme le ferait Excel lors de la saisie.
- l'inconvénient c'est que ça ne s'applique qu'a une seule cellule à la fois, il faut donc faire une boucle.

Un fichier de démonstration : Pièce jointe 530906

Bonjour Patrice,

Citation:

---

.Value = .Value est un pis-aller pour convertir un chiffre représentant un nombre entier, en nombre entier (ce qui est le cas de ce Fil):
- l'avantage c'est de pouvoir l'appliquer à une plage de cellules ;
- l'inconvénient, c'est que ça marche qu'avec certains format : Entier sans séparateur de milliers, certaines fractions et Heures minutes secondes ;
- le problème, c'est que ça supprime la virgule dans les nombres décimaux français (il prend la virgule pour un séparateur de milliers).

---

J'ai été interpellé par ton intervention et comme j'ai deux versions Excel française mais dont l'une, 2010 a comme séparateur décimal le point et l'autre, version 2013 a comme séparateur décimal la virgule, j'ai immédiatement effectué un test sur une colonne complète ayant une formule renvoyant des nombres de type différents (Entier et décimale) et je n'ai eu aucun problème après avoir utilisé la procédure ci-dessous et dans les deux cas de figure, il y avait un séparateur de milliers.

Code:

---

1 2 3 4 5 6 7 8 9

Sub T() Dim oList As ListObject Dim rngData As Range Set oList = Feuil1.ListObjects(1) Set rngData = oList.ListColumns("Tva_2").DataBodyRange With rngData .Value = .Value End With End Sub

---

La valeur constante renvoyée après correspondait au résultat renvoyé par la formule initialement présente.

Est-ce d'un autre cas dont tu parles ?

Citation:

---

Envoyé par Philippe Tulliez

Est-ce d'un autre cas dont tu parles ?

---

Oui, du cas où la cellule ne contient pas de formule mais un chiffre (i.e la représentation d'un nombre au format texte dans une cellule au format standard).
C'est le sujet initial de ce post.
Essayes avec le fichier joint au post dans un Excel Français (je l'ai vérifié avec Excel 2003, 2007, 2013 et 2016).

Merci encore pour vos éclaircissements. Dans la même macro de conversion de données en format nombre,

J'essaie de faire une macro qui ouvre un fichier en fonction de son chemin . Le chemin et le nom de fichier seront dynamiques ( en fonction de l'année , du mois et de la date du jour normé sur le fichier )
Une fois que le fichier est ouvert , une macro va convertir en nombre la 1er colonne du fichier dont l'onglet est "GL Général". ( ok vu ensemble ce point )
Par la suite la macro doit copier les données de l'onglet GL Général ( plage A à J) dans un autre fichier dont l'onglet est "Grand Livre" ( Plage A à J)
Avant d'enregistrer je veux créer une message box "contrôle ok" sinon "ko. Cette condition est l'égalité entre 2 valeurs sur l'onglet "mapping" du fichier destinataire

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25

Ssub Maj_GL() ' ' Maj_GL Macro ' Dim fichier As String, Chemin As String Dim wb As Workbook   Chemin = "T:\Administratif & Financier\reportings mensuels\yyyy\ddmmaaaa\ J + 15 \ """   fichier = "Balance 10-2019-v191106.xls" '( le mois , l'année et la date du jour du fichier doit être dynamique dynamique)   Set wb = Workbook.Open(Chemin & fichier)   With Worksheets("GL Général").UsedRange.Columns(1) .NumberFormat = "General" .Value = .Value   End With   Range("A:J").Copy Range("A:L").Sheets("Grand livre")   wb.Close '( avant d'enregistrer je veux créer une message box "controle ok" sinon "ko. Cette condition est l'égalité entre 2 valeurs sur l'onglet mapping de mon fichier wb.Save   End Sub

---

Citation:

---

Envoyé par Patrice740

La bonne méthode pour transformer des chiffres français en nombre c'est :
.FormulaLocal = .Value

Un fichier de démonstration : Pièce jointe 530906

---

Bonjour Philippe et merci pour cette précieuse aide. Toutefois, j'ai 2873 cellules à convertir, c'est très long. Y'a-t'il un moyen de réduire le temps avec un autre code qui ferait la même chose ? Mon tableau (Tableau Excel nommé "Occupants") est effectivement exporté d'une application et la colonne de références dont j'ai besoin est en texte.:roll:

Merci !