XL 2016 Macro sélection date départ

Robert

XLDnaute Barbatruc

Repose en paix

• 15 Août 2016

• #2

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...

 

Vote positif 0 Vote négatif

M

MORISS

XLDnaute Junior

• 15 Août 2016

• #3

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

 

Vote positif 0 Vote négatif

Robert

XLDnaute Barbatruc

Repose en paix

• 15 Août 2016

• #4

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.

 

Vote positif 0 Vote négatif

Dranreb

XLDnaute Barbatruc

• 15 Août 2016

• #5

Bonjour.
Essayez le mien.

 

Pièces jointes

• MonCalenMORISS.xlsm

  42.3 KB · Affichages: 68

Vote positif 0 Vote négatif

M

MORISS

XLDnaute Junior

• 15 Août 2016

• #6

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

 

Dernière édition: 15 Août 2016

Vote positif 0 Vote négatif

Dranreb

XLDnaute Barbatruc

• 15 Août 2016

• #7

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.

 

Vote positif 0 Vote négatif

M

MORISS

XLDnaute Junior

• 15 Août 2016

• #8

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é.

 

Vote positif 0 Vote négatif

M

MORISS

XLDnaute Junior

• 16 Août 2016

• #9

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

 

Vote positif 0 Vote négatif

Dranreb

XLDnaute Barbatruc

• 16 Août 2016

• #10

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.

 

Vote positif 0 Vote négatif

M

MORISS

XLDnaute Junior

• 16 Août 2016

• #11

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

 

Dernière édition: 16 Août 2016

Vote positif 0 Vote négatif

Dranreb

XLDnaute Barbatruc

• 16 Août 2016

• #12

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.

Cliquez pour agrandir...

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

 

Vote positif 0 Vote négatif

Dranreb

XLDnaute Barbatruc

• 16 Août 2016

• #13

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 :

VB:

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

 

Vote positif 0 Vote négatif

M

MORISS

XLDnaute Junior

• 16 Août 2016

• #14

Merci pour votre retour,

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

1000 Merci

Cordialement

 

Vote positif 0 Vote négatif

M

MORISS

XLDnaute Junior

• 28 Août 2016

• #15

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

 

Vote positif 0 Vote négatif