XL 2016 Macro sélection date départ

[MORISS]

Bonjour,

Je viens vers vous car je souhaiterais savoir s'il existe une macro qui ajoute à chaque cellules de catégorie date (01/01/2016) une sélection de date de départ automatique.

Merci d'avance pour votre aide

Bien cordialement

 

[Robert]

Monjour Borris, Fonjour le Borum,

Désolé mais je n'ai rien compris !... C'est quoi une cellule de catégorie date ? C'est quoi une "sélection" de date de départ automatique ? Peut-être jeter un œil dans l'onglet Accueil du coté de Remplissage / Série...

 

[MORISS]

Bonjour,

Merci pour votre retour,

Je cherche une macro qui donne la même fonction que sur le lien suivant : https://support.office.com/fr-fr/article/Insérer-un-sélecteur-de-dates-afa0aea0-d4e3-4424-8e0a-c08f65928f84
Je voudrais juste que quand je clique sur une cellule de type date il m'ouvre un petit calendrier.

Cordialement

 

[Robert]

Re,

Arf ! Là c'est beaucoup plus clair !... Mais je ne dispose pas des contrôles "calendrier" sur mon PC et ne pourrai donc t'être d'aucune utilité sur ce coup. Sache quand même que ça risque de planter si le fichier est utilisé par un utilisateur qui, comme moi, ne dispose pas de ces contrôles sur son PC.
Il existe d'autres solutions proposées par des membres de ce forum mais je ne me souviens plus par qui. Fait une recherche avec le mot clé "calendrier". Sinon d'un éminent ancien membre, que je salue au passage, ici.

 

[Dranreb]

Bonjour.
Essayez le mien.

 

[MORISS]

Bonjour et merci pour votre retour,

Quand je teste le fichier de Dranreb il me signale que mon système est sous 64 bits et non en 32 bits.

Serait-il possible de le modifier pour qu'il soit fonctionnel pour tout les systèmes.

Merci d'avance pour votre aide

 

[Dranreb]

Essayez voir en ajoutant le mot clé PtrSafe entre Déclare et Function dans les deux instructions au début de l'UFmCalend.
Chez moi ça n'empêche pas le fonctionnement mais ça ne sert plus à rien.

 

[MORISS]

Bonjour,

Merci pour aide, cela fonctionne je vais essayé de l'installer sur ma feuille excel.

Un grand merci à vous pour votre temps et votre rapidité.

 

[MORISS]

Bonjour,

Je reviens vers car j'ai tester le transfert, mais cela me génère une erreur : Erreur de compilation : Nom ambigu détecté : Worksheet_SelectionChange.

Merci d'avance pour votre aide

 

[Dranreb]

Bonjour.
Il ne peut y avoir qu'une seule procédure portant un certain nom dans un module.
Mettez les instructions qu'il faut à la fin du code de celle existante, par exemple.

 

[MORISS]

Bonjour,

J'ai fait la modification, y a t-il une solution pour afficher le calendrier même si la cellule est vide, mais que la cellule est en fonction date.

Merci d'avance

Bien cordialement

 

[Dranreb]

Comprends pas "que la cellule est en fonction date."

Je voudrais juste que quand je clique sur une cellule de type date il m'ouvre un petit calendrier.

Lorsqu'une cellule est vide elle est de type Empty, pas Date.
Ne pouvez vous trouver tout seul votre critère ?

 

[Dranreb]

Remarque: cette version aurait de fortes chances de ne réagir qu'aux cellules, même vides, pré-équipées d'un format de date comportant l'année :

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Set Target = Target(1, 1)
If Target.NumberFormat Like "*y*" Then
  UFmCalend.Posit Target, 0, 1
  Target.Value = UFmCalend.Saisie("", Target.Value, Date)
  End If
End Sub

 

[MORISS]

Merci pour votre retour,

Cela fonctionne à 100%, un grand merci à vous pour votre temps.

1000 Merci

Cordialement

 

[MORISS]

Bonjour,

Je reviens vers vous car j'aimerais savoir comment exclure une cellule de l'affichage automatique du calendrier.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Set Target = Target(1, 1)
If Target.NumberFormat Like "*y*" Then
UFmCalend.Posit Target, 0, 1
Target.Value = UFmCalend.Saisie("", Target.Value, Date)
End If
End Sub

Merci d'avance

Bien cordialement