XL 2016 Copie ligne avec teste

[sev31130]

bonjour,

je voudrais faire des copies de certaines cellules sur une feuille par jour en testant la date
mais je ne sais pas du tout le faire.
Je vous joins le fichier avec explications, si c'est faisable
Par avance merci

 

[kingfadhel]

Bonjour,
Voilà le code en question

Sub Copies()
    Dim wb As Workbook: Set wb = ThisWorkbook
    Dim ws As Worksheet

    For Each ws In wb.Worksheets
        If Range("Mon_test") = ws.Range("H4") Then
        Range("Ma_plage").Copy
        ws.Cells(5, 5).PasteSpecial Paste:=xlPasteValues
        Range("Ma_plage2").Copy
        ws.Cells(2, 48).PasteSpecial Paste:=xlPasteValues
        MsgBox "OK"
        Exit Sub
        End If
    Next
End Sub

Ton fichier en retour avec macro.
Remarque : j'ai modifié la formule qui sert à lire la date au niveau de la cellule H4 de chaque feuille afin pouvoir la comparer à la cellule AC6.

 

[thebenoit59]

Bonjour Sev, bonjour Fadhel.
Bonjour le forum.

Voici un autre code possible:

Sub jour()
Dim r1(), r2()
Dim j As Date

With Sheets("CUMUL_MOIS")
    j = .[AC6].Value
    r1 = .[AC8:AG8].Value
    r2 = .[AC11:AC17].Value
End With

With Sheets(Format(Day(j), "00"))
    .[E5].Resize(, UBound(r1, 2)).Value = r1
    .[AV2].Resize(UBound(r2)).Value = r2
End With
End Sub

 

[sev31130]

je vous remercie beaucoup
fermer le sujet

 

[sev31130]

bonsoir,

j'ai encore besoin d'aide, je vous explique sur les deux fichiers joint
j'ai des transfert de lignes mais je crois que seule une amcro m'aiderait
merci de me lire sur la feuille explication

merci