Vbaaa

sara_159 Messages postés 2 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

3 réponses

  1.
    f894009 Messages postés 17417 Date d'inscription   Statut Membre Dernière intervention   1 717
     
    Bonjour,

    le blocage s'exprime comment: message d'erreur, rien ne se passe ou ?????
    0
  2. rEVOLV3r Messages postés 223 Date d'inscription   Statut Membre Dernière intervention   28
     
    Bonjour,

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

    DO while
    LOOP
    0
  3. Thorak83 Messages postés 1140 Statut Membre 156
     
    Bonjour

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

    cordialement
    0