[VBA] Boucle While

modjibe 41Messages postés 20 juillet 2007Date d'inscription - Dernière réponse le 1 aoû 2007 à 15:28

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

[VBA] Boucle While »

Suggestions

[VBA] Boucle While
VBScript - Les structures conditionnelles » Articles
Vba boucle while break (Résolu) » Forum
VBA Boucle While n'est pas égale (Résolu) » Forum
Excel VBA, boucle while... (débutant) » Forum
Boucle While excel VBA (Résolu) » Forum
Problème avec la boucle while sur vba (Résolu) » Forum
Boucle While avec incrémentation : vba excel (Résolu) » Forum
Solveur vba et boucle while » Forum
VBA/Excel Boucle While_Inversion de tableau » Forum

Plus

Réponse

Lupin.A 972Messages postés 15 mars 2006Date d'inscription 31 jui 2007 à 22:23

Bonjour,

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

Ajouter un commentaire