Cellules en couleur et choisir une date

[Olivierporcinet]

Bonjour,

Dans tableau Xls, colonne A : dates jusqu'au 31 décembre.


J'ai créé un bouton pour aller directement dans la cellule de la date du jour.

Code :

1
2
3
4
5
6
7
Sub Bouton1_Clic()
LIGNE = 1
While Range("A" & LIGNE) <> Date
    LIGNE = LIGNE + 1
Wend
Range("A" & LIGNE).Select
End Sub

TOUT OK mais ...... est-il possible que cette cellule se colorie en fond jaune ?
puis elle redevienne blanche quand désélectionnée ?

Autre question : Je désire créer un deuxième bouton qui permette d'entrer une date et aller directement à cette date.
Possible aussi qu'elle se mette d'une autre couleur et redevienne blanche quand désélectionnée ?


Merci

[Access Newbie]

Bonjour,

Pour mettre de la couleur vous pouvez utiliser la synthaxe suivante :

Code :

Range("A" & LIGNE).Interior.Color = 8321783

(A mettre avant ou apres la ligne Range("A" & LIGNE).Select)

Pour la seconde question je vous invite a regarder du coté de l'evenement Worksheet_SelectionChange

Bon dev.

PS : pour la couleur, vous pouvez enregistrer une macro, vous mettez la couleur que vous voulez dans une cellule, vous arretez la macro et vous allez dans le code VBA, un bout de code aura été généré automatiquement, il ne vous reste plus qu'a l'adapter !

[Olivierporcinet]

merci.

cela fonctionne pour le jaune.
Comment faire pour que la cellule redevienne blanche quand on sélectionne une autre cellule ?

Merci

[Access Newbie]

Pour que la cellule redevienne blanche vous pouvez utiliser ce code :

Code :

1
2
3
4
5
6
7
8
9
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
 
If Target.Value = Date Then
    Target.Interior.Color = 8321783
Else
    Range("A2:A32").Interior.Color = 16777215
End If
 
End Sub

A mettre sur l'evenement Worksheet_SelectionChange de le feuille desirée et en supposant que votre plage de date soit de A2 à A32.

[Olivierporcinet]

MERCIIIIIIIIIII super.

Je n'ai plus qu'à régler mon 2ème problème....
J'ai déjà jeté un coup d'oeil mais compliqué...

Je suppose que comme j'ai mis code en Work Sheet je ne devrai plus le recopier pour mon 2ème exemple.

Merci