Microsoft 365 Vba récupérer dernière valeur / dernière ligne si même valeur

[akira21]

Bonjour,

Je bloque sur un problème.

J'aimerai récupérer la dernière valeur, par exemple -27 ou -150 dans la colonne I si même valeur dans la colonne B et non les valeurs au dessus ( +3, -30, -60 etc )

Pour l'instant, je récupère l'ensemble sous 2 conditions mais j'aimerai peaufiner en n'ayant que celle du bas de la valeur 160674 (-27) et 107487 (-150) par exemple :

Sub test_restant_prod()

Dim i As Integer, dlg As Integer
Dim ws1 As Worksheet, ws2 As Worksheet
Application.ScreenUpdating = False

Set ws1 = Sheets("Cockpit")
Set ws2 = Sheets("Test")

Worksheets("test").Range("A5:B5000, D5:H5000").ClearContents

With ws1

'Quantité produite 1
    For i = 6 To .Range("A" & Rows.Count).End(xlUp).Row
        If .Cells(i, 10) = "" And .Cells(i, 9) < 0 Then
            dlg = ws2.Range("A" & Rows.Count).End(xlUp).Row + 1
            'Ligne
            ws2.Range("A" & dlg) = .Range("A" & i)
            'Code
            ws2.Range("B" & dlg) = .Range("B" & i)
            'Date Prod
            ws2.Range("G" & dlg) = .Range("D" & i)
            'Quantité produite
            ws2.Range("E" & dlg) = .Range("I" & i)
            'Entrée Prod
            ws2.Range("H" & dlg) = "Entrée Prod"
        End If
    Next i

End With

End Sub

Est ce q'une âme charitable serait m'aider ?

Merci d'avance pour votre aide

 

[JHA]

Bonjour à tous,

On peut le faire avec une formule matricielle mais sans fichier.

JHA

 

[st007]

Bonjour, avec ce genre de formule ?

=MIN(SI(B$2:B$10000=B2;(I$2:I$10000)))

 

[JHA]

Bonjour à tous

Peut-être
=index(différence;grande.valeur(si(code SAP=160674;ligne(difference)- le nombre de ligne avant le tableau);1)))

JHA

 

[akira21]

Bonjour et merci de votre réponse.

Cette macro va se combiner à d'autre donc voilà pourquoi j'ai besoin que cela se fasse en vba.

Effectivement, cela sera plus simple avec un fichier en exemple. Désolé, le voici

Dans l'onglet cockpit, j'y ai mis des explications.

Merci beaucoup pour votre aide

 

[JHA]

Bonjour à tous,

Désolé en VBA je ne sais pas le faire non plus mais si tu as besoin de la formule, n'hésites pas.

JHA

 

[akira21]

Merci tout même pour ton aide

 

[st007]

En formule tirée vers le bas

=MIN.SI.ENS(Cockpit!$I$6:$I$63;Cockpit!$B$6:$B$63;Test!B4)

 

[st007]

En valeur uniquement, si j'ai compris ta demande

 

[akira21]

En valeur uniquement, si j'ai compris ta demande

Merci de votre aide

J'ai surement mal expliquer les choses, désolé

Le principe est bon, mais il faut garder qu'une seule ligne du code SAP en doublon. Celle du bas.

Encore merci pour votre aide

 

[JHA]

Bonjour à tous,

Je te mets quand même la formule

JHA

 

[akira21]

Merci de votre aide
Je garde le fichier dans un coin.
Bonne journée à vous

 

[st007]

Un peu comme ceci ?
bonjour JHA, je ne suis pas parti sur la même formule

 

[akira21]

Bonjour et merci st007 pour votre aide

J'ai eu la solution sur un autre forum :

Sub Details()

Dim i As Integer, dlg As Integer
Dim ws1 As Worksheet, ws2 As Worksheet
Application.ScreenUpdating = False

Set ws1 = Sheets("Cockpit")
Set ws2 = Sheets("Détails")

With ws1

    For i = 6 To .Range("A" & Rows.Count).End(xlUp).Row
        If .Cells(i, 9) < 0 Then
            dlg = ws2.Range("A" & Rows.Count).End(xlUp).Row + 1
            If .Range("I" & i + 1) < 0 And .Range("B" & i) = .Range("B" & i + 1) Then GoTo suite
            
            ws2.Range("A" & dlg) = .Range("A" & i)
          
            ws2.Range("B" & dlg) = .Range("B" & i)
            
            ws2.Range("G" & dlg) = .Range("D" & i)
      
            ws2.Range("E" & dlg) = .Range("I" & i)
    
            ws2.Range("H" & dlg) = "Entrée Prod Restante"
        End If
suite:
    Next i
End With
End Sub

Encore merci et bonne journée