Inscrire une date dans des cellules d'un sélecteur de date

Bonjour à tous,

Je souhaiterai pouvoir renseigner des dates pour chaque ligne de la colonne "Date de facture" (colonne E) de mon tableau.

J'ai trouvé comment le faire pour une seule cellule mais trop fastidieux pour le dupliquer sur chaque lignes du tableau.

Pour être plus précise : Je souhaite qu'en cliquant sur la cellule E4 (puis E5, puis E6....) par exemple, un calendrier s'affiche (selon le même système qu'un menu déroulant), et qu'après avoir sélectionner la date choisie, le calendrier se referme.

Pourriez-vous m'indiquez la procédure à suivre (ou me rediriger vers le tuto qui m'expliquerait ?)

Merci d'avance pour votre aide.

Bonjour

Un fichier est TOUJOURS le bienvenu

il faudra modifier la macro

Private Sub Worksheet_SelectionChange(ByVal Target As Range) 'pour une feuille
  If Target.Count > 1 Then Exit Sub
  If Target.Column <> 5 Then Exit Sub
  Calendar.LabelDate = ActiveCell.Value
  Calendar.Show
  If Len(Calendar.LabelDate) > 0 Then ActiveCell = CDate(Calendar.LabelDate)
  Unload Calendar
End Sub

Pour y acceder clic droit sur l'onglet Feuil1 et choisir visualiser le code

Ajouter : If Target.Column <> 5 Then Exit Sub

pour qu'il ne traite que la colonne E

A+ François

Bonjour François,

J'ai pourtant bien joins mon fichier à ma demande (je le vois au commencement de mon texte. Il se nomme "Selecteurdates"

Je viens de copier/coller ta macro en ajouter ta dernière remarque à la fin mais ça ne semble pas fonctionner.

Je remets le fichier en version xlms.

Re-Bonjour,

Ok, J'ai compris. Je n'avais pas placer "If Target.Column <> 5 Then Exit Sub" au bon endroit.

La macro est donc

Je remets donc mon fichier avec la macro (si d'autres personnes sont intéressées).

Merci beaucoup François pour ton aide.

Bonne journée