Do while loop avec 2 conditions

Question

J'ai du mal avec ma boocle do while qui a 2 conditions. Le problème c'est que si elle vérifie une seul condition pas vrai elle sort de la boocle alors que moi je désire qu'elle vérifie les 2 conditions pas vrai pour qu'elle sort de la boocle. do while (ecart1 &lt; 0 and ecart1 &gt; valeur1 and ecart2 &lt; 0 and ecart2 &gt; valeur2) //instructions loop any help !...

MFerrand · Answer

Sans macro ni fichier : bonsoir ...

Banzai64 · Answer

Bonjour et bienvenu(e)

Bonjour MFerrand

Il faut un OU entre les conditions

Sub test()
Dim Ecart1 As Integer, Ecart2 As Integer
Dim Valeur1 As Integer, Valeur2 As Integer

  Valeur1 = -10
  Valeur2 = -10
  Ecart1 = -5
  Ecart2 = -5
  Do While (Ecart1 < 0 And Ecart1 > Valeur1) Or (Ecart2 < 0 And Ecart2 > Valeur2)
    Ecart1 = Ecart1 + 1
    Ecart2 = Ecart2 + 2
  Loop
  MsgBox "Sortie :" & vbCr & "Ecart1 : " & Ecart1 & vbCr & "Ecart2 : " & Ecart2
End Sub

eriiic · Answer

Bonjour (edit : à tous), si tu n'expliques pas avec des mots tes conditions de sortie on peut te faire un paquet de propositions. Ce n'est pas un truc faux qui va nous faire trouver la bonne. eric...

MFerrand · Answer

Belle démo ...

Banzai64 · Answer

