Excel VBA-Userform

Le 27/12/2021 à 10:03

Bonjour à tous!

J'ai besoin d'aide svp!

Je suis en train de créer une appli de gestion de flotte automobile.

Sur l'onglet" véhicule" se trouve le km initial du véhicule et sur l'onglet opérations se trouve les différentes opérations effectués avec les véhicules.

Je souhaite dans ma textbox KM début , afficher le km actuel du véhicule se trouvant dans l'onglet "Véhicule" si le véhicule effectue sa première opération sinon

afficher dans ma textbox KM début , le KM fin de la plus récente opération effectuée par ce véhicule.

Je vous prie de m'aider svp!

Le 27/12/2021 à 10:44

Bonjour,

Le fichier serait le bien venu

Cdlt

Jacky

Le 27/12/2021 à 16:37

Bonjour,

J'ai fabriqué un code qui a résolu mon problème !

Private Sub TxtKMinitial_enter()

a = Application.WorksheetFunction.Match(Me.Cbovéhicule.Value, Sheets("2").Range("B4:B1045500"), 0)

x = Application.WorksheetFunction.CountIf(Sheets("4").Range("C4:C1045500"), Me.Cbovéhicule)

If x < 0 Then

Me.TxtKMinitial.Value = Application.WorksheetFunction.Index(Sheets("2").Range("A4:O1045500"), a, 9)

Else

If x > 0 Then

Me.TxtKMinitial = Application.WorksheetFunction.Index(Sheets("4").Range("A4:O1045500"), a, 8)

End If

End Sub-----

-----------

Vos suggestions pour l'améliorer seront les bienvenues.

Je vous remercie !