[VBA] Boucle While
Fermé
modjibe
Messages postés
45
Date d'inscription
vendredi 20 juillet 2007
Statut
Membre
Dernière intervention
25 avril 2008
-
31 juil. 2007 à 15:29
Utilisateur anonyme - 1 août 2007 à 15:28
Utilisateur anonyme - 1 août 2007 à 15:28
3 réponses
Utilisateur anonyme
31 juil. 2007 à 22:23
31 juil. 2007 à 22:23
Bonjour,
chez moi, de cette façon, le [And] et le [Or] fonctionne !
Lupin
chez moi, de cette façon, le [And] et le [Or] fonctionne !
Option Explicit
Sub Test()
Dim cellExcel As Range
Dim a As Long, b As Long
Set cellExcel = Range("A1")
a = 10: b = 5
While ((a > b) Or (Left(cellExcel.Value, 5) <> "Total"))
'...
DoEvents
a = (a - 1)
ActiveCell.Offset(1, 0).Select
Set cellExcel = ActiveCell
Wend
Set cellExcel = Nothing
End Sub
'
Sub Test2()
Dim cellExcel As Range
Dim a As Long, b As Long
Range("A1").Select
Set cellExcel = ActiveCell
a = 7: b = 5
While ((a > b) And (Left(cellExcel.Value, 5) <> "Total"))
'...
DoEvents
a = (a - 1)
ActiveCell.Offset(1, 0).Select
Set cellExcel = ActiveCell
Wend
Set cellExcel = Nothing
End Sub
'
Lupin
modjibe
Messages postés
45
Date d'inscription
vendredi 20 juillet 2007
Statut
Membre
Dernière intervention
25 avril 2008
3
1 août 2007 à 12:35
1 août 2007 à 12:35
Chez moi ça ne marche pas, il me fait une boucle alors que :
a = 612
b = 611
Left(cellExcel.Value,5) = "Total"
Je comprends pas ...
a = 612
b = 611
Left(cellExcel.Value,5) = "Total"
Je comprends pas ...
Utilisateur anonyme
1 août 2007 à 15:28
1 août 2007 à 15:28
re:
As-tu utilisé la version [ And ] ou la version [ Or ] ( Test ou Test2 ) ?
Lupin
As-tu utilisé la version [ And ] ou la version [ Or ] ( Test ou Test2 ) ?
Lupin
1 août 2007 à 12:16