XL 2019 Sélecteur de dates

[Caninge]

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.

 

[M12]

Bonjour,

Remplace par cette macro dans la feuil1

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

 

[pierrejean]

Bonjour Caninge
A tester:

 

[Caninge]

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]

Re,
La macro de pierrejean est identique à la mienne
regarde simplement cette ligne dans la macro de la feuille

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

 

[Caninge]

Rebonjour,

oui j'avais penser à modifier B6:B8100. mais ça bug
si je met par exemple B6: 100 par exemple : ça fonctionne !!!
Je ne comprend pas

 

[M12]

Re,
A tester de B6 à B8100

 

[job75]

Bonjour Caninge, M12, Pierre, le forum,

Si l'on sélectionne toutes les cellules de la feuille il y a bug sur If Target.Count > 1 Then...

Il faut utiliser If Target.CountLarge > 1 Then...

Bonne journée.

 

[M12]

Bonjour job75

Bien vu 😉

 

[Caninge]

Bonjour à tous,

j'ai fais la correction préconisé par JOB75 et chou blanc

Je jette l'éponge

merci quand même