Selectionner toutes les cellules entre 2 dates

bonjour,

j'aimerais pouvoir selectionner toutes les lignes de données comprises entre 2 dates ( definies par l'utilisateur)

mon code actuel me permet de les selectionner une par une ...

voici le code je vous joint également le fichier

Sub Macro1()
Dim D1 As Date
Dim D2 As Date
Dim lastline As Long

lastline = Sheets(1).Range("A" & Rows.Count).End(xlUp).Row

D1 = InputBox("enter start date for correl")
D2 = InputBox("enter end date for correl")

Sheets(1).Activate

For i = lastline To 1 Step -1
If Cells(i, 1) >= D1 And Cells(i, 1) <= D2 Then
Cells(i, 2).Select
Range(Selection, Selection.End(xlToRight)).Select
End If
Next i

End Sub

Bonjour à tous,

Un test en supposant que l'exercice est différent de celui que vous avez posé précédemment :

Sub Macro1()
Dim LR%, D1$, D2$
Dim DEB As Variant, FIN As Variant
LR = Sheets(1).Range("A" & Rows.Count).End(xlUp).Row
D1 = InputBox("enter start date for correl")
D2 = InputBox("enter end date for correl")
Sheets(1).Activate
DEB = Application.Match(CLng(CDate(D1)), Range("A1:A" & LR), 1) + 1
FIN = Application.Match(CLng(CDate(D2)), Range("A1:A" & LR), 1)
Sheets(1).Rows(DEB & ":" & FIN).Select
End Sub

Il serait pertinent et par respect pour leur travail et le temps consacré, de faire un retour aux gens qui vous ont aidé comme l'a souligné Optimix.

Cdlt,

bonjour,

excusez moi si je ne vous ait pas repondu hier, merci beaucoup pour votre aide et votre temps. j'ai ouvert ce 2eme fil car je cherche a faire quelque chose de plus simple qu'un formulaire ... désolée..

le fichier que j'ai partager hier et aujourd'hui est une infime partie d'un fichier dans lequel il y a deja un long code . je cherche juste une solution pour cette petite partie du code..

Veuillez m'excusez je ne voulais offenser ni vous ni Abdu..

bonjour Ergotamine,

merci beaucoup pour la correction c'est exactement ce qu'il me fallait !!

encore désolé de ne pas avoir été assez clair avec Optimix et de pas l'avoir remercié correctement

merci encore à vous ,à Optimix et à Abdu