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

chris à dit:

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é ?

Cliquez pour agrandir...

sylvanu à dit:

Bonjour BPM,
En PJ un essai avec :

VB:

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.

Cliquez pour agrandir...

job75 à dit:

Bonjour BPM,

Exécutez cette macro :

VB:

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+

Cliquez pour agrandir...