XL 2016 plusieurs mise en forme conditionnelle

[Saintes7010]

Bonjour,
Dans mon tableau de planning, j'ai plusieurs mise en forme conditionnelle.
J'ai "C" qui s'affiche en rouge dans le planning. J'aimerais qu'à partir d'une date donnée dès que je rente un "C" dans mon planning il s'affiche en vert et les autre "C" reste en rouge.
Pouvez-vous m'aider ?
merci

 

[Staple1600]

Bonsoir le fil, le forum

Pouvez-vous m'aider ?

Oui
Comment ?
Rapidement ou pas rapidement?
Si rapidement, le demandeur peut joindre un fichier exemple pour faciliter la résolution de la question
Sinon simplement lire ce message sans rien faire ensuite

 

[Saintes7010]

Voilà mon fichier

 

[Staple1600]

Bonjour le fil, le forum, Saintes7010

@Saintes7010
J'aurais plutôt écrit la 1er MFC comme ceci non?
Régle
=ET($AD$1>$A$1;C7="c")
S'applique à
=$C$7:$AG$11

Pour le reste à priori, il faudrait passer par VBA, non ?

 

[Saintes7010]

Merci beaucoup, je vais essayer cela.
As-tu un code VBA a me proposer ?
Merci beaucoup

 

[Saintes7010]

Bonjour à tous,
Qui pourrait m'aider pour ce code en VBA ? Je m'y connais pas beaucoup
Merci pour votre aide

 

[job75]

Bonjour Saintes7010, JM,

Il faut bien comprendre qu'il est nécessaire d'affecter une date à chaque "c" entré dans la plage C7:AG11.

Voyez le fichier joint et ce code VBA qui crée un tableau nommé Dates :

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Intersect(Target, [T]) Is Nothing Then Exit Sub
Dim dat As String
Cancel = True
dat = InputBox("Entrez la date que vous voulez affecter à " & Target(1).Address(0, 0) & " :")
If IsDate(dat) Then Creer_Date Target, CDbl(CDate(dat))
End Sub

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, [T]) Is Nothing And Target.Count = 1 And _
    LCase(Target(1)) = "c" Then Creer_Date Target, CDbl(Date) 'date du jour
End Sub

Sub Creer_Date(c As Range, dat As Double)
Dim a()
If Not IsArray([Dates]) Then
    ReDim a(1 To [T].Rows.Count, 1 To [T].Columns.Count)
    Me.Names.Add "Dates", a 'création du nom défini dans la feuille
End If
a = [Dates]
a(c.Row - [T].Row + 1, c.Column - [T].Column + 1) = dat
Me.Names.Add "Dates", a 'modification du nom défini dans la feuille
End Sub

A+

 

[job75]

Re,

Un très gros bémol à la méthode précédente.

Il faut savoir que la formule d'un nom défini ne peut pas comporter plus de 8192 caractères.

Le nom Dates atteindra cette limite dès qu'il y aura quelques dizaines de noms en colonne B.

A+

 

[Saintes7010]

Merci beaucoup Job 75,
J'ai deux, trois petits question :
Comment je fais pour agrandir mon tableau ? (avec plus d'employés ?)
Y-a-t-il pas moyen de fixer une date automatique à "C" par exemple la date du jour ou l'on introduit à "C" et qui change alors de couleur en fonction de la date du jour ? (je m'explique : j'introduit "C" le 09 juin, il s'imprime en rouge; le 12 juin qu'on j'introduis un "C" il sera vert par exemple)
Comment changer les couleurs ?
En te remerciant

 

[job75]

Re,

La solution la plus simple est de stocker les dates dans le tableau en jaune de ce fichier (2) :

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Intersect(Target, [T]) Is Nothing Or LCase(Target(1)) <> "c" Then Exit Sub
Dim dat As String
Cancel = True
dat = InputBox("Entrez la date que vous voulez affecter à " & Target(1).Address(0, 0) & " :")
If IsDate(dat) Then Target(1, 34) = CDate(dat)
End Sub

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, [T]) Is Nothing And Target.Count = 1 Then _
    Target(1, 34) = IIf(LCase(Target) = "c", Date, "") 'date du jour
End Sub

Formules de la MFC :

=DECALER(C7;;33)>=$A$1
=EXP(LN(DECALER(C7;;33)))<$A$1

A+

 

[Saintes7010]

Merci beaucoup Job 75

 

[job75]

Re,

Avec ce fichier (3) le double-clic affiche dans l'InputBox la date déjà enregistrée :

dat = InputBox("Entrez la date que vous voulez affecter à " & Target(1).Address(0, 0) & " :", , Target(1, 34))

A+

 

[Saintes7010]

Bonjour à tous,
Autre question
Dans mon calendrier de congés, j'aimerai calculer le nombre de "C" ou "CA" qui se trouvent dans la semaine n° 3 par exemple. tout en sachant que ma semaine ne commence par nécessairement par un lundi et que cela change en fonction des année.
J'ai essayé avec la fonction rechercheV et NB.SI mais je n'y arrive pas.
Qui pourrais m'aider ?
Merci d'avance

 

[job75]

Bonjour Saintes7010,

On ne peut pas dire que vous cherchez beaucoup, formule élémentaire en AL7 du fichier joint :

=SOMMEPROD((D8:AG1000=AL5)*(D6:AG6=AL6))

A+

 

[Saintes7010]

Merci beaucoup Job 75