Convertir en nombre après importation

[mikael2235]

Bonjour à tous,

Je suis entrain de faire une macro qui m'importe des données depuis un fichier vers une feuille excel avec l'option "xml to list".

J'ai dans 2 colonnes des nombres qui apparemment ne sont pas au bon format, puisque après l'importation, ces nombre sont au format texte. J'ai donc le petit triangle vert qui me propose pour chaque cellule de convertir en nombre.

Je peux le faire manuellement, mais je n'arrive pas via macro.

J'ai essayé ceci mais ça ne fonctionne pas.

Sub Macro_Extract()
'
' Macro1 Macro
'

'
    ChDir "Z:\"
    Workbooks.OpenXML Filename:="Z:\test_macro.cpf", LoadOption:= _
        xlXmlLoadImportToList
    Columns("A:BQ").Select
    Selection.Delete Shift:=xlToLeft

    Columns("O:O").Select
    Selection.Delete Shift:=xlToLeft
   
    Range("A1").Select
    j = Selection.End(xlDown).Row
    Rows("2:" & j - 1).Select
    Selection.Delete Shift:=xlUp
    
    Range("J65000").End(xlUp).Select
    k = ActiveCell.Row
    
    For i = 2 To k
        If IsEmpty(Cells(i, 10)) = False Then
        Cells(i, 10).Select
        Selection.Copy
        v = Selection.Value
        ActiveCell.ClearContents
        ActiveCell.Value = v
        End If
    Next

Merci pour votre aide.

Mikael

 

[JNP]

Re : Convertir en nombre après importation

Bonsoir Mickael3235 ,

Dim Cellule As Range
For Each Cellule In Range("A1:A25")
Cellule = Cellule * 1
Next

à adapter à la plage qui t'intéresse .
Bon courage

 

[mikael2235]

Re : Convertir en nombre après importation

Merci JNP, cela fonctionne parfaitement en y mettant le format "nombre" !!