selection date via calendrier

[ngs]

Bonsoir à tous,

A partir d'un calendrier, je voudrais que la date sélectionnée (au hasard) apparaisse sur la colonne D après que celle-ci (la date) ait été filtrée.

Quelqu'un aurait-il une solution?


Ci-joint le fichier.

Par avance, merci.

 

[ngs]

Re : selection date via calendrier

Bonsoir Jean- Michel,

Merci, c'est bien ce que j'attendais.

 

[job75]

Re : selection date via calendrier

Bonsoir ngs, Jean-Marcel,

Essayez simplement :

Private Sub Cmdb1_Click()
[D70].AutoFilter 1, Calendar1
UserForm1.Hide
End Sub

A+

 

[ngs]

Re : selection date via calendrier

Re bonsoir Jean- Marcel et non Jean Michel!

Toutes mes excuses

Et merci à toi Job75

 

[ngs]

Re : selection date via calendrier

Bonjour Jean- Marcel, Job75 et le forum,

le code ci-dessus apparemment marchait bien hier quand je l'ai testé sauf qu'aujourd'hui il ne fonctionnerait plus, ce qui est assez bizarre j'avoue. Je ne comprends pas.

Une explication?

 

[ngs]

Re : selection date via calendrier

par avance merci
ngs

 

[ngs]

Re : selection date via calendrier

Bonjour à tous,

je crois savoir le problème. Sur mon ordi personnel, j'ai la version 2007 d'excel alors qu'au bureau c'est celle de 2010.
Je l'ai encore testé ce matin et çà fonctionnait chez moi alors qu'au bureau non.

Alors, quelqu'un aurait-il une solution pour la version excel 2010? car c'est bel et bien au bureau que j'aurai besoin de cet outil.
Par avance, merci.
ngs

 

[job75]

Re : selection date via calendrier

Bonjour ngs,

Vous pourriez indiquer quel est le message d'erreur, non ? Mais en fait :

- le contrôle Calendar est un contrôle ActiveX d'Access

- et sur votre ordi avec Excel 2010 Access n'est probablement pas installé...

Voyez ce fil :

https://www.excel-downloads.com/threads/simplifier-luserform-calendrier.173456/

A+

 

[job75]

Re : selection date via calendrier

Re,

Salut Jean-Marcel 🙂 j'aurais dû te laisser intervenir car c'est toi qui m'as éclairé sur cette question.

A+

 

[ngs]

Re : selection date via calendrier

Bonjour à vous Jean -Marcel et Job75 ainsi qu'au forum.
Merci pour vos réponses.

Je regarde çà et reviens vers vous.

 

[ngs]

Re : selection date via calendrier

Bonjour Jean -Marcel, Job75 et le forum,

J'ai coché toutes les options nécessaires pour que le calendar controle fonctionne mais rien n'y fait.
Du coup, j'ai opté pour une autre solution avec le fichier joint;

Dans l'onglet "base", il ya un userform. A partir de ce userform, je souhaite saisir une date quelque qui devrait m'afficher les natures et les chiffres qui se trouvent dans l'onglet "archivage" . ex pour la date saisie 19/01/2012 , les données sont


Agios Appels de marge Benchmark Commissions de mouvements Contribution BVAL

: 1 586 1 1 22

J'ai écrit un petit code mais çà ne marche pas. J'espère avoir été clair. Quelqu'un a une idée?


Par avance, merci.
ngs

 

[ngs]

Re : selection date via calendrier

Re,

j'ai oublié de préciser que les données (date + natures) doivent apparaitre dans l'onglet "base".

Encore merci.

 

[job75]

Re : selection date via calendrier

Bonjour ngs,

Voyez cette macro dans le code de votre UserForm2 :

Sub Cmdvalidation_Click()
Dim lig1 As Variant, lig2 As Long
If Not IsDate(Txtbox) Then MsgBox "Date non valide !", 48: GoTo 1
With Sheets("archivage")
  lig1 = Application.Match(CDbl(CDate(Txtbox)), .[D:D], 0)
  If IsError(lig1) Then MsgBox "Date inexistante en archivage...": GoTo 1
  lig2 = Range("A65536").End(xlUp).Row + 1
  Cells(lig2, "A").Resize(, 6) = .Cells(lig1, "D").Resize(, 6).Value
End With
1 Txtbox.SetFocus
Txtbox.SelStart = 0
Txtbox.SelLength = Len(Txtbox)
End Sub

Fichier joint.

Edit : bien noter que Resize(, 6) permet de copier 6 valeurs, modifier si l'on en veut d'avantage.

A+

 

[ngs]

Re : selection date via calendrier

Bonjour job 75 et le forum
çà marche; reste à voir si c'est le cas sous excel 2010.
Demain, je teste çà et reviens vers toi.

Encore merci.
bonne journée

 

[ngs]

Re : selection date via calendrier

Bonsoir Job75 et le forum,
Sous excel 2010, çà fonctionne.

Merci.
ngs