Vbaaa

sara_159 -  
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

3 réponses

  1.  f894009
    Bonjour,

    le blocage s'exprime comment: message d'erreur, rien ne se passe ou ?????
    1. rEVOLV3r
      Bonjour,

      Pouvez-vous essayer de mettre des .value après les cells()
      Et utiliser la commande :

      DO while
      LOOP
      1. Thorak83
        Bonjour

        Remplacer les Feuil3 par Sheets("Feuil3")
        Idem pour Feuil4

        cordialement