Userform pour des recherches dans une base de données
Bonjour Frangy,
merci ç'est bon ça marche, maintenant je vois comment il fallait placer le code
Bonjour le forum,
je reviens sur ce poste pour apporter une amélioration au code précédent :
Option Explicit
Sub RechercherDate()
Dim F
Dim Feuille As Byte
Dim C As Range
Dim firstAddress As String
Dim LigneAjout As Long
F = Array("bdd1", "bdd2", "bdd3", "bdd4", "bdd5", "bdd6", "bdd7")
Range("A2:c" & Range("A1").End(xlDown).Row).ClearContents
For Feuille = 0 To UBound(F)
With Worksheets(F(Feuille))
Set C = .Columns(1).Find(Range("e2"), , xlValues, xlPart)
If Not C Is Nothing Then
firstAddress = C.Address
Do
If TimeValue(CDate(C.Offset(0, 1))) >= Range("f2") And TimeValue(CDate(C.Offset(0, 1))) <= Range("g2") Then
LigneAjout = Range("A" & Rows.Count).End(xlUp).Row + 1
C.Resize(, 3).Copy Range("A" & LigneAjout)
'On colle la donnée de la colonne I dans la cellule de la colonne D
C.Offset(0, 8).Copy Range("D" & LigneAjout)
End If
Set C = .Columns(1).FindNext(C)
Loop While Not C Is Nothing And C.Address <> firstAddress
End If
End With
Next Feuille
End Sub
je voudrais ajouter qu'il faut rechercher entre 2 dates. ex : entre le 2 et le 3 novembre.
Pouvez-vous m'aider?
Bonjour le forum,
pas de solution trouvée à ma question?
Bonjour,
Il est préférable de ne pas relancer un sujet clos, cela te laisse plus de chances d'obtenir une réponse,
Voici une solution avec un filtre pour une recherche entre 2 dates.
A+
Bonjour le forum, Frangy,
merci pour ta réponse.
Et-il possible d'intégrer ce nouveau code à l'ancien pour pouvoir rechercher entre 2 dates ET entre 2 heures?
ex : entre le 2 novemmbre à 9h et le 3 novembre à 14h
Bonjour,
J'ai ajouté le filtrage sur les heures mais auparavant, j'ai été obligé de modifier les données des colonnes B de chaque feuille afin qu'elles aient un format heure.
Attention au format des données que tu intègres dans ton fichier.
A+