macro d'archivage par bouton sous condition

macro d'archivage par bouton sous condition - VB/VBA/VBS - Programmation

Marsh Posté le 05-02-2010 à 07:32:43    

Bonjour,
 
n'étant pas pro de la macro sur excel. je soumets mon problème ici:
 
http://lacabanesurlechien.free.fr/suivi.xls
 
j'ai un onglet "2010" dans lequel sont listés des sous traitances. J'aimerais qu'une fois la cellule "date de retour effective" remplie, en appuyant sur un bouton style "Archiver", les lignes concernées soient coupées-collées à la suite dans l'onglet "ARCHIVES SOUS TRAITANCES".
 
Est ce possible? et si oui comment faire?
 
Merci d'avance...

Reply

Marsh Posté le 05-02-2010 à 07:32:43   

Reply

Marsh Posté le 05-02-2010 à 12:31:30    

Salut,en utilisant la propriété CodeName "ARCHIVE SOUS TRAITANCES" devient ShArchives et "2010" ShDatas


Option Explicit
 
Sub Archivage()
Dim LastRowArchives As Long, LastRowDatas As Long
Dim i As Long
    Application.ScreenUpdating = False
    LastRowDatas = ShDatas.Range("A" & ShDatas.Rows.Count).End(xlUp).Row
    For i = 8 To LastRowDatas
        If IsDate(ShDatas.Range("G" & i)) Then
            LastRowArchives = ShArchives.Range("A" & ShArchives.Rows.Count).End(xlUp).Row
            ShDatas.Range("A" & i & ":H" & i).Copy
            ShArchives.Range("A" & LastRowArchives + 1).PasteSpecial Paste:=xlPasteValues
        End If
    Next i
    Application.ScreenUpdating = True
End Sub


Message édité par kiki29 le 05-02-2010 à 12:40:07
Reply

Marsh Posté le 05-02-2010 à 12:40:53    

Merci bien, j'essaye de comprendre et je teste ça...

Reply

Marsh Posté le 05-02-2010 à 13:02:57    

bon j'ai des erreurs de syntaxe et je n'arrive pas à lier cette macro au bouton "Archiver"....
 
je vais réupploader le xls...

Reply

Marsh Posté le 05-02-2010 à 13:09:23    

Reply

Marsh Posté le 05-02-2010 à 14:08:19    

merci je regarde tout ca

Reply

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed