Formule (ou VBA) pour obtenir prochaine date controle suivant tableau

Dranreb

XLDnaute Barbatruc

• 16 Novembre 2018

• #2

Bonsoir.

VB:

Function ProchPériode(ByVal Période As String, ByVal Catég As String) As String
Dim N As Long
N = Left$(Période, 4) * 12 - 1 + Right$(Période, 2) + Choose(Asc(Catég) - 64, 1, 3, 6, 12)
ProchPériode = N \ 12 & "M" & Format(N Mod 12 + 1, "00")
End Function

En C2, à propager sur 18 lignes :

Code:

=ProchPériode($A2;$B2)

 

Vote positif 0 Vote négatif

zebanx

XLDnaute Accro

• 16 Novembre 2018

• #3

Bonsoir Dranreb

Magnifique fonction. Je te remercie

Bonne soirée
zebanx

 

Vote positif 0 Vote négatif

zebanx

XLDnaute Accro

• 16 Novembre 2018

• #4

Bonsoir @job75

J'ai vu ta formule et t'en remercie.

L'ayant sauvegardé avant la suppression (???), si on rajoute une table pour une partie de ta formule, ça à l'air de bien fonctionner, qu'en penses-tu stp ?

#INDEX(K:N;EQUIV(A2;INDIRECT(RECHERCHEV(B2;$P$2:$Q$5;2;FAUX));0)+1;EQUIV(B2;K$1:N$1;0))


Merci d'avoir regardé en tout cas, très sympa comme toujours

zebanx

 

Pièces jointes

• Date controle.xls

  28 KB · Affichages: 18

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 16 Novembre 2018

• #5

Bonsoir zebanx, Bernard,

Ma 1ère formule était simple mais erronée.

Celle-ci est correcte je pense mais pas vraiment simple, en C2 :

Code:

=DECALER(J$1;EQUIV(A2;DECALER(J:J;;EQUIV(B2;K$1:N$1;0));0);EQUIV(B2;K$1:N$1;0))

A+

 

Pièces jointes

• Date controle(1).xls

  63.5 KB · Affichages: 21

Vote positif 0 Vote négatif

zebanx

XLDnaute Accro

• 16 Novembre 2018

• #6

Re-bonsoir

Impeccable

Tu vois que ce n'était pas ("que") si facile et j'ai trois solutions pour cette problématique, je suis très content.

Bonne nuit
@+
zebanx

 

Vote positif 0 Vote négatif