Vbaaa
sara_159
Messages postés
2
Statut
Membre
-
Thorak83 Messages postés 1140 Statut Membre -
Thorak83 Messages postés 1140 Statut Membre -
Bonjour,
J'aimerai votre aide, je suis quasiment sur de ce code le seul soucis c'est que ca bloque à a partir du while
Maturity Bid
1 2,85
7 3,05
14 3,1
Sub boucle_while()
Dim i As Integer
Dim t As Double
i = 9
While Feuil3.Cells(i, 1).Value <> ""
If Feuil4.Cells(7, 7) = Feuil3.Cells(10, 1) Then
t = Feuil4.Cells(7, 7) * Feuil3.Cells(10, 2) - Feuil3.Cells(9, 1) * Feuil3.Cells(10, 2) + Feuil3.Cells(10, 1) * Feuil3.Cells(9, 2) - Feuil3.Cells(9, 2) * Feuil4.Cells(7, 7)
End If
i = i + 1
Wend
End Sub
J'aimerai votre aide, je suis quasiment sur de ce code le seul soucis c'est que ca bloque à a partir du while
Maturity Bid
1 2,85
7 3,05
14 3,1
Sub boucle_while()
Dim i As Integer
Dim t As Double
i = 9
While Feuil3.Cells(i, 1).Value <> ""
If Feuil4.Cells(7, 7) = Feuil3.Cells(10, 1) Then
t = Feuil4.Cells(7, 7) * Feuil3.Cells(10, 2) - Feuil3.Cells(9, 1) * Feuil3.Cells(10, 2) + Feuil3.Cells(10, 1) * Feuil3.Cells(9, 2) - Feuil3.Cells(9, 2) * Feuil4.Cells(7, 7)
End If
i = i + 1
Wend
End Sub