@ MFerrand Un peu rapide ma réponse (j'ai lu en travers) Il faut boucler si un des 2 groupes de condition est toujours vrai...

MFerrand · Answer

C'est vrai que tu as mis Or au lieu de And... Ça ne m'avait pas choqué !

Comme on n'a ni le contexte ni ce qui se passe dedans... C'était au moins une boucle dont on sort selon les instructions codées.

pierre.jy · Answer

While NOT ( (0 &lt; Ecart1 ) and (Ecart1&lt;Valeur1) And (0 &lt; Ecart2 ) and (Ecart1&lt;Valeur2) aND (Valeur1 &lt;&gt; Valeur2))...

MFerrand · Answer

Remarque préalable : tu dois déclarer le type de toutes tes variables : exemple :

Dim Max_SM As Long, Max_CAAD As Long

Celles dont le nom n'est pas suivi de As type sont de type Variant.

Remarque suivante : tu affectes des valeurs décimales à des variables déclarées de type Long !

C'est faisable, à condition de les convertir en Long avec la fonction CLng.

Déclaration de nouvelles variables en cours d'exécution : il est très généralement recommandé de déclarer toutes les variables en début de procédure.

MFerrand · Answer

La condition de sortie de boucle devrait pouvoir se réduire à : Do While ecart1 &gt; 0 And ecart2 &gt; 0 And ecart1 &lt; valeur1 And ecart2 &lt; valeur2...

MFerrand · Answer

TC_SM = TC_SM + 0.002 TC_CAAD = 0.008 Max_SM = Max_SM Max_CAAD = 70 Min_SM = Min_SM Min_CAAD = Min_CAAD Les lignes surlignées sont inutiles, affectations déjà faites, et si Max_CAAD n'est pas injustifiée c'est juste parce que l'affection a été invalidée plus haut...

MFerrand · Answer

Les Select sont inutiles (pertes de temps), les parenthèses aussi lorsqu'il n'y a pas de priorités d'opérateurs à forcer.

Pour y voir plus clair :

    'pour MM
    'Application.ScreenUpdating = False
        With Feuil2
            For i = 3 To .Range("A3").End(xlDown).Row
        'pour SM
                If .Cells(i, 6).Value * TC_SM > Max_SM Then
                    .Cells(i, 15) = Max_SM
                Else
                    .Cells(i, 15).Value = .Cells(i, 6).Value * TC_SM
                End If
                If .Cells(i, 15).Value < Min_SM Then
                    .Cells(i, 16).Value = Min_SM
                Else
                    .Cells(i, 16).Value = .Cells(i, 15).Value
                End If
        'pour CAAD
                If .Cells(i, 6).Value * TC_CAAD > Max_CAAD Then
                    .Cells(i, 17) = Max_CAAD
                Else
                    .Cells(i, 17).Value = .Cells(i, 6).Value * TC_CAAD
                End If
                If .Cells(i, 17).Value < Min_CAAD Then
                    .Cells(i, 18).Value = Min_CAAD
                Else
                    .Cells(i, 18).Value = .Cells(i, 17).Value
                End If
            Next i
        'calcul de la somme de la PP actif pour le barème proposé pour SM_MM
            .Range("P25334").Value = Application.WorksheetFunction.Sum(.Range("P3:P25333"))
            .Range("R25334").Value = Application.WorksheetFunction.Sum(.Range("R3:R25333"))
        'calcul du CA annuel pour la MM
            CA_MM = Application.WorksheetFunction.Sum(.Range("P25334").Value, .Range("R25334").Value)
        End With
        'calcul de l'ecart MM
        With Feuil4
            ecartMM = CA_MM - .Cells(13, 3).Value
            .Range("E14").Value = ecartMM
            'MsgBox ecartMM
            ecart1 = ecartMM
        End With
    'pour ANP
        With Feuil1
            For i = 3 To .Range("A3").End(xlDown).Row
        'pour SM
                If .Cells(i, 5).Value * TC_SM > Max_SM Then
                    .Cells(i, 15) = Max_SM
                Else
                    .Cells(i, 15).Value = .Cells(i, 5).Value * TC_SM
                End If
                If .Cells(i, 15).Value < Min_SM Then
                    .Cells(i, 16).Value = Min_SM
                Else
                    .Cells(i, 16).Value = .Cells(i, 15).Value
                End If
        'pour CAAD
                If .Cells(i, 5).Value * TC_CAAD > Max_CAAD Then
                    .Cells(i, 17) = Max_CAAD
                Else
                    .Cells(i, 17).Value = .Cells(i, 5).Value * TC_CAAD
                End If
                If .Cells(i, 17).Value < Min_CAAD Then
                    .Cells(i, 18).Value = Min_CAAD
                Else
                    .Cells(i, 18).Value = .Cells(i, 17).Value
                End If
            Next i
        'calcul de la somme de la PP actif pour le barème proposé pour SM_ANP et CAAD_ANP
            .Range("P11083").Value = Application.WorksheetFunction.Sum(.Range("P3:P11082"))
            .Range("R11083").Value = Application.WorksheetFunction.Sum(.Range("R3:R11082"))
        'calcul du CA annuel pour la MM
            CA_ANP = Application.WorksheetFunction.Sum(.Range("P11083").Value, .Range("R11083").Value)
        End With
        'calcul de l'ecart MM
        With Feuil4
            ecartANP = CA_ANP - .Cells(13, 9)
            .Range("K14").Value = ecartANP
            'MsgBox ecartANP
            ecart2 = ecartANP
        End With
    Loop
    'Application.ScreenUpdating = True

Code qui s'exécute à l'intérieur de la boucle.

Je suppose que tu sais que tu n'utilises pas le nom de la feuille mais son nom de code (CodeName).

MFerrand · Answer

Compte tenu des affectations initiales, ecart1 et ecart2 sont inférieurs respectivement à valeur1 et valeur2 en entrée de boucle.

La sortie de boucle interviendra donc lorsque ecart1 et ecart2 deviendront positif.

La variation de leur valeur est induite exclusivement par la variation de TC_SM, à chaque tour de boucle.

Difficile d'avoir un avis sur la validité de tes calculs ! Pour l'instant on suppose que cette variation conduira à réunir la condition de sortie de boucle.

Y a-t-il problème : sortie prématurée de la boucle, ou non sortie de la boucle ?

Cordialement.

MFerrand · Answer

Si pas de problème sur le fonctionnement de la macro, la question se transfère au niveau de ta gestion. Là ce n'est plus vraiment un problème Excel ou VBA (qui peut revenir plus tard pour traduire la solution que tu auras trouvée), il faut une connaissance suffisante des éléments de ton activité, des objectifs que tu dois atteindre et des moyens que tu peux ou non utiliser pour cela. Il n'y a en princicpe que toi qui peut répondre de façon effective à cette question, ou un collègue ou collaborateur connaissant au même degré la matière que tu traites...