XL 2019 Sélecteur de dates

Caninge

XLDnaute Accro
Bonjour à tous,

il y a quelques temps j'avais demandé de mettre un sélecteur de dates sur mon tableau et comme je n'arrivais pas à comprendre
les demandes des membres du forum, j'avais laissé tomber faute de comprendre.
J'ai trouvé sur le site une réponse à mon problème. J'ai trouvé un fichier avec un sélecteur de dates incorporé.
Ce sélecteur de dates fonctionne uniquement sur la Cellule C3.
Ma question est : peut-il fonctionner sur les cellules de E2 à E 20.
J'ai regardé dans la VBA comment cette macro fonctionne uniquement sur la cellule C3 quelle ligne quel endroit ???
Merci de bien vouloir m'aider.
 

Pièces jointes

  • Selecteur de dates.xlsm
    42.3 KB · Affichages: 27

M12

XLDnaute Accro
Bonjour,

Remplace par cette macro dans la feuil1
VB:
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
  If Not Application.Intersect(Target, Range("E2:E20")) Is Nothing Then
    If Target.Count > 1 Then Exit Sub
    UFmCalend.Posit Target, 0, 1
    Target(1, 1).Value = UFmCalend.Saisie("", Target(1, 1).Value, Date)
  End If
End Sub
 

Caninge

XLDnaute Accro
Bonjour, pierrejean et M12

j'ai pris le fichier de pierrejean que je salue bien !
j'ai fait un copier-coller de l'userform dans mon fichier d'origine.
dans l'affichage du code il y a sans doute des modifications à effectuer
mais comme d'habitude je suis perdu corps et biens.
ma plage de cellules est B6 - B8100 nommé "Dates"
Mon fichier s'appelle Compte de la maison
et la feuille concernée "Saisie"
je suppose qu'il y a des modifications à effectuer dans toutes ses lignes.
Merci
 

M12

XLDnaute Accro
Re,
La macro de pierrejean est identique à la mienne
regarde simplement cette ligne dans la macro de la feuille
VB:
If Not Application.Intersect(Target, Range("E2:E20")) Is Nothing Then

Au départ tu as demandé d'appliquer la macro de E2 à E20
maintenant de B6 à B8100

Avec une trés forte réflexion, tu devrais trouver tout seul
 

Discussions similaires