Intersection en surbrillance selon la date du jour

Bonjour,

Mon tableau se compose de 12 colonnes, de janvier à décembre, et de 31 lignes, les jours.

Il est rempli de chiffres.

Je voudrais mettre en surbrillance la cellule du jour J.

Merci à vous

Bonjour,

Sub test()
    [tablo].Cells(Day(Date), Month(Date)).Select
End Sub

Soyons économique ! Inutile de nommer tout ton tableau, tu nommes la cellule qui contient le 1er janvier (et qui est donc la cellule supérieure gauche du tableau).

Tu remplaces Select par une mise en couleur (auquel cas faut prévoir de l'enlever le lendemain...) où ce que tu souhaites comme signalisation.

Cordialement.

Bonjour,

Voilà à tester voir si ça te conviens et donc à appliquer sur ton fichier puisque tu ne l'a pas joint à ta demande.

Cordialement.

Je ne parviens pas à ouvrir la MFC, excel plante, voici mon fichier, merci pour votre aide.

Re,

Autre solution :

Function REFJOUR()
    Application.Volatile
    REFJOUR = [tablo].Cells(Day(Date), Month(Date)).Address
End Function

Fonction personnalisée qui renvoie l'adresse de la cellule correspondant au jour (après avoir nommé la cellule qui contient le 1er janvier, comme indiqué précédemment).

Tu mets en place une MFC (qui s'applique par exemple à B2:M32 si le 1er janvier est en B2) avec la formule conditionnelle suivante :

=CELLULE("adresse";B2)=refjour()

Et tous les jours, le jour sera signalé selon la mise en forme choisie.

Cordialement.

Illustration :

Désolé, je ne comprends pas et mon fichier Excel plante à chaque fois que je tente de l'ouvrir.

Bonjour,

voilà la même solution adaptée à ton fichier.

Cordialement.