Cpier en fonction date du jour

obyone · 7 Janvier 2010

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 · 7 Janvier 2010

Re : Cpier en fonction date du jour

Salut Obyone 🙂,
Teste ce petit code

Code:

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

et tu comprendras 😉.
Bonne journée 😎

obyone · 7 Janvier 2010

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 · 7 Janvier 2010

Re : Cpier en fonction date du jour

Re 🙂,

obyone à dit:
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

Code:

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 😎

Cpier en fonction date du jour

obyone

XLDnaute Occasionnel

JNP

XLDnaute Barbatruc

obyone

XLDnaute Occasionnel

JNP

XLDnaute Barbatruc

Discussions similaires

Cpier en fonction date du jour

obyone

XLDnaute Occasionnel

JNP

XLDnaute Barbatruc

obyone

XLDnaute Occasionnel

JNP

XLDnaute Barbatruc

Discussions similaires

Privacy & Transparency

Privacy & Transparency