Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

XL 2019 Suivi de musculation-cardio/remise en forme (des MEF à appliquer)...

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

anthoYS

XLDnaute Barbatruc
Bonjour


voir le fichier joint

toute explication et résultat attendu en feuil2.

sinon le jour en cours doit être coloré de jaune (A).
même si cellule concaténée...


Merci
 

Pièces jointes

Bonjour Antho,
Un essai en PJ. J'ai opté pour un simple clic en colonne F. Un 1er clic met en vert, un second supprime le vert.
VB:
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
On Error GoTo Fin
    If Target.Count > 1 Then Exit Sub
    If Not Intersect(Target, Range("E2:E17")) Is Nothing Then
        Dim L, C
        L = Target.Row
        C = IIf(Cells(L, "B").Interior.Color = vbGreen, xlNone, vbGreen)
        Range("B" & L & ":E" & L).Interior.Color = C
        Range("F" & L).Select
    End If
Fin:
End Sub
Et pour le jaune, une MFC :
Code:
=TEXTE(AUJOURDHUI();"jjjj")=A2
 

Pièces jointes

- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…