Extraire des données sur des dates

[LAURA15]

Maintenant que j'ai compris comment récuperer une date dans une celleule et bien sur dans une variable
je voudrais pouvoir me servir de cette date pour récuperer des données qui sont sur une feuille
Les données qui sont sur cette feuille sont importées chaque jour d'access par uen macro qui est deja faites
On ne peut donc rien prevoir ni les jours ni le nombres d'enregistrement
Mais je voudrais je voudrais que sur une autre feuille n'apparaisse que les lignes qui correspondent a la date qui est choisie sur le calendrier ceci si possible en dynamique
Bon j'ai essayer de commencer dites moi deja si c la bonne voie et il me manque quand meme des mots

Sub Extraire_Date()

Public Sub Repart_Mois_Recettes()
Dim D
Dim C
D = Range('F1').Value
Sheets('BASE_RECETTES').Select

For Each C In Range('a6:a' & Range('a65536').End(xlUp).Row)
If D????
For 1 to 9????
End If
End Sub
[file name=trieDate.zip size=18137]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/trieDate.zip[/file]

 

[LAURA15]

Bon pour la ligne public sub c'est une erreur de copie coller
Pas douée mais bon a ce point
Sub Extraire_Date()


Dim D
Dim C
D = Range('F1').Value
Sheets('BASE_RECETTES').Select

For Each C In Range('a6:a' & Range('a65536').End(xlUp).Row)
If C ????
For 1 to 9????
End If
End Sub
Laura

 

[JC de Lorient]

bonjour tt le monde

il me semble qu'une fonction serait peut etre aussi simple

en nommant les dates dans la feuille base : date
en nomment la colonne chèque CHQ

en F14 de la feulle1 on pourrait avoir ceci :
=SOMME.SI(date;F1;CHQ)


a suivre

JC

 

[LAURA15]

Oui interessant si on veut uniquement le total je pense mais je préférerait qu'il me recopie toutes les lignes concernant la date sélectionnée
merci quand meme

 

[Hervé]

Bonjour laura, JC

Essayes comme ceci :

Sub Bouton5_QuandClic()
Dim c As Range
Dim k As Byte
Dim ligne As Integer

Range('f14:i100').Clear
ligne = 14
With Sheets('BASE_RECETTES')
For Each c In .Range('b6:b' & .Range('b65536').End(xlUp).Row)
If c = Range('f1') Then
For k = 6 To 9
Cells(ligne, k) = .Cells(c.Row, k)
Next k
ligne = ligne + 1
End If
Next c
End With

End Sub

salut

 

[LAURA15]

Oui super vraiment bravo et merci , je ne pensais qu'on pouvais faire autant de choses avec VBA quand on sait bien le manier