Discussion :

[EAU24]

Bonjour à tous,
Cette semaine, grâce à l’aide de Menhir, j’ai réussi à colorier dans un calendrier la cellule voisine de la date du jour afin de la mettre en évidence. Une fois que la date est passée, je souhaiterais qu’elle revienne à sa couleur d’origine. Est-ce possible ? Ci-joint le code VBA :

Code vba :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
Private Sub Worksheet_Activate()
Dim derlignebase As Long
Dim i As Long
Dim col As Byte
'détermine la dernier cellule
derlignebase = Cells.Find("*", , , , xlByRows, xlPrevious).Row
col = 19 'prochaine colonne = 21
'ce chiffre correspond a la colonne de recherche
    For i = 3 To derlignebase
 If Range(Cells(i, col), Cells(i, col)) = Date Then Range(Cells(i, col + 1), Cells(i, col + 1)).Select
    'Next i
    If Cells(i, col) = Date Then
        Cells(i, col + 1).Interior.color = RGB(252, 249, 111)
        Cells(i, col + 1).Select
   End If
    Next i
End Sub

Merci de vos conseils.

[ARTURO83]

Bonjour,

Pourquoi ne pas utiliser les MFC?

Exemple avec un calendrier en colonne
Pièce jointe 509621

Exemple avec un calendrier en tableau
Pièce jointe 509625

Dès que la date du jour est passée, la cellule retrouve sa couleur d'origine.

Cdlt

[Menhir]

Cette semaine, grâce à l’aide de Menhir, j’ai réussi à colorier dans un calendrier

Le code que je t'avais donné était propre.
Celui-ci est vraiment dégeu.

Une fois que la date est passée, je souhaiterais qu’elle revienne à sa couleur d’origine.

Il est beaucoup plus simple de supprimer la couleur de l'ensemble des cellules avant de colorer celle souhaitée.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Columns(col + 1).Interior.Color = xlColorIndexAutomatic

Mais, comme ARTURO83 ( ), je répète qu'une mise en forme conditionnelle est préférable pour faire ça.

[EAU24]

Bonjour Arturo83
Je me sers régulièrement de la fonction MFC et d'ailleurs dans l'exemple ci-joint la date du jour est mis en valeur par une couleur orangée avec l'utilisation de la fonction MFC. Seulement, la cellule mise en valeur est celle qui contient la date du jour et non celle d'à côté où j'inscris mes notes. Donc je veux que se soit également la cellule adjacente qui soit colorée et ça c'est pas possible avec la fonction MFC.
à moins que.....
Merci
EAU24

[ARTURO83]

Bonjour,

Si vous aviez appliqué la solution proposée (celle en tableau) vous auriez vu que ça marche
votre fichier
Pièce jointe 509761

Cdlt

[Pierre Fauconnier]

Salut.

L'utilisation des références absolues et relatives (le signe $ dans une référence) est de mise lors de la MFC formulée.

En sélectionnant les données puis en plaçant la MFC formulée, il est donc possible de colorier la ligne entière d'un tableau. Attention, lorsque la formule de la MFC contient des références relatives, celles-ci sont calculées en fonction de la cellule active au moment de la création de la MFC. Dans l'illustration suivante, j'ai sélectionné mon tableau après avoir cliqué sur A2, et la formule de la MFC est créée par rapport à A2. L'utilisation du signe $ dans la formule a ici toute son importance.

[EAU24]

Bonjour,

Si vous aviez appliqué la solution proposée (celle en tableau) vous auriez vu que ça marche
votre fichier
Pièce jointe 509761

Cdlt

Merci je ne savais pas....

[EAU24]

Salut.

L'utilisation des références absolues et relatives (le signe $ dans une référence) est de mise lors de la MFC conditionnelle.[...]

Merci !!!
Je ne perds jamais soit je gagne soit j'apprends....Bonne journée

EAU24