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

zebanx

XLDnaute Accro
Bonsoir à tous,

Je suis coincé sur une formule (ou VBA) permettant de calculer automatiquement la prochaine date de contrôle suivant une catégorie qui rend un contrôle à fréquence variable (mois, trimestre, semestre, année).
Pourriez-vous m'aider svp à obtenir cette formule ou ce code ?
Le fichier excel reste toujours plus explicite.

Vous en remerciant, bonne soirée
zebanx
 

Pièces jointes

  • Date controle.xls
    18 KB · Affichages: 24

Dranreb

XLDnaute Barbatruc
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)
 

zebanx

XLDnaute Accro
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

job75

XLDnaute Barbatruc
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

Discussions similaires

Réponses
23
Affichages
1 K
Réponses
2
Affichages
309

Statistiques des forums

Discussions
314 653
Messages
2 111 574
Membres
111 204
dernier inscrit
Petko