Discussion :

[bibou2146]

Bonjour,

J'aimerai de l'aide svp!! Voilà j'ai écris une procédure qui me permet de faire un calcul sur deux colonnes (contenant plus de 6000 données et plus..) à l'appui sur un bouton voici le code :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Private Sub CommandButton4_Click()
Dim e
Dim f
For Each e In Range("B3:B" & [B65536].End(xlUP).Row)
e.Value = e.Value / 5
Next e
For Each f In Range("D3:D" & [D65536].End(xlUp).Row
f.Value = f.Value / 5
Next f
CommandButton.Enabled = False
End Sub

Cette procédure marche mais elle est vraiment très lente +1min! Si vous voyez svp comment améliorer le point vitesse je suis preneur! Je vous remercie et vous souhaite une bonne journée!

[Invité]

bonjour,
déjà tu peux faire le traitement en une seule boucle

Code :

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

1
2
3
4
5
6
7
8
9
10
Private Sub CommandButton4_Click()
Dim L As Long
Dim Myrange As Range
Set Myrange = ActiveSheet.UsedRange
For L = 3 To Myrange.Rows.Count
    If IsNumeric(Myrange(L, 2)) Then Myrange(L, 2) = Myrange(L, 2) / 5 'B
    If IsNumeric(Myrange(L, 3)) Then Myrange(L, 3) = Myrange(L, 3) / 5 'D
Next
CommandButton.Enabled = False
End Sub

attention, j'ai commencé en ligne 3 car j'ai supposé qu'il y avait quelque chose en en linge 1donc tenir compte de ça.

si ton tableau commence en A1 L=3, A2 l=2 A3 l=1.

[Daniel.C]

Bonjour,

Code :

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

1
2
3
4
5
[IV1] = 5
[IV1].Copy
Range("B3:B" & [B65536].End(xlUp).Row).PasteSpecial , xlPasteSpecialOperationDivide
Range("D3:D" & [D65536].End(xlUp).Row).PasteSpecial , xlPasteSpecialOperationDivide
[IV1].ClearContents

J'ai utilisé la cellule IV1, change-la au besoin.

[bibou2146]

C'est génial merci à tous les deux! j'ai choisi le code de daniel! Merci encore

[EngueEngue]

Merci Daniel, je ne connaissais pas, très intéressant!