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

Extraction entre deux dates

Créer une discussion

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

S'inscrire

BERRACHED said

XLDnaute Accro
Bonjour,
je suis vraiment coincé s'il y a quelqu'un qui peut m'aider dans un classeur Excel j'ai nommé une feuille "BD" qui contienne toute les enregistrement de l'année étaler sur cinq colonnes A=Date,B=Montant,C=Noms et prénoms,D=Ville,E=Qualité je voudrais extraire ses données par période (Quinzaine,Mensuelle,Trimestrielle ect.......) selon les besoin les résultat de l'extraction sera transférer vers une autre feuille Nommée "Collection"pour pouvoir l'éditer pour cela j'ai créer un userform qui contiens deux textBox nommée "StartDate"et "StopDate" et un bouton "Ok" qui abrite le code mais ça n'a pas marche AIDEZ MOIS SVP
Voici le code

On Error GoTo errorHandler
Dim StartDate As String
Dim StopDate As String
Dim startRow As Integer
Dim stopRow As Integer
If StartDate = "" Then End
StartDate = Format(StartDate, "dd/mm/yyyy")
If StopDate = "" Then End
StopDate = Format(StopDate, "dd/mm/yyyy")

If Range("a2").Value >= Me.StartDate.Value And Range("a2").Value <= Me.StopDate.Value Then

startRow = Sheets("BD").Range("A65536").Find(Me.StartDate, _
LookIn:=xlValues, lookat:=xlWhole).Row
stopRow = Sheets("BD").Range("A65536").FindNext(Me.StopDate, _
LookIn:=xlValues, lookat:=xlWhole).Row

Sheets("BD").Range("A2" & startRow & ":A65536" & stopRow).Copy _
Destination:=Sheets("collection").Range("A")
End
errorHandler:
MsgBox "There has been an error: " & Error() & Chr(13) _
& "Ending Sub.......Please try again", 48
End If
End Sub
 
Trier par date Trier par votes
Re : Extraction entre deux dates

Bonjour

regarde le code ci dessous, j'ai modifié certaines lignes mais pas de fichier pour tester, donc je te laisse le faire.


Code: 
Sub tt()
Dim startRow As Integer, stopRow As Integer, d1 As Range, d2 As Range

On Error GoTo errorHandler

If StartDate = "" Then End
StartDate = Format(StartDate, "dd/mm/yyyy")
If StopDate = "" Then End
StopDate = Format(StopDate, "dd/mm/yyyy")

If Range("a2").Value >= Me.StartDate.Value And Range("a2").Value <= Me.StopDate.Value Then

d1 = Sheets("BD").Range("A:A").Find(CDate(StartDate.Value), _
LookIn:=xlValues, lookat:=xlWhole)

If Not d1 Is Nothing Then startRow = d1.Row

d2 = Sheets("BD").Range("A:A").Find(CDate(StopDate.Value), _
LookIn:=xlValues, lookat:=xlWhole)

If Not d2 Is Nothing Then stopRow = d2.Row

Sheets("BD").Range("A" & startRow & ":A" & stopRow).Copy _
Destination:=Sheets("collection").Range("A1")
End
errorHandler:
MsgBox "There has been an error: " & Error() & Chr(13) _
& "Ending Sub.......Please try again", 48
End If
End Sub

bon après midi
@+
 
Vote positif 0 Vote négatif
Re : Extraction entre deux dates

merci pour l'exemple mais dans ton userform il ya pas ou mettre la date
il faudrait pensez a mettre des textbox pour ma part mon probleme reste le meme
ca n'a rien changé
j'attend donc il faut pas perdre espoir
 
Vote positif 0 Vote négatif
Re : Extraction entre deux dates

Bonjour,

Pourquoi ne pas créer une macro avec l'enregistreur dans laquelle tu fais un filtre élaboré avec les deux critères date de début et date de fin.
Ensuite tu fais un copier coller de ce code dans l'événement clic de ton bouton de la userform. Et tu remplace les cellules qui contiennent tes dates par celles que tu saisies dans les textbox.
Il s'agira là d'une extraction entre deux dates mais on pourrait en ajouter plus
 
Vote positif 0 Vote négatif
Re : Extraction entre deux dates

slaut maitrexc
c pas evident j'ai essayé auparavant elle ce limite a la plage enregistrer dans la macro
merci quand meme c tres gentille
berrached said
 
Vote positif 0 Vote négatif
Re : Extraction entre deux dates

BERRACHED said à dit:
slaut maitrexc
c pas evident j'ai essayé auparavant elle ce limite a la plage enregistrer dans la macro
merci quand meme c tres gentille
berrached said
Cliquez pour agrandir...

Dans la macro il faut donc ajouter une fonction qui sélectionne automatiquement ta plage.
Si le VBA te pose problème tu fait une autre macro avec l'enregistreur et tu fais les actions suivante :
1 tu te place sur la première cellule de ton tableau
2 tu appuis sur la touche Ctrl+Maj+flèche droite
3 tu appuis sur la touche Ctrl+Maj+flèche bas

ensuite tu te sert de ce code dans la première macro pour avoir une plage toujours à jour
 
Vote positif 0 Vote négatif
Re : Extraction entre deux dates

Re

