Insertion d'une date dans une cellule...

[djflnj]

Bonjour à toutes et tous,

Après avoir fouiller un peux partout sur le forum et essayés pas mal de fichiers
je ne suis pas arrivé à se que je voulais, alors je viens chercher un peut aide vers d'autre personnes.

Je souhaiterais que quand je clique sur un bouton, que celui-ci ouvre un calendrier et que je puisse dans ce calendrier sélectionner une date et que cette date se mette dans une cellule précise ex: J8

Voici les fichiers que j'ai testé: PT calendrier, planning, mDF_Calendrier22, ComptePersoV1, CalendrierTableur1dateHeure, Compte perso à faire Dan....

merci de pouvoir m'aider

 

[coco_lapin]

Re : Insertion d'une date dans une cellule...

Bonjour djflnj et le forum,

Classeur attaché à essayer.

 

[djflnj]

Re : Insertion d'une date dans une cellule...

Bonjour djflnj et le forum,

Classeur attaché à essayer.

bonsoir,

merci c'est presque cela que je veux, mais pour une question est esthétique je souhaiterai que au lieu de cliquer sur une cellule je voudrais cliquer sur un bouton pour faire apparaître le calendrier et que quand je sélectionne une date cette date apparaisse dans la cellule j8.

merci

 

[nat54]

Re : Insertion d'une date dans une cellule...

Bonjour,

Y a t il une manip à faire en plus de copier/coller le code dans feuil1 ?

Private Sub Calendar1_Click()
ActiveCell = Calendar1.Value
Calendar1.Visible = False
End Sub
 
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
  Calendar1.Visible = False
  If (ActiveCell.Row = 1 And ActiveCell.Column = 1) Then
    Calendar1.Visible = True
  End If
End Sub

car j'ai voulu tester dans un de mes classeurs
erreur d'execution 424 : objet requis

et en cliquant sur debogage
ligne surlignée en jaune
= Calendar1.Visible = False

 

[djflnj]

Re : Insertion d'une date dans une cellule...

Bonjour,

Y a t il une manip à faire en plus de copier/coller le code dans feuil1 ?

Private Sub Calendar1_Click()
ActiveCell = Calendar1.Value
Calendar1.Visible = False
End Sub
 
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
  Calendar1.Visible = False
  If (ActiveCell.Row = 1 And ActiveCell.Column = 1) Then
    Calendar1.Visible = True
  End If
End Sub

car j'ai voulu tester dans un de mes classeurs
erreur d'execution 424 : objet requis

et en cliquant sur debogage
ligne surlignée en jaune
= Calendar1.Visible = False

bonsoir,

moi je n'ai pas eu cette erreur !
mais je vais essayer cette macro.

a+

 

[coco_lapin]

Re : Insertion d'une date dans une cellule...

Pour djflnj voir les modif dans le classeur attaché.

Pour nat54, soit tu utilises le classeur complet comme le fait djflnj soit tu copies les macros mais alors il faut aussi sélectionner le contrôle calendrier.

Pour sélectionner le contrôle calendrier faire:
Affichage/barres d'outils/boîte à outils contrôle/Autres contrôles puis choisir le contrôle calendrier.

 

[djflnj]

Re : Insertion d'une date dans une cellule...

Pour djflnj voir les modif dans le classeur attaché.

Pour nat54, soit tu utilises le classeur complet comme le fait djflnj soit tu copies les macros mais alors il faut aussi sélectionner le contrôle calendrier.

Pour sélectionner le contrôle calendrier faire:
Affichage/barres d'outils/boîte à outils contrôle/Autres contrôles puis choisir le contrôle calendrier.

bonsoir,

parfait, nickel, j'ai pu l'adapter à mon menu de facturation

pour moi maintenant cela est résolu.

 

[nat54]

Re : Insertion d'une date dans une cellule...

merci coco_lapin

 

[djflnj]

Re : Insertion d'une date dans une cellule...

merci coco_lapin

BONJOUR,

bien reçu ta réponse, à quel endroit peut on clore la discution et mettre un résolu au cas ou elle puisse servir à quelqu'un autre...

merci encore

 

[DoubleZero]

Re : Insertion d'une date dans une cellule...

Pour sélectionner le contrôle calendrier faire:
Affichage/barres d'outils/boîte à outils contrôle/Autres contrôles puis choisir le contrôle calendrier.

Bonjour à toutes et à tous,

Et merci à coco_lapin.

Cordialement,