Guthurhall
XLDnaute Nouveau
Bonjour,
Je cherche depuis des heures mais je ne parviens pas à trouver une solution.
Je veux faire une recherche sur la Feuil1 sur une plage de dates : autrement dit je veux coller dans la Feuil2 le résultat de la plage de recherche entre la date du jj/mm/aaaa et jj/mm/aaaa.
Pour cela, j'ai créé un userform avec deux comboBox qui affichent la première date de la recherche et la derniere date. Le problème c'est que la Macro qui colle les données trouvées dans Feuil2 s'arrete au premier résultat de la ComboBox correspondant à la derniere date.
J'utilise Find pour faire ma recherche et du coup ça m'affiche le premier résultat trouvé mais pas les suivants. Pour illustrer, voici la macro.
Avez vous une solution pour afficher tous les résultats correspondants à la derniere date ?
Merci de votre aide !!!!!
Option Explicit
Public Depart, Arrivee, Boucle, Maplage, Cherche1, Cherche2 As Variant
Private Sub ComboBox1_Change()
Cherche1 = CDate(ComboBox1.Value)
Set Maplage = Feuil1.Range("A2", [A65536].End(xlUp))
With Maplage
Set Boucle = .Find(Cherche1)
Depart = Boucle.Address(0, 0)
ComboBox1 = Cherche1
End With
End Sub
Private Sub ComboBox2_Change()
Cherche2 = CDate(ComboBox2.Value)
Set Maplage = Feuil1.Range("A2", [A65536].End(xlUp))
With Maplage
Set Boucle = .Find(Cherche2)
Arrivee = Mid(Boucle.Address, 3)
ComboBox2 = Cherche2
End With
Coller.Visible = True
End Sub
Private Sub UserForm_Initialize()
Boucle = Feuil1.Range("A65536").End(xlUp).Row
Maplage = Feuil1.Range("A2:A" & Boucle).Address
ComboBox1.RowSource = Maplage
ComboBox2.RowSource = Maplage
Coller.Visible = False
End Sub
Private Sub Annuler_Click()
Unload Me
End Sub
Private Sub Coller_Click()
Feuil1.Range(Depart & ":H" & Arrivee).Copy Feuil2.[A2]
Feuil2.Activate
Unload Me
End Sub
Je cherche depuis des heures mais je ne parviens pas à trouver une solution.
Je veux faire une recherche sur la Feuil1 sur une plage de dates : autrement dit je veux coller dans la Feuil2 le résultat de la plage de recherche entre la date du jj/mm/aaaa et jj/mm/aaaa.
Pour cela, j'ai créé un userform avec deux comboBox qui affichent la première date de la recherche et la derniere date. Le problème c'est que la Macro qui colle les données trouvées dans Feuil2 s'arrete au premier résultat de la ComboBox correspondant à la derniere date.
J'utilise Find pour faire ma recherche et du coup ça m'affiche le premier résultat trouvé mais pas les suivants. Pour illustrer, voici la macro.
Avez vous une solution pour afficher tous les résultats correspondants à la derniere date ?
Merci de votre aide !!!!!
Option Explicit
Public Depart, Arrivee, Boucle, Maplage, Cherche1, Cherche2 As Variant
Private Sub ComboBox1_Change()
Cherche1 = CDate(ComboBox1.Value)
Set Maplage = Feuil1.Range("A2", [A65536].End(xlUp))
With Maplage
Set Boucle = .Find(Cherche1)
Depart = Boucle.Address(0, 0)
ComboBox1 = Cherche1
End With
End Sub
Private Sub ComboBox2_Change()
Cherche2 = CDate(ComboBox2.Value)
Set Maplage = Feuil1.Range("A2", [A65536].End(xlUp))
With Maplage
Set Boucle = .Find(Cherche2)
Arrivee = Mid(Boucle.Address, 3)
ComboBox2 = Cherche2
End With
Coller.Visible = True
End Sub
Private Sub UserForm_Initialize()
Boucle = Feuil1.Range("A65536").End(xlUp).Row
Maplage = Feuil1.Range("A2:A" & Boucle).Address
ComboBox1.RowSource = Maplage
ComboBox2.RowSource = Maplage
Coller.Visible = False
End Sub
Private Sub Annuler_Click()
Unload Me
End Sub
Private Sub Coller_Click()
Feuil1.Range(Depart & ":H" & Arrivee).Copy Feuil2.[A2]
Feuil2.Activate
Unload Me
End Sub
