Inserer une date dans chaque cellules sélectionnée

Bonjour à tous.

Je suis nouveau sur ce site, j'ai déjà bien parcouru les cours et les exercices qui m'ont apportés pas mal de réponses mais voila, je ne m'y connais pas grand chose en VBA et je galère depuis plus d’une semaine

J'ai inséré dans une feuille un calendrier que lorsque que j'appuie sur l’ une des cases ( ici en vert) et que je clic sur une date du calendrier elle me l'affiche ... et que la date du jour reste affiché entre chaque clic, jusqu'ici tout va bien ...

... mais problème, je voudrais que la date s'affiche qu'uniquement dans les cellules sélectionnée en vert pour ne pas se tromper et que l'on puissent revenir en arrière.

je souhaiterai bien aussi que la date du jour du calendrier 12.0 soit représenté (en rouge par exemple ou autre signe) mais es-que c’est possible ?

Je vous mais le code, et mon fichier.

Je vous remercie beaucoup

Code:

Private Sub Calendar1_Click()

ActiveCell.NumberFormat = "ddddd dd-mmmm-yyyy"

ActiveCell = Calendar1.Value

End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

Me.Calendar1.Value = Date

End Sub

Bonjour à tous,

Bonjour galdouz,

Modifie ta macro comme ceci :

Private Sub Calendar1_Click()
If ActiveCell.Interior.ColorIndex = 43 Then
  ActiveCell.NumberFormat = "ddddd dd-mmmm-yyyy"
  ActiveCell = Calendar1.Value
End If
End Sub

Tu pourras ensuite ajouter des cellules supplémentaires avec la même couleur de fond, sans avoir besoin de changer quoi que ce soit dans le code.

Cordialement.

Bonjour,

Ça fonctionne super !!!

Un grand merci à Papou_net pour m’avoir trouvé la solution et ça rapidité, cela m’a permis de gagner un temps fou

Je n’aurais pas pensé à jouer sur la couleur du fond, très bonne idée !

Bien cordialement