Discussion :

[sebest95]

Bonjour,

Voilà j'ai un tableau de nombre assez conséquent et je voudrais diviser tous les nombres qu'il contient par 1000.
Je sais diviser les cases une par une, mais mon objectif est de réduire au maximum le temps d'execution de la macro.

N'hésitez pas à me demander des précisions.

Merci

[fring]

Bonjour et

Je ne vois pas d'autre solution que d'effectuer les opérations une à une mais concernant le temps d'exécution, il faudrait montrer le code que tu as fait pour voir si on peut l'optimiser.

[sebest95]

Code :

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

1
2
3
4
5
6
7
8
9
10
11
'    Dim i, j
'    i = 2
'    While ActiveSheet.Cells(i, 1) <> ""
'        j = 2
'        While ActiveSheet.Cells(1, j) <> ""
'            ActiveSheet.Cells(i, j).Replace What:="á", Replacement:=""
'            ActiveSheet.Cells(i, j) = ActiveSheet.Cells(i, j) / 1000
'            j = j + 1
'        Wend
'        i = i + 1
'    Wend

oui bonne remarque

[fring]

Ci-dessous un bout de code (non testé), tu peux me dire si tu as une meilleure vitesse d'exécution ?

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 test()
Dim Cel As Range, DerL As Integer, DerC As Integer, Plage As Range
 
DerL = Cells(Rows.Count, 2).End(xlUp).Row
DerC = Cells(2, colums.Count).End(xlToLeft).Column
Set Plage = Range(Cells(2, 2), Cells(DerL, DerC))
 
Plage.Replace What:="á", Replacement:=""
 
For Each Cel In Plage
    If Cel <> "" Then Cel.Value = Cel.Value / 1000
Next
 
End Sub

[sebest95]

Il n aime pas trop cett ligne :

Code :

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

DerC = Cells(2, colums.Count).End(xlToLeft).Column

Au passage tu peux oublier l'histoire de remplacer le "à" j ai résolu ce problème

[fring]

pfff il fait le difficile...

Code :

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

DerC = Cells(2, Columns.Count).End(xlToLeft).Column

[ouskel'n'or]

Tu peux aussi créer un tableau de ta plage de cellules

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
Sub test()
Dim Tablo As Variant
Application.ScreenUpdating = False
'Crée le tableau
    Tablo = Range(Cells(1, 1), Cells(Range("A65536").End(xlUp).Row, Range("IV1").End(xlToLeft).Column)).Value
    For i = 1 To Range("IV1").End(xlToLeft).Column
        For j = 1 To UBound(Tablo)
            Cells(j, i) = CSng(Tablo(j, i) / 1000)
        Next
    Next
Application.ScreenUpdating = True
End Sub

Fonctionne ainsi si... tu as des en-têtes de colonnes...

Il n aime pas trop cett ligne :
DerC = Cells(2, colums.Count).End(xlToLeft).Column

"Il" a raison, moi non plus

Edit
Ok, je corrige aussi :

Code :

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

Dim i as Integer, j as long

(ici, i est le N° de colonne)