XL 2019 macro pouvant convertir en nombre une colonne

[desmonts]

Bonjour à toutes et à tous,
Merci à ceux qui prendront un peu de leur tps pour m'aider.
j'importe une colonne d'un logiciel et cette colonne est avec 000 devant. Je sélectionne cette colonne puis click gauche et j'appuie sur le petit ! jaune et click sur convertir en nombre. Y aurait il un moyen via une macro de convertir cette colonne de façon auto.

Bonne journée à toutes et tous

cdt,

 

[JHA]

Bonjour à tous,

En "B3"

=A3*1

copier vers le bas

JHA

 

[sylvanu]

Bonjour Desmonts,
Simple et rapide à écrire :

Sub Change()
    Application.ScreenUpdating = False
    For i = 3 To Range("A65500").End(xlUp).Row
        Cells(i, "A") = Val(Cells(i, "A"))
    Next i
End Sub

 

[pierrejean]

Bonjour desmonts

Sub modif()
tablo = Range("A3:A" & Range("A" & Rows.Count).End(xlUp).Row)
For n = LBound(tablo, 1) To UBound(tablo, 1)
tablo(n, 1) = tablo(n, 1) * 1
Next
Range("A3:A" & Range("A" & Rows.Count).End(xlUp).Row) = tablo

End Sub

 

[desmonts]

Merci à tous pour vos retours, cela fonctionne merci

 

[mapomme]

Bonsoir,

Sans boucle. Code à mettre dans le module de code associé à la feuille Feuil1 :

Sub Valeurs()
Dim n&
   n = Me.UsedRange.Row + Me.UsedRange.Rows.Count - 1
   Range("a3").Resize(n) = Range("a3").Resize(n).Value
End Sub

 

[Staple1600]

Bonsoir le fil

On peut la chose manuellement avec Données/Convertir
Puis Format/Standard

Ci-dessous l'équivalent (dispensable) VBA de la manip décrite plus haut

Sub Macro1()
Selection.TextToColumns Destination:=Range("A1"), DataType:=xlDelimited, FieldInfo:=Array(1, 1)
Selection.NumberFormat = "General"
End Sub

 

[Staple1600]

Re

j'oubliais aussi l'autre manip manuelle
Je copie une cellule vide
Je colle/spécial -> Opération: [x] Ajouter

Ci-dessous la version VBA (également dispensable) 😉

Sub Bis()
Range("IV1").Offset(1, Val("Staple1600")).Copy
Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlAdd
End Sub

 

[TooFatBoy]

Bonjour,

Sub test()
    With Range("A3:A" & Range("A" & Rows.Count).End(xlUp).Row)
        .Value = .Value
    End With
End Sub

Sinon, y aurait bien une solution avec des CreateObject("wscript.shell").SendKeys "{F2}" et CreateObject("wscript.shell").SendKeys "{ENTER}" mais ça me parait plus... "Usine à gaz". 😁