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

skoobi

XLDnaute Barbatruc

• 15 Décembre 2008

• #2

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:

Code:

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

 

Vote positif 0 Vote négatif

nrdz83

XLDnaute Impliqué

• 15 Décembre 2008

• #3

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

 

Dernière édition: 15 Décembre 2008

Vote positif 0 Vote négatif

nrdz83

XLDnaute Impliqué

• 15 Décembre 2008

• #4

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

 

Vote positif 0 Vote négatif

skoobi

XLDnaute Barbatruc

• 15 Décembre 2008

• #5

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

Re,

dans le code du bouton "visualiser".

 

Vote positif 0 Vote négatif

nrdz83

XLDnaute Impliqué

• 15 Décembre 2008

• #6

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

 

Vote positif 0 Vote négatif

skoobi

XLDnaute Barbatruc

• 15 Décembre 2008

• #7

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

 

Vote positif 0 Vote négatif

nrdz83

XLDnaute Impliqué

• 15 Décembre 2008

• #8

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

 

Vote positif 0 Vote négatif

skoobi

XLDnaute Barbatruc

• 15 Décembre 2008

• #9

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

Re,

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

Cliquez pour agrandir...

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?

 

Vote positif 0 Vote négatif

nrdz83

XLDnaute Impliqué

• 15 Décembre 2008

• #10

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.

 

Vote positif 0 Vote négatif

nrdz83

XLDnaute Impliqué

• 16 Décembre 2008

• #11

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

 

Vote positif 0 Vote négatif

skoobi

XLDnaute Barbatruc

• 16 Décembre 2008

• #12

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

Bonjour,

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

Code:

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.

 

Vote positif 0 Vote négatif

nrdz83

XLDnaute Impliqué

• 16 Décembre 2008

• #13

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 🙄

 

Vote positif 0 Vote négatif