Cpier en fonction date du jour

[obyone]

Bonjour, j'ai créé la macro suivante :

Sub CopierEcheancier()
'
' CopierEcheancier Macro

With Sheets("CIC")
Ligne = .[a65000].End(xlUp).Row + 1
For Lecheancier = 3 To 10000
If .Cells(7, 1) = Now Then
Sheets("Echéancier")(.Cells(7, 1), .Cells(7, 6)).Copy Sheets("CIC").Cells(Ligne, 1)
End If
Next
End With
Application.CutCopyMode = False
End Sub


mais elle ne fonctionne pas quand je l'execute rien ne se passe même pas une erreur.

en fête, je souhaite copier les lignes du tableau de la feuille Echéancier en fonction de la date du jour, dans la feuille CIC.
mais la je coince j'ai besoin de vos idees pour m'eclaircir un peu.
cordialement.

 

[JNP]

Re : Cpier en fonction date du jour

Salut Obyone 🙂,
Teste ce petit code

Sub Test()
MsgBox Sheets("CIC").Cells(7, 1)
MsgBox Now
MsgBox Now()
MsgBox Date
End Sub

et tu comprendras 😉.
Bonne journée 😎

 

[obyone]

Re : Cpier en fonction date du jour

Bonjour JNP, merci pour ta reponse j'ai donc modifier le code comme ceci

Sub CopierEcheancier()
'
' CopierEcheancier Macro

With Sheets("CIC")
Ligne = .[a65000].End(xlUp).Row + 1
For Lecheancier = 3 To 10000
If .Cells(7, 1) = Date Then
Sheets("Echéancier")(.Cells(7, 1), .Cells(7, 6)).Copy Sheets("CIC").Cells(Ligne, 1)
End If
Next
End With
Application.CutCopyMode = False
End Sub


mais toujours pas de copie.
je ne comprends pas

 

[JNP]

Re : Cpier en fonction date du jour

Re 🙂,

With Sheets("CIC")
Ligne = .[a65000].End(xlUp).Row + 1
For Lecheancier = 3 To 10000
If .Cells(7, 1) = Date Then
Sheets("Echéancier")(.Cells(7, 1), .Cells(7, 6)).Copy Sheets("CIC").Cells(Ligne, 1)
End If
Next
End With
Application.CutCopyMode = False
End Sub

Vu que tu teste la valeur dans la mauvaise feuille, ça risque pas de fonctionner...
Ensuite la syntaxe utilise des Range comme ci-dessous

Sub CopierEcheancier()
'
' CopierEcheancier Macro
With Sheets("CIC")
Ligne = .[a65000].End(xlUp).Row + 1
'For Lecheancier = 3 To 10000
If [COLOR=red][B]Sheets("Echéancier").[/B][/COLOR]Cells(7, 1) = Date Then
Sheets("Echéancier")[COLOR=red][B].Range(Cells(7, 1), Cells(7, 6))[/B][/COLOR].Copy Sheets("CIC").Cells(Ligne, 1)
End If
'Next
End With
Application.CutCopyMode = False
End Sub

et là, ça marche... 😛
Bonne journée 😎