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 🙂