Controle du kilometrage de véhicule

abc · 8 Septembre 2008

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 · 8 Septembre 2008

Re : Controle du kilometrage de véhicule

Bonsoir,

Tu peux mettre cela :

Code:

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 · 8 Septembre 2008

Re : Controle du kilometrage de véhicule

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

Controle du kilometrage de véhicule

abc

XLDnaute Impliqué

Pièces jointes

mécano41

XLDnaute Accro

abc

XLDnaute Impliqué

Controle du kilometrage de véhicule

abc

XLDnaute Impliqué

Pièces jointes

mécano41

XLDnaute Accro

abc

XLDnaute Impliqué

Privacy & Transparency

Privacy & Transparency