Bonjour,

j'ai un petit problème de boucle, je trouve pas où ça plante...

j'ai un stock d'essence de 54 Litre,

la pompe 1 vide 20 litres par 20 litres
la pompe 2 vide 10 litres pas 10 litres
la pompe 3 vide 2 litre par 2 litre

je vide des litres d'essence, si le litrage est >= à la valeur A1 ( litrage que la pompe 1 peut évacuer de la cuve) je continue à vider

pompe1=pompe1 + 1 : me donne le nombre de litre que la pompe1 à vidé


Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
While niveau >= (Sheets("feuil1").Range("A1"))
    pompe1=pompe1 + 1
    niveau = niveau - (Sheets("feuil1").Range("A1"))
Wend
 
While niveau >= (Sheets("feuil1").Range("A2") )
    pompe2 = pompe2 + 1
    niveau = niveau - (Sheets("feuil1").Range("A2"))
Wend
 
While niveau >= (Sheets("feuil1").Range("A3"))
    pompe3 = pompe3 + 1
    niveau = niveau - (Sheets("feuil1").Range("A3"))
Wend
dans mon récapitulatif, les litrages ne s'affichent pas...

est ce que vous trouvez un problème sur mon code ?

merci