Calendrier et date

A

AfroDurf

Guest
Bonjour,

j'ai réalisé une facture ou tout est automatisé (sélection des articles, prix, prix en lettre, mois numéro ect..)

Cependant, il me reste une chose que j'aimerais faire mais sur laquelle je bloque!!!

En fait cela concerne la date de facturation.

Je m'explique, je voudrait créer un bouton (macro) qui sur click ouvre une combo.box (je crois que cela ce nomme comme ça). C'est boite de dialogue représenterait un mois d'un calendrier avec la possibilté de changer de mois sur un click pret du mois et surtout quand je click sur un jour cela ecrit la date dans la cellule voulue.

Si quelqu'un a une idée ou une piste!!

Merci d'avance
 

Pièces jointes

  • Calendrier.xls
    14 KB · Affichages: 35
  • Calendrier.xls
    14 KB · Affichages: 44
  • Calendrier.xls
    14 KB · Affichages: 44
A

AfroDurf

Guest
Je persiste et signe,

pour le bouton c bon mais ce que je voudrait c sur click dans le calendrier c'est que la date s'affiche à un endroit précise et pas dans la cellule sélectionnée
 

Pièces jointes

  • Calendos.zip
    10.8 KB · Affichages: 28
  • Calendos.zip
    10.8 KB · Affichages: 32
  • Calendos.zip
    10.8 KB · Affichages: 30
J

Jean-Marie

Guest
Bonjour AfroDurf

Tourve dans le VBA le code de cette procèdure Private Sub Calendar1_Click,
et change la ligne :
ActiveCell = Format(Calendar1, " DD mmm YY") ' adapter le format

par

Sheets("Feuil1").Range("A1")= Format(Calendar1, " DD mmm YY")
pour l'écrire dans la cellule A1 de la feuille Feuil1

Bonne journée

@+Jean-Marie
 

Discussions similaires

Réponses
9
Affichages
635

Statistiques des forums

Discussions
313 916
Messages
2 103 534
Membres
108 707
dernier inscrit
JJ69