Bonjour
J'utilise le code suivant pour transformer des données en nombre suite à une extraction:
Dan sla colonne traitée, il y a des valeurs numériques et alphanumériques, ce qui empêche de multiplier la colonne par 1.
Mais cette macro est très lente !
On Error Resume Next
Range("F2").Select
Dim plage As Range, cel As Range
Set plage = Range("F2:F" & Range("F" & Rows.Count).End(xlUp).Row)
For Each cel In plage
cel = cel * 1
Next
Quelqu'un pourrait-il me proposer un code plus rapide ?
D'avance merci
J'utilise le code suivant pour transformer des données en nombre suite à une extraction:
Dan sla colonne traitée, il y a des valeurs numériques et alphanumériques, ce qui empêche de multiplier la colonne par 1.
Mais cette macro est très lente !
On Error Resume Next
Range("F2").Select
Dim plage As Range, cel As Range
Set plage = Range("F2:F" & Range("F" & Rows.Count).End(xlUp).Row)
For Each cel In plage
cel = cel * 1
Next
Quelqu'un pourrait-il me proposer un code plus rapide ?
D'avance merci
