Discussion :

[roidurif]

Bonjour,

J'ai une importante lenteur avec cette macro, lorsque j'atteins un certain nombre de ligne soit entre 8000 à 10 000 lignes.

J'utilise cette macro pour transformer les prix (avec le triangle vert dans le coin haut de la celulle,"convertir en nombre stocké") en format nombre
Pourriez svp m'aider à accélérer cette macro?

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
 
sub test()
For Each c In Sheets("feuil1").Range("AH2:" & Sheets("catalogue").Range("AH65536").End(xlUp).Address)
  c.NumberFormat = "0.00"
  c.Value = Replace(c.Text, ",", ".")
Next c
End Sub

merci

cordialement

[ucfoutu]

Bonjour,

Commence déjà par inhiber l'affichage (gourmand) pendant le traitement. N'oublie pas de le rétablir à la fin du traitement.
Regarde dans ton aide en ligne ce à quoi sert Application.ScreenUpdating

[ouisansdoute]

Bonjour,

Effectivement inhiber la mise à jour écran gagne du temps.
Par ailleurs ta définition de zone à modifier m'intrigue
Une piste (non testée)

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
sub test()
Application.ScreenUpdating = False
For Each c In Sheets("feuil1").Range("AH2: AH" & Sheets("feuil1").UsedRange.Rows.Count)
  c.NumberFormat = "0.00"
  c.Value = Replace(c.Text, ",", ".")
Next c
Application.ScreenUpdating = True
End Sub

[laetitia]

bonjour roidurif ucfoutu ouisansdoute le forum
question!! pourquoi tu passes pas par donnees convertir ect...???
autrement si tu tiens a passer par une macro on peut passer par un tablo aussi

Option Explicit

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Sub tri()
Dim t As Variant, t2() As String, x As Long, i As Long, k As Long
On Error Resume Next
Application.ScreenUpdating = False
t = Sheets("feuil1").Range("ah2:ah" & Range("ah65536").End(xlUp).Row)
 x = 1
For i = 1 To UBound(t)
ReDim Preserve t2(1 To 1, 1 To x)
For k = 1 To 1
t2(k, x) = Format(t(i, k), "0.00")
Next k: x = x + 1: Next i
Sheets("feuil1").Range("ah2:ah" & Range("ah65536").End(xlUp).Row).ClearContents
Sheets("feuil1").Range("ah2").Resize(UBound(t2, 2), UBound(t2, 1)) = Application.Transpose(t2)
End Sub

[roidurif]

Bonjour laetitia, merci pour votre aide,

je viens de tester votre proposition, cela fonctionne bien mais par contre, le séparateur point devient une virgule lorsqu'un prix n'est pas au format texte.

Merci de votre aide

[laetitia]

bonjour roidurif, le fil le forum essai comme cela pour voir!!

option explicit

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Sub test1()
Dim X As Variant, r As Long, c As Long
Application.ScreenUpdating = False
 Sheets("feuil1").Activate
X = Range("ah2:ah" & Range("ah65536").End(xlUp).Row).Value
 For r = 1 To UBound(X, 1)
 For c = 1 To UBound(X, 2)
If IsNumeric(X(r, c)) And X(r, c) <> "" Then
 X(r, c) = X(r, c) * 1
 End If: Next c: Next r
Range("ah2:ah" & Range("ah65536").End(xlUp).Row).Value = X
X = Range("Ah65536").End(xlUp).Row
Range(Cells(2, 1), Cells(X, 34)).NumberFormat = "0.00"
End Sub