mise en forme de donnée texte vers nombre

[gege21]

bonjours a tous

j'ai besoin de votre aide
bans mon code pour faire la mise en forme je doit donne le nombre de ligne que la macro doit metre en forme ici "a1 a q5000"
je voudrai que la macro trouve elle même le nombre de ligne a mettre en forme 😕

merci de votre aide

Sub test()
With Worksheets("impor")
With .Range("A1:q5000")
.Replace ".", ","
x = .Value
For a = 1 To UBound(x, 1)
For b = 1 To UBound(x, 2)
If IsNumeric(x(a, b)) Then
x(a, b) = CDbl(x(a, b))
End If
Next
Next
.NumberFormat = "General"
.Value = x
End With
End With
End Sub

 

[JNP]

Re : mise en forme de donnée texte vers nombre

Bonsoir Gege21 🙂,
En principe

Range("A1048576").End(xlUp).Row

te donne la dernière ligne utilisée sous 2007. Non compatible avec 2003 où le nombre de ligne était "seulement" de 65536 😛... Donc pour être compatible, tu peux utiliser

Range("A65536").End(xlUp).Row

à moins que tu n'ai plus de 65 536 lignes 😀 !
Soit adapté à ton code

With .Range("A1:Q" & Range("A65536").End(xlUp).Row)

Bon courage 😎

 

[gege21]

Re : mise en forme de donnée texte vers nombre

bonjour JNP

et merci c'est exactement ce que je voulais
🙂🙂