Sujet Précédent Sujet Suivant

Vbaaa

Fermé
sara_159 Messages postés 2 Date d'inscription vendredi 21 juin 2013 Statut Membre Dernière intervention 21 juin 2013 - 21 juin 2013 à 17:22
Thorak83 Messages postés 1051 Date d'inscription jeudi 20 juin 2013 Statut Membre Dernière intervention 22 décembre 2017 - 21 juin 2013 à 17:55
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

Réponse 1 / 3
f894009 Messages postés 17229 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 21 janvier 2025 1 712
21 juin 2013 à 17:42
Bonjour,

le blocage s'exprime comment: message d'erreur, rien ne se passe ou ?????
0
Réponse 2 / 3
rEVOLV3r Messages postés 223 Date d'inscription jeudi 12 août 2010 Statut Membre Dernière intervention 21 septembre 2022 28
21 juin 2013 à 17:53
Bonjour,

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

DO while
LOOP
0
Réponse 3 / 3
Thorak83 Messages postés 1051 Date d'inscription jeudi 20 juin 2013 Statut Membre Dernière intervention 22 décembre 2017 156
21 juin 2013 à 17:55
Bonjour

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

cordialement
0