Récupérer la + grande valeur d'une colonne sous condition puis coller

[exene]

Bonjour

En m'inspirant d'un fichier en téléchargement sur le site, je souhaite créer un fichier pour gérer une flotte de véhicule. je calcule les kilomètres parcourus en soustrayant la valeur du compteur kilométrique du précédent relevé (le compteur est relevé à chaque plein) Mon souci est de récupérer le dernier kilométrage d'un véhicule puis de le coller dans la colonne adjacente pour recommencer le calcul au prochain plein. Je joins un fichier exemple.

Merci.

 

[JHA]

Re : Récupérer la + grande valeur d'une colonne sous condition puis coller

Bonjour Exene, le forum,

Ci joint une première approche.

=MAX(SI($B$1:$B$14=$F3;$D$1:$D$14;MIN($D$1:$D$14)))

Edit:

En C10, tu peux essayer:
=MAX(SI(B$2:B9=B10;D$2😀9))

JHA

 

[job75]

Re : Récupérer la + grande valeur d'une colonne sous condition puis coller

Bonjour exene, JHA,

Une solution VBA dans le code de la feuille :

Private Sub Worksheet_Change(ByVal Target As Range)
Set Target = Intersect(Target, [B2:B65536])
If Target Is Nothing Then Exit Sub
If Target(1) = "" Then Target.Offset(, 1) = "": Exit Sub
Dim lig As Long
For lig = Target.Row - 1 To 2 Step -1
  If Cells(lig, 2) = Target(1) Then Target.Offset(, 1) = Cells(lig, 4): Exit Sub
Next
End Sub

La macro se déclanche quand une valeur est entrée en colonne B.

Fichier joint.

A+

 

[exene]

Re : Récupérer la + grande valeur d'une colonne sous condition puis coller

Bonjour JHA, job75, le Forum

Merci de vos réponses. J'avais bien pensé à la formule avec MAX mais le souci est que le résultat n'est pas figé, problème résolu avec la solution par MACRO.

@+

 

[job75]

Re : Récupérer la + grande valeur d'une colonne sous condition puis coller

Re,

Un fignolage :

Private Sub Worksheet_Change(ByVal Target As Range)
Set Target = Intersect(Target, [B2:B65536])
If Target Is Nothing Then Exit Sub
If Target(1) = "" Then Target.Offset(, 1) = "": Exit Sub
Dim lig As Long
For lig = Target.Row - 1 To 2 Step -1
  If Cells(lig, 2) = Target(1) Then
    [COLOR="Red"]If Cells(lig, 4) = "" Then
      Target = "": Cells(lig, 4).Select
      MsgBox "Renseignez la cellule sélectionnée...", 48: Exit Sub
    End If[/COLOR]
    Target.Offset(, 1) = Cells(lig, 4): Exit Sub
  End If
Next
End Sub

A+

 

[exene]

Re : Récupérer la + grande valeur d'une colonne sous condition puis coller

Bonjour job75,

Je suis désolé de ne pas avoir répondu à ta dernière réponse, tu voudras bien m'excuser.

Encore merci pour ton (votre) aide