Discussion :

[bibou2146]

Bonjour! un petit coup de pouce svp ^^!! Voila j'ai un programme vba permettant de faire un calcul sur deux colonnes! mais le soucis c'est que mon calcul tourne en boucle...

Code :

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

1
2
3
4
5
6
7
8
9
10
11
 Private Sub CommandButton2_Click()
Dim e As Range
Dim f As Range
 
For Each e In Range("A1:A" & [A65536].End(xlUp).Row)
e.Value = (e.Value / 150) * 100
For Each f In Range("B1:B" & [B65536].End(xlUp).Row)
f.Value = (f.Value / 0.0098) / 5
Next
Next
End Sub

Merci pour votre aide

[SMBeccaria]

Bonjour,

D'après ce que je vois, ça n'est pas un boucle infinie mais seulement infiniment longue.

Essaie comme ceci:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
 
Private Sub CommandButton2_Click()
Dim e As Range
Dim f As Range
 
For Each e In Range("A1:A" & [A65536].End(xlUp).Row)
e.Value = (e.Value / 150) * 100
Next e
 
For Each f In Range("B1:B" & [B65536].End(xlUp).Row)
f.Value = (f.Value / 0.0098) / 5
Next f
End Sub

[Invité]

Code :

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

1
2
3
4
5
6
7
Dim MyRange As Range
Dim L As Long
Set MyRange = ActiveSheet.UsedRange
For L = 1 To MyRange.Rows.Count
    MyRange(L, 1) = MyRange(L, 1) * 150 / 100
    MyRange(L, 2) = MyRange(L, 2) / 0.0098 / 5
Next

[bibou2146]

je vous remercie !