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

J

JHA

XLDnaute Barbatruc

• 15 Mars 2022

• #2

Bonjour à tous,

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

JHA

 

Vote positif 0 Vote négatif

S

st007

XLDnaute Barbatruc

• 15 Mars 2022

• #3

Bonjour, avec ce genre de formule ?

VB:

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

 

Vote positif 0 Vote négatif

J

JHA

XLDnaute Barbatruc

• 15 Mars 2022

• #4

Bonjour à tous

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

JHA

 

Vote positif 0 Vote négatif

A

akira21

XLDnaute Occasionnel

• 15 Mars 2022

• #5

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

 

Pièces jointes

• Classeur1.xlsm

  271.1 KB · Affichages: 4

Vote positif 0 Vote négatif

J

JHA

XLDnaute Barbatruc

• 15 Mars 2022

• #6

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

 

Vote positif 0 Vote négatif

A

akira21

XLDnaute Occasionnel

• 15 Mars 2022

• #7

Merci tout même pour ton aide

 

Vote positif 0 Vote négatif

S

st007

XLDnaute Barbatruc

• 15 Mars 2022

• #8

En formule tirée vers le bas

VB:

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

 

Pièces jointes

• Classeur1.xlsm

  270.1 KB · Affichages: 1

Vote positif 0 Vote négatif

S

st007

XLDnaute Barbatruc

• 15 Mars 2022

• #9

En valeur uniquement, si j'ai compris ta demande

 

Pièces jointes

• Classeur1.xlsm

  269.9 KB · Affichages: 3

Vote positif 0 Vote négatif

A

akira21

XLDnaute Occasionnel

• 15 Mars 2022

• #10

st007 à dit:

En valeur uniquement, si j'ai compris ta demande

Cliquez pour agrandir...

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

 

Vote positif 0 Vote négatif

J

JHA

XLDnaute Barbatruc

• 15 Mars 2022

• #11

Bonjour à tous,

Je te mets quand même la formule

JHA

 

Pièces jointes

• Classeur1.xlsm

  271.7 KB · Affichages: 2

Vote positif 0 Vote négatif

A

akira21

XLDnaute Occasionnel

• 15 Mars 2022

• #12

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

 

Vote positif 0 Vote négatif

S

st007

XLDnaute Barbatruc

• 15 Mars 2022

• #13

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

 

Pièces jointes

• Classeur1.xlsm

  205.3 KB · Affichages: 1

Dernière édition: 15 Mars 2022

Vote positif 0 Vote négatif

A

akira21

XLDnaute Occasionnel

• 16 Mars 2022

• #14

Bonjour et merci st007 pour votre aide

J'ai eu la solution sur un autre forum :

VB:

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

 

Vote positif 0 Vote négatif