tu devrais mettre ton fichier en pièce jointe, sans données confidentielle, plus facile pour t'aider... Quand tu dis mon code n'a pas marché, tu n'as pas le résultat attendu ou tu as un message d'erreur, si oui sur quelle ligne.

@+
 
Vote positif 0 Vote négatif
Re : Extraction entre deux dates

Salut pierrot93
non mon fichier n'a aucune grande confidentialite j'ai penser de le faire au debut
mais comme je suis nouveau parmi vous je ne sais pas joindre un fichier a un message
si tu peut me le montrer je te l'envoie

merci pierrot
 
Vote positif 0 Vote négatif
Re : Extraction entre deux dates

Re,
En fait je t'ai envoyé un exemple (TriDates1.xls ci-dessus) qui fonctionne bien chez moi, avec des DTPickers pour saisir les dates. Si tu ne les vois pas dans le Userform, c'est qu'il doit y avoir un problème d'incompatibilité entre nos versions d'XL ou Windaube ou autre..... A voir;
Cordialement,
Guiv

PS: si ça fonctionne chez d'autres, faites le moi savoir, ça me rassurera...
 
Vote positif 0 Vote négatif
Re : Extraction entre deux dates

SALUT GUIV
Ouais merci j'ai recu ton fichier mais ca marche pas meme quand j'ai proceder au compilation il reconnait pas DTPickers il m'affiche le message absent du bibliotheque
merci guiv t'es gentil
 
Vote positif 0 Vote négatif
Re : Extraction entre deux dates

Bonsoir le fil, BERRACHED said,

Pour joindre une fichier, déjà dans ton exploratuer windows, clic droit sur ce fichier et envoyer vers/dossier compressé...

Ensuite, en bas de ton fil, dans Gérer les pièces jointes... Parcourir pour recherche sur ton disque, selectionner le fichier en question... Upoloader et envoyer, normalement cela fonctionne...

J'espère ne rien avoir oublié...

Bonne soirée.

Jean-Pierre
 
Vote positif 0 Vote négatif
Identifiez-vous ou inscrivez-vous pour participer.
Rejoins nos membres "Supporter XLD" et booste ton expérience Excel !
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

N
  • Question Question
XL 2013 Utilisé deux CommandButton_Click dans la même feuil
Réponses
4
Affichages
430
patricktoulon
F
  • Question Question
Microsoft 365 Problème mémoire insuffisante
Réponses
5
Affichages
909
TooFatBoy
E
  • Résolu(e)
XL 2019 chercher une date dans une colonne vba
Réponses
12
Affichages
891
sylvanu
N
  • Résolu(e)
XL 2021 comment faire recherche dans une colonne et ligne
Réponses
5
Affichages
731
job75
  • Question Question
Microsoft 365 Trier des données et les afficher sur une autre feuille
Réponses
10
Affichages
711
Jojo973
G
  • Résolu(e)
XL 2016 Pb de tri et sous totaux
2
Réponses
27
Affichages
2 K
Gestionnaire_rh
G
E
  • Résolu(e)
Microsoft 365 Reduire Temps Execution Code
Réponses
5
Affichages
487
eric72
E
N
  • Résolu(e)
Microsoft 365 Modification impossible d'une TextBox
2 3 4
Réponses
56
Affichages
3 K
NONO14
N
P
  • Question Question
XL 2016 Compteur avec incrémentation de la ligne suivante
Réponses
11
Affichages
502
Pascal THIDET
P
T
  • Résolu(e)
XL 2019 Filtrer certains champs au démarrage avec vba
2
Réponses
15
Affichages
1 K
telemarrk
T
E
  • Résolu(e)
XL 2019 inserer une valeur textbox dans la dernière cellule vide horizontalement
Réponses
7
Affichages
873
escudo
E
E
  • Résolu(e)
Microsoft 365 Boucle sur lignes <>0
Réponses
2
Affichages
497
eric72
E
  • Résolu(e)
XL 2016 Indice n'appartient pas à la sélection : HELP !!!!
2
Réponses
21
Affichages
2 K
halecs93
EXCEL :: Les Tableaux Structurés :: Une classe VBA - V1.05 - Evolutions majeures exports CSV, XML, XML UTF-8, JSON, HTML, PDF, JPG, JPEG, BMP, EXCEL
Réponses
10
Affichages
1 K
oguruma
F
  • Question Question
Microsoft 365 Poursuivre ou pas la macro
Réponses
2
Affichages
588
Francky79
F
E
  • Question Question
Microsoft 365 GetFolder et Sharepoint
Réponses
3
Affichages
1 K
eric72
E
O
  • Question Question
XL 2019 Je veux afficher mes données dans ma Listbox1 avec l'entete de ma Base donnée et fait la recherche sans que cela derange l'entete.
Réponses
6
Affichages
1 K
ChTi160
C
  • Question Question
Autres bug sur une procédure avec textbox contenant un code barre
2
Réponses
15
Affichages
2 K
TooFatBoy
H
  • Question Question
Autres mise a jour automatique feuille excel vba
Réponses
2
Affichages
869
HANN
H
J
  • Question Question
XL 2016 Pb macro qui plante toujours lors de la seconde exécution...
Réponses
3
Affichages
735
herve62
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…