Controle du kilometrage de véhicule

[abc]

Bonsoir,
je dois faire un relever mensuel des km de plusieurs véhicules.
Pour cela je relève l'index kilométrique en fin de mois.
Afin d'éviter les erreurs , j'ai mis ume condition,
si le kilométrage est inférieur, un MSGBOX m'informe d'une erreur, via un inputbox. Jusque la OK.
Comment faire revenir inputbox et introduire le kilométrage correct ?
Une procédure en boucle devrait convenir,mais la je patine.

Merci d'avance

 

[mécano41]

Re : Controle du kilometrage de véhicule

Bonsoir,

Tu peux mettre cela :

Sub Macro1()
[COLOR="Red"]Dim Sortie As Boolean[/COLOR]
Range("A4").Select
Selection.Copy
Range("A3").Select
ActiveSheet.Paste
Range("A4").Select
Application.CutCopyMode = False
Selection.ClearContents
[COLOR="Red"]Sortie = False
Do While Sortie = False[/COLOR]
    Range("A4").Value = InputBox("Entrer l'index kilométrique", "KM DU MOIS")
    If Range("A4") < Range("A3") Then
    MsgBox "KM INFERIEUR" & Chr(10) & "CONTROLER L'INDEX"
[COLOR="Red"]Else
    Sortie = True[/COLOR]
End If
[COLOR="Red"]Loop[/COLOR]
End Sub

Cordialement

 

[abc]

Re : Controle du kilometrage de véhicule

Bonsoir,
merci ,cela fonctionne.
Je vais essayer sur le fichier.
A +