Microsoft 365 renvoyer dernier mois ou les quantites ont changees

[STEPHANIE1975]

Bonjour à tous,

Je cherche une formule qui me renvois le dernier mois ou les quantités ont changées.

Merci de votre aide

 

[JHA]

Bonjour à tous,

A essayer

=INDEX($1:$1;EQUIV(INDEX(2:2;EQUIV(9^9;2:2));2:2;0))

JHA

 

[sylvanu]

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

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

 

[STEPHANIE1975]

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

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

Bonjour Sylvanu,

J'ai des lignes avec #NA!. Sur ces lignes il y a certains mois ou j'ai des quantités pendant 2 mois, puis 0 pendant 4 mois et de nouveaux des quantités. J'ai mis <>0 dans NB.SI mais des lignes #NA! apparaissent encore
Comment peux tu adapter cela?

 

[sylvanu]

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

 

[JHA]

Bonjour à tous,

Pas sur de tous avoir compris

JHA

 

[STEPHANIE1975]

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

Voila le fichier
Merci

 

[STEPHANIE1975]

Bonjour à tous,

Pas sur de tous avoir compris

JHA

Merci, mais je voudrais ces données au bout de mes lignes

 

[sylvanu]

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

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)

 

[R@chid]

Bonjour @ tous,
en Z2 :

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

@ tirer vers le bas

Cordialement

 

[STEPHANIE1975]

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

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)

Merci cela fonctionne bien, je ne pensais pas passer par une VBA.!!

 

[STEPHANIE1975]

Bonjour @ tous,
en Z2 :

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

@ tirer vers le bas

Cordialement

Merci, mais j'ai #CALC! sur des lignes soit avec aucuns mouvements ou que mes mouvements s'arrete par exemple en aout

 

[R@chid]

Re,
Voir PJ

 

[STEPHANIE1975]

Re,
Voir PJ

Cela retire #CALC! mais ne m'affiche le dernier mois de mouvement

 

[R@chid]

Merci de me le montrer sur un fichier