Discussion :

[gigalia]

Bonjour,

J'extrait un fichier txt dans un tableau excel. Les valeurs de ce fichier txt ressemble à des nombres mais excel les intègres comme txt.

Il apparait une petite fenètre en coin de cellule qui me permet de convertir en nombre. Je souhaite que la conversion soit automatique via une VBA.

Quelqu'un peut-il m'aider?

Merci

[casefayere]

Bonjour le forum, gigalia,
regardes du coté de Val() ou CDbl()

[gigalia]

Bonjour,

J'utilise c'est fonction pour supprimer les espaces.

Est ce que sur le même principe il existe quelque chose pour convertir en nombre.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
Dim Cell As Range
 
On Error Resume Next
For Each Cell In ActiveSheet.UsedRange
Cell = Application.WorksheetFunction.Trim(Cell)
Next

[casefayere]

Tu ne regardes pas les réponses ?

[gigalia]

Bonjour,

Je ne comprend pas ta réponse. Peux-tu stp être plus explicite?

Merci

[casefayere]

Excuses-moi, je ne suis volontairement pas explicit pour apprendre à manier, soit le "F1", soit la recherche, si tu selectionnes "Val" dans l'aide, tu auras ta réponse et tu pourras adapter :

Renvoie le nombre contenu dans une chaîne de caractère sous la forme d'une valeur numérique d'un type approprié.

Syntaxe

Val(string)

L'argument string peut être n'importe quelle expression de chaîne.

Remarques

La fonction Val arrête la lecture de la chaîne au premier caractère ne faisant apparemment pas partie d'un nombre. Les symboles et caractères fréquemment associés aux valeurs numériques, comme le signe $ et les virgules ne sont pas reconnus. En revanche, la fonction reconnaît les préfixes &O (pour octal) et &H (pour hexadécimal). Les espaces, les tabulations et les caractères de saut de ligne ne sont pas pris en compte dans l'argument.

Dans l'exemple suivant, la fonction renvoie la valeur 161517 :

Val(" 1615 17e siècle")

Dans l'exemple ci-dessous, la fonction Val renvoie la valeur décimale -1 correspondant à la valeur hexadécimale indiquée :

Val("&HFFFF")

Note La fonction Val ne reconnaît que le point comme séparateur décimal (.). Lors de l'utilisation d'autres séparateurs décimaux (applications internationales, par exemple), convertissez la chaîne en nombre à l'aide de la fonction CDbl.

[mercatog]

Bonjour

Peut être, essaies ceci

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
With Sheets("Feuil3").UsedRange
    .NumberFormat = "General"
    .Value = .Value
End With

[gigalia]

Bonjour,

Merci pour le code Mercatog mais il y a des champs avec des valeurs à , ou : et ta formule ne marche pas dans ces cas la.

A tu une solution pour cela?

[mercatog]

Peux-tu mettre en pièces jointes, un extrait significatif de ton fichier (sans données confidentielles)

[Philippe Tulliez]

Bonjour,
Si tu lisais ce que casefayere te propose de faire, en changeant une instruction tu aurais adapté ton propre code en 30 secondes.
Quant aux séparateurs ":" il ne s'agit d'heure sans doute
Pour convertir en nombre, tu peux aussi multiplier par 1 la cellule