Convertir une plage de cellule au format texte en valeur num

Bonsoir à tous,

j'ai importé des données au format txt et je voudrais convertir une plage de cellule en nombre.

J'ai écrit cette macro mais les données au format texte ne se convertissent pas en nombre;

Voici la macro :

Sub Convertir()

Dim i As Integer

ActiveSheet.Select

For i = 4 To Range("g65536").End(xlUp).Row

Cells(i, 6) = Cells(i, 7).Value

Next

Columns("f:f").Select

Selection.NumberFormat = "0.00"

End Sub

Celle ci fonctionne en recopiant les données mais celles au format texte demeure au format texte !!!!

Pourquoi ????

merci de me venir en aide et vous remerciant par avance

Amicalement

Bonjour,

Pratiquement le même code qu'hier, plage à adapter

Sub Numerik()
''Macros par Claude Dubois pour "rimbaut" E-P le 22 Oct 09
Dim Cel As Range
    For Each Cel In Range("d2:d20")
        Cel.Value = Trim(Cel.Value) 'supprime espaces
        Cel.Value = Cel.Value
    Next Cel
End Sub

Amicalement

Claude.

édit: n'oublie pas de solder les postes quand tu as ta réponse.

FIhHQresolu

en bas à gauche.

Merci pour ta réponse Dubois mais la cellule demeure toujours au format texte à l'exception près qu'une petite encoche verte apparaît dans la cellule.

re,

essaye en retirant le format que tu as mis précédemment,

Selection.NumberFormat = "0.00"

et mettre au format Srandard,

tape des chiffres en texte (avec apostrophe en tête)

pour voir !

Claude.

Rechercher des sujets similaires à "convertir plage format texte valeur num"