code pour récupérer données d'une date

[nrdz83]

Bonjour à tous, voila dans mon fichier ci-joint je cherche à afficher les données qui correspondent à ma date choisie. Dans ma page accueil >j'ouvre mon formulaire> je choisi l'onglet plongée journalière> je choisis une date>> et je clique sur la commande visualiser et là je cherche à faire apparaitre toutes les plongées de la date correspondanté dans la listbox, déja est ce réalisable ?
D'avance merci à tous , amitiés et bonne journée

Cijoint.fr - Service gratuit de dépôt de fichiers

 

[skoobi]

Re : code pour récupérer données d'une date

Bonjour,

pour identifier la feuille correspondant au mois de la date choisie, écrit ceci:

Sheets(MonthName(Month(DTPicker1.Value)))

attention: il faut que le nom de l'onglet du mois colle exactement, il manque l'accent pour décembre

 

[nrdz83]

Re : code pour récupérer données d'une date

bonjour skoobi déja pour l'info de décembre.
J'ai mis ce code est ce correct ? apperement il bloque pour moi

Private Sub CommandButton3_Click()
Sheets (MonthName(Month(DTPicker1.Value)))
End Sub

a moins qu'il faut le mettre danbs un module ton code , merci de m'éclairer

amitiés

 

[nrdz83]

Re : code pour récupérer données d'une date

bonsoir à tous une aide svp ce code de skoobi je n'arrive pas à voir ou je dois le placer ?
Sheets(MonthName(Month(DTPicker1.Value)))
d'avance merci pour vos lumières

 

[skoobi]

Re : code pour récupérer données d'une date

Re,

dans le code du bouton "visualiser".

 

[nrdz83]

Re : code pour récupérer données d'une date

re bonsoir skoobi et merci pour ton aide
j'ai donc fais ça et ça bug
Private Sub CommandButton3_Click()
Sheets (MonthName(Month(DTPicker1.Value)))
End Sub

merci pour ton aide

 

[skoobi]

Re : code pour récupérer données d'une date

Arrfff, je pensais que tu savais quoi faire avec, par exemple:

MsgBox Sheets (MonthName(Month(DTPicker1.Value)))

ou

Mois = Sheets (MonthName(Month(DTPicker1.Value)))

PS: on peut pas aller bien loin dans le code car les mois sont vident...

 

[nrdz83]

Re : code pour récupérer données d'une date

non malheureusement j'ai aucune connaissance en vba, effectivement mon tableau est vide mais ce que je voudrais faire c'est le tableau rempli avec x données de x jours et moi je voudrais faire apparaitre les données remplies correspondantes à la date choisie via DTPicker.
et aussi ranger ces données dans la feuille "plongée journalière" de façon à pouvoir l'imprimer et l'envoyer par mail.
C'est peut être non réalisable je sais pas ? mais d'avance un grand merci
amitiés

 

[skoobi]

Re : code pour récupérer données d'une date

Re,

C'est peut être non réalisable je sais pas ?

On pourra très certainement t'aider mais cré au-moins une base de données en précisant bien ce que tu veux obtenir.
Par exemple, la feuille "plongée journalière" se complète au fur et à mesure?

 

[nrdz83]

Re : code pour récupérer données d'une date

moi en fait via le formulaire et l'usrform je rempli les données qui si rangent dans les feuilles correspondantes, ça ok ça fonctionnne et via l'userfom onglet plongée journalière je voudrais en fonction de la date extraire et ranger dans la feuille "plongée journalière" ces données.

 

[nrdz83]

Re : code pour récupérer données d'une date

bonjour à tous , bonjour skoobi voila j'ai modifier un peu mon classeur sur tes conseils skoobi, voila ce que je cherche à réaliser dans la feuille "plongée journalière", je clique sur afficher le formulaire> je choisi la date via le DTPicker2, je clique sur saisir et là je voudrais que l'userform2 se ferme,que la date choisie se mette en B2 et que ça me remplisse toutes les plongées qui correspondent à la date choisi, est réalisable?
tu m'avais donné un bout de code >>Sheets(MonthName(Month(DTPicker1.Value)))
Pour un essai j'ai remplie des données dans le mois de décembre .
D'avance merci à tous pour vos lumières, mes amitiés .

Cijoint.fr - Service gratuit de dépôt de fichiers

 

[skoobi]

Re : code pour récupérer données d'une date

Bonjour,

voici le code pour le bouton "Saisir" de l'userform2:

Private Sub CommandButton8_Click()
Dim Mois As String
'on vide "plongée journalière"
With Sheets("plongée journalière ")
  .Range("A6", .[A6].SpecialCells(xlCellTypeLastCell)).ClearContents
End With
'dans la feuille du mois ...
With Sheets(MonthName(Month(DTPicker2.Value)))
'on filtre le mois sur la date voulue
  .[A2].AutoFilter field:=1, Criteria1:=CStr(Format(DTPicker2.Value, .[A3].NumberFormat))
'on copie de colonne B à E vers "plongée journalière"
  .Range(.[B3], .Range("E" & .[A3].End(xlDown).Row)).SpecialCells(xlCellTypeVisible).Copy Sheets("plongée journalière ").[A6]
'on copie de colonne L à U vers "plongée journalière"
  .Range(.[L3], .Range("U" & .[A3].End(xlDown).Row)).SpecialCells(xlCellTypeVisible).Copy Sheets("plongée journalière ").[E6]
End With
'dans la feuille "plongée journalière"
With Sheets("plongée journalière ")
'on écrit la date en B2
  .[B2].Value = DTPicker2.Value
'on active "plongée journalière"
  .Activate
End With
Unload Me
End Sub

Bon test.

 

[nrdz83]

Re : code pour récupérer données d'une date

Bonjour skoobi, le top ton ode ça fonctionne impeccable je te remercie infiniement, et te souhaite une bonne journée , mes amitiés bye 🙄