Mise en forme conditionnelle selon le jour coché

Bonjour à tous,

Je souhaiterais que des cellules se mettent en forme automatiquement :

- Le Lundi est coché = Tous les lundis sont cochés dans le calendrier automatique (et ainsi pour tout les jours).

- Le calendrier change automatiquement donc le positionnement des jours n'est pas le même

- Les lignes n'ont pas toujours les mêmes jours cochés.

Voici un petit exemple :

LunMarMerMarMerJeu
XXX
XX
XX

En espérant avoir été le plus clair possible, je mets un cas concret en pièce jointe :

Merci par avance de vos réponses et de votre aide !

16test.xlsx (15.91 Ko)

Bonjour,

Par formule : (à mettre en H12 et tirer dans tous les sens...)

=SI(GAUCHE(TEXTE(H$11;"jjj");3)=$C$11;$C12;

SI(GAUCHE(TEXTE(H$11;"jjj");3)=$D$11;$D12;

SI(GAUCHE(TEXTE(H$11;"jjj");3)=$E$11;$E12;

SI(GAUCHE(TEXTE(H$11;"jjj");3)=$F$11;$F12;

SI(GAUCHE(TEXTE(H$11;"jjj");3)=$G$11;$G12;"")))))

sinon en macro à mettre dans le module de la feuille concernée :

Private Sub Worksheet_Change(ByVal Target As Range)
If Target = [B4] Then test
End Sub

Private Sub test()
Dim Arr, i, k
For i = 3 To 7
Arr = Range(Cells(12, i), Cells(24, i)).Value
   For k = 8 To 38
      If Left(Cells(11, k).Text, 3) = Cells(11, i) Then
         Range(Cells(12, k), Cells(24, k)) = Arr
      End If
   Next
Next
End Sub

A+

Salut galopin01 , luoong

Une autre proposition :

8test.xlsx (16.08 Ko)

une formule MFC pour colorer les cases :

=INDIRECT(ADRESSE(LIGNE();2+JOURSEM(INDIRECT(ADRESSE(11;COLONNE()));2)))="X"

Et une formule de feuille pour cocher les cases :

=SI(INDIRECT(ADRESSE(LIGNE();2+JOURSEM(INDIRECT(ADRESSE(11;COLONNE()));2)))="X";"X";"")

Bonjour

Je vous remercie de votre aide, Amir et Galopin. C'est exactement ce que je voulais.

Bonne journée 😆 à vous

Rechercher des sujets similaires à "mise forme conditionnelle jour coche"