XL 2016 Mettre les nombres enregistrés en format texte, au format nombre

[BPM]

Bonjour,

Je sollicite votre aide car j'ai un classeur Excel dans lequel j'importe les données d'un logiciel extérieur, le soucis est que avec le copier-coller tous les chiffres situés dans ma colonne "D" se mettent sous format texte. Je traite énormément de données, d'où mon souhait d'avoir un code VBA pour réussir à convertir de façon automatique tous les chiffres au format nombre. J'ai essayé l'enregistreur de macros mais il ne prend compte la correction de l'erreur et ne me sort pas de code. Et dans mon tableau le nombre de ligne est variable. Je joins un petit fichier texte pour illustrer.

Je vous remercie d'avance pour votre aide.

 

[chris]

Bonjour

La meilleure solution est de régler le problème en amont, c'est à dire à l'import : quel est le format du fichier exporté ?

 

[sylvanu]

Bonjour BPM,
En PJ un essai avec :

Sub TexteEnNombre()
    Dim L%: Application.ScreenUpdating = False
    For L = 2 To Range("A65500").End(xlUp).Row
        If Cells(L, "D") <> "" Then
            Cells(L, "D") = Val(Cells(L, "D"))
        End If
    Next L
End Sub

Vous pouvez la lancer par ALT+F8 puis TexteEnNombre, ou raccrocher cette macro à un bouton, comme bon vous semble.

 

[job75]

Bonjour BPM,

Exécutez cette macro :

Sub Convertir()
[D:D].NumberFormat = "General" 'format Standard
[I1] = 0
With Selection 'mémorise
    [I1].Copy
    [D:D].SpecialCells(xlCellTypeConstants).PasteSpecial xlPasteValues, Operation:=xlAdd 'collage spécial avec addition
    .Select
End With
[I1] = ""
Application.CutCopyMode = 0
End Sub

A+

 

[BPM]

Bonjour

La meilleure solution est de régler le problème en amont, c'est à dire à l'import : qiel est le format du fichier exporté ?

Bonjour, non c'est compliqué parce que ce n'est pas moi qui importe les fichiers en amont.
Merci.

 

[BPM]

Bonjour BPM,
En PJ un essai avec :

Sub TexteEnNombre()
    Dim L%: Application.ScreenUpdating = False
    For L = 2 To Range("A65500").End(xlUp).Row
        If Cells(L, "D") <> "" Then
            Cells(L, "D") = Val(Cells(L, "D"))
        End If
    Next L
End Sub

Vous pouvez la lancer par ALT+F8 puis TexteEnNombre, ou raccrocher cette macro à un bouton, comme bon vous semble.

Bonjour, merci pour cette solution cela résout bien mon problème.

 

[BPM]

Bonjour BPM,

Exécutez cette macro :

Sub Convertir()
[D:D].NumberFormat = "General" 'format Standard
[I1] = 0
With Selection 'mémorise
    [I1].Copy
    [D:D].SpecialCells(xlCellTypeConstants).PasteSpecial xlPasteValues, Operation:=xlAdd 'collage spécial avec addition
    .Select
End With
[I1] = ""
Application.CutCopyMode = 0
End Sub

A+

Bonjour, merci également pour cette proposition de solution elle résout aussi le problème.