macro coller sur ligne à la date du jour

[phil69]

bonsoir le forum


j'ai un tableau ou en colonne A1àA31 j'ai les date du 1é au 31 du mois,à la fermeture du classeur j'ai une commande qui me lance une macro qui a pour bute de copier et coller une ligne alimenté par une feuille de saisie journaliere

comment faire pour que le coller s'effectu sur la ligne de la date du jour

si joint mon fichier ou j'ai fais une macro qui colle sur la premiere ligne vide,
merci
phil69

 

[phil69]

Re : macro coller sur ligne à la date du jour

re


le fichier n'a pas suivi

 

[alex67800]

Re : macro coller sur ligne à la date du jour

Bonjour phil69,

Pourrais-tu être un peu plus clair dans ta demande?
Pourquoi plusieurs onglets avec le même mois (mars10, mars11, etc...)?
En colonne A (date jour) mettre le bon format date si tu veux faire une boucle (01/01/1900 <> de 01/03/2009!!

Essai comme ceci:
Test la date en colonne A, si date du jour, alors je copie G41:T41 sur la ligne correspondante.

Sub test()
    For Each cell In Range("A7:A" & Range("A65536").End(xlUp).Row)
    If cell.Value = Date Then
    Sheets("mars (10)").Range("G41:T41").Copy
        cell.Offset(0, 6).PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
        End If
        Next
    Range("c41").Select
    ThisWorkbook.Save

End Sub

Je l'ai testé que pour la feuille mars(10)

 

[vbacrumble]

Re : macro coller sur ligne à la date du jour

Bonsoir tous

alex67800:
(Pour information)
Tu peux simplifier le collage spécial ainsi

Sub test()
    For Each cell In Range("A7:A" & Range("A65536").End(xlUp).Row)
    If cell.Value = Date Then
    Sheets("mars (10)").Range("G41:T41").Copy
        cell.Offset(0, 6).PasteSpecial Paste:=xlValues 'ici modif pour Excel 2000
        End If
        Next
    Range("c41").Select
    ThisWorkbook.Save
End Sub