XL 2010 comparaître des date en vba

[zozo]

Le Bonjour à tous les membres du forum,
Je viens de réaliser un programme en vba dont fichier joint, ce dernier doit me faire ressortir les enregistrement liés à ma condition de date, qui est relative à une période bien déterminée.
Malheureusement, je n'obtiens aucun résultat sans atteindre la solution à mon problème.
Je vous remercie de me venir en aide.

 

[JHA]

Bonjour à tous,

Un exemple avec un filtre élaboré, si cela peut aider à construire ta macro.

JHA

 

[zozo]

Bonjour à tous,

Un exemple avec un filtre élaboré, si cela peut aider à construire ta macro.

JHA

Merci pour la prise en charge de mon problème, je vais essayer d'exploiter ta solution.
zozo

 

[Bernard_XLD]

Bonjour zozo, le forum
[édition: bonjour à toi aussi @JHA ]

zozo, il y a un bug là

Cells(lgne2, 1) = np

un autre ici

np = Cells(ligne, 1)

un aussi là je pense

ligne = 6

un autre ici je pense aussi

If date1 >= .Cells(ligne, 2).Value And date2 <= .Cells(ligne, 2).Value Then

et la condition date1 >= .Cells(ligne, 2).Value ne peut de toute façon jamais être remplie puisque ce n'est le cas d'aucune de tes valeurs, date1=01/01/2021, la première valeur est au 02/01/2021
Changes ta date de début au 02/01/2021 pour tester le code joint.
Aussi, pour les comparaisons de date, il vaut mieux utiliser value2 qui renverra la date en valeur
Value renvoie Date, Currency, String ou Double
Value2 renvoie uniquement String ou Double
Et un option explicit au début de ton code t'aurait permis d'éliminer d'entrée certains bugs

Bien cordialement, @+

Sub rap_hebdo()
'
' rap_hebdo Macro
'
Dim date1, date2, deliv, expir As Date
Dim np As String
ligne2 = 6
With Worksheets("RAPPORT")
   date1 = Cells(2, 2).Value2
   date2 = Cells(2, 4).Value2
End With

With Worksheets("TABLE")
    nbr = .Range("A" & .Rows.Count).End(xlUp).Row
    For ligne = 2 To nbr
        If date1 >= .Cells(ligne, 2).Value2 And date2 <= .Cells(ligne, 3).Value2 Then
            np = .Cells(ligne, 1).Value
            deliv = .Cells(ligne, 2).Value
            expir = .Cells(ligne, 3).Value
            With Worksheets("RAPPORT")
                 Cells(ligne2, 1) = np
                 Cells(ligne2, 2) = deliv
                 Cells(ligne2, 3) = expir
                 ligne2 = ligne2 + 1
            End With
         End If
    Next ligne
End With
End Sub

 

[zozo]

Merci pour ta réponse, je vais procéder au correction et voir le résultat.