macro copie valeurs

[al1000]

Bonjour

je voudrai faire une macro qui me copie mes valeurs

en fonction de la derniere date qui est dans le tableau je vais ouvrir l'onglet qui correspond au mois
puis je copie les données devant la journée qui correspond

a+

 

[Robert]

Re : macro copie valeurs

Bonjour Al, bonjour le forum,

Je te propose la macro suivante :

Sub Macro1()
Dim m As String 'déclare la variable m (Mois)
Dim j As String 'déclare la variable j (Jour)
Dim dest As Range 'déclare la variable dest (DESTination)
 
With Sheets("do") 'prend en compte l'onglet "do"
    m = CStr(Month(.Range("J65536").End(xlUp).Value)) 'définit la variable m
    j = CStr(Day(.Range("J65536").End(xlUp).Value)) 'définit la variable j
    Set dest = Sheets(m).Columns(5).Find(j).Offset(0, 1) 'définit la variable dest
    .Range("R3:U4").Copy 'copie
    dest.PasteSpecial (xlPasteValues) 'colle les valeurs
End With 'fin de la prise en compte l'onglet "do"
End Sub

 

[al1000]

Re : macro copie valeurs

bpnjour,

merci

a+