XL 2016 alerte erreur si condition

[pika83]

Bonjour,
je n'arrive pas a mettre en place un tableau ayant des conditions et des mise en forme dont je ne maitrise pas.
Je m'explique : Il faut que les jours de TRV "M, A, N, D, DM, DA, STA, RF, CA,…" ne fassent pas plus de 5 jours, si la suite d'un de ces jours font plus de 5 jours consécutifs, alors la 6eme cellule se colorera en rouge.
Pourriez vous s'il vous plait m'aider a résoudre ce problème.

 

[JHA]

Bonjour à tous,

Un essai en pièce jointe avec des formules et des MFC.

Il faut peut-être mettre la liste "Index" à jour avec toutes les abréviations concernant les jours travaillés.

JHA

 

[job75]

Bonjour pika83, JHA, le forum,

Une solution VBA dans le fichier joint avec cette fonction personnalisée à placer impérativement dans un module standard :

Function MonAlerte(r As Range) As Boolean
If r.Count < 6 Then Exit Function
Dim a, i%
a = Array("M", "A", "N", "D", "DM", "DA", "STA", "RF", "CA")
For i = r.Count To r.Count - 5 Step -1
    If IsError(Application.Match(r(i), a, 0)) Then Exit Function
Next
MonAlerte = True
End Function

Elle est utilisée dans la formule de la MFC sur la plage A7:U13 =MonAlerte($A7:A7)

A+

 

[mapomme]

Bonjour, @pika83, @JHA, @job75,

Une MFC avec une formule:

=SOMME(1*ESTNUM(CHERCHE("," & A7:F7 & ",";",M,A,N,D,DM,DA,STA,RF,CA,")))=6

 

[pika83]

Bonjour, bravo et, merci a tous les trois, vous avez réussi an faire ce dont je n'arrivais pas.
Je vais pouvoir enfin finaliser mon tableur.
bonne journée.