Microsoft 365 renvoyer dernier mois ou les quantites ont changees

sylvanu à dit:

Bonjour Stéphanie,
En insérant une colonne et la formule :

VB:

=INDEX($D$1:$ZZ$1;EQUIV(INDEX($D2:$ZZ2;NB.SI($D2:$ZZ2;">0"));$D2:$ZZ2;0))

Cliquez pour agrandir...

sylvanu à dit:

Re,
Donnez un fichier test où toutes les configurations sont présentes car sinon on ne peut pas tester.

Cliquez pour agrandir...

JHA à dit:

Bonjour à tous,

Pas sur de tous avoir compris

JHA

Cliquez pour agrandir...

sylvanu à dit:

Re,
Un essai en PJ avec une fonction VBA perso :

VB:

Function DernièreDate(Article$)
    L = Application.Match(Article, [B1:B10000], 0)
    Cmax = 3 + Application.CountIf([1:1], ">0") ' 3 car dates commencent en colonne D
    For C = Cmax To 4 Step -1
        If Cells(L, C) <> "" Then
            valeur = Cells(L, C)
            If Cells(L, C - 1) <> valeur Then Exit For
        End If
    Next C
    DernièreDate = Cells(1, C)
End Function

Syntaxe : =DernièreDate(Article)

Cliquez pour agrandir...

R@chid à dit:

Bonjour @ tous,
en Z2 :

VB:

=PRENDRE(FILTRE(E$1:Y$1;(D2:X2<>E2:Y2)*(E2:Y2<>""));;-1)

@ tirer vers le bas

Cordialement

Cliquez pour agrandir...

R@chid à dit:

Re,
Voir PJ

Cliquez pour agrandir...