|
|
|
|
Bonjour,
Je ne comprends pas pourquoi ma boucle plante.
Voilà la condition :
Do While a > b And Left(cellExcel.Value, 5) <> "Total"
Au niveau logique le And me choque mais ca ne marche pas avec un Or (les conditions ne peuvent pas être vraies en même temps....).
Cette boucle parcourt les lignes d'un tableau à la recherche de "Total". En passant dessus ça ne s'arrête pas et ça plante puisque à l'intérieur de ma boucle je traite la valeur cellExcel.Value en partant du principe que c'est un entier. Alors voilà ...
Y'a -t-il des choses à savoir ? J'ai essayé en séparant mes blocs par des parenthèses etc mais ça ne marche pas. C'est mon dernier bug avant que mon petit programme soit exploitable...
Configuration: Windows XP Internet Explorer 7.0
Bonjour,
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 |
Boucle vba excel retourner la dernière valeur différente de 0 Boucle while imbriquée shell Boucle while linux Boucle while matlab Boucle while unix Combobox vba Couper coller condition boucle vba Deselectionenravec boucle vba Excel vba boucle for cellule Exit in boucle while php Incrément boucle access vba La déffirence entre la boucle for et la boucle while en c Langage c boucle while Noselection boucle vba Script dos boucle while Shell boucle while variable Vba find function While vba excel
