Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

Extraire des données sur des dates

L

LAURA15

Guest
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]
 

Pièces jointes

  • trieDate.zip
    17.7 KB · Affichages: 23
L

LAURA15

Guest
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
 
J

JC de Lorient

Guest
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
 
L

LAURA15

Guest
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é

XLDnaute Barbatruc
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
 

Discussions similaires

Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…