incrementation dans tableau excel

Question

Bonjour,

J'ai un petit probleme : 
Voila, je lis des donn&#233;es en temps r&#233;&#233;l sur une ligne de tableau excel et j'aimerais qu'a chaque fin de journ&#233;e (0h00) les valeurs se figent. De plus la formule qui sert a recuper&#233; ces donn&#233;es en temps r&#233;el doit se copier sur la ligne suivante. etc etc etc. Comme ca je r&#233;cupere mes valeurs pour chaque jour constituant un tableau mensuel

Quelqu'un peut il m'aider?

Merci

cs_phBil · Answer

tiens voila un peu de code ..

Sub MaCopie()
    Dim rDerL As Range 'Derniere ligne
    ThisWorkbook.Sheets(2).Activate
    
    Set rDerL = ThisWorkbook.Sheets(2).Range("A65535").End(xlUp)
    rDerL.EntireRow.Copy
    rDerL.EntireRow.Offset(1, 0).PasteSpecial Paste:=xlAll, Operation:=xlNone, SkipBlanks:=False _
        , Transpose:=False
    
    rDerL.EntireRow.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
        False, Transpose:=False
    Application.CutCopyMode = False
    
    Lance ' Programme lancement pour le lendemain
End Sub
Sub Lance()
 Application.OnTime TimeValue("00:00"), "MaCopie"
End Sub

Avec lance la macro de "lancement" , qui programme l'&#233;x&#233;cution de la macro MaCopie pour le prochain "00:00" ... , revoir la feuille concern&#233; pour copie ...
phbil

Incrementation dans tableau excel

1 réponse

Discussions similaires