bonjour;
après plusieurs recherches et tentatives, j'ai trouvé le code qui permettra de copier le tableau selon la date du jour, mais malheureusement le copie il formule par la valeur.
je souhaite de mes amis du forum de m'aider de corriger ce code ou d'améliorer ou de changer..
merci de votre aide.
Mon fichier joint:
Cordialement zinelamri
Sub Display_Data()
Dim derln As Long, ln As Long, lgn As Long, i As Long
With Sheets("BD")
' Application.ScreenUpdating = False
Range("A19:F40").Clear
derln = .Range("F" & Rows.Count).End(xlUp).Row
.Rows("3:" & derln).EntireRow.Hidden = False
For ln = 6 To derln
If .Range("I" & ln) = Range("A3") Then '.Range("G" & ln) = Range("E8")
lgn = Range("B40").End(xlUp)(2).Row
.Range("C" & ln & ":C" & ln).Copy Range("B" & lgn)
.Range("H" & ln & ":H" & ln).Copy Range("C" & lgn)
.Range("G" & ln & ":G" & ln).Copy Range("D" & lgn)
.Range("I" & ln & ":I" & ln).Copy Range("f" & lgn)
' .Range("j" & ln & ":I" & ln).Copy Range("F" & lgn)
End If
Next ln
End With
End Sub