Discussion :

[fadhlou]

Bonjour
J'ai jamais utiliser les Macros, et je maîtrise pas excel non plus, mais la je veux archiver des données d'un classeur dans un autre et d'après ce que j'ai vu sur internet je peux faire sa que avec des macros
Bon je vais vous expliquer ce que je veux faire :
j'ai une tableau avec des différents chantier et numéro de commande, ce que je veux faire c'est d'archiver les commandes qui sont soldé (finis), donc en gros si je mets "S" dans la cellule qui correspond à l’état de la commande, je veux que le excel supprime cette commande (du coup il va supprimer toute la ligne) de ce classeur et le renvoie dans un autre classeur qui s'appelle Archive en gardant que les colonnes de : "Affaire, commande, Machines et H faites"
Ce que j'ai fait comme macro pour la feuil1 est complètement faux car sa va envoyer les données dans la feuil2 mais la sa va pas résoudre le problème parce que je cherches a archiver des données pas les mettre dans une autre feuille.
Pouvez vous m'aider svp :
Cordialement

[Patrice740]

Bonjour,

Si tu ne maitrises ni Excel, ni les macros, le plus simple est d'utiliser le Copier/coller

[fadhlou]

Bonjour,

Si tu ne maitrises ni Excel, ni les macros, le plus simple est d'utiliser le Copier/coller

c'est bon j'ai trouvé ce que je cherches merci
c'est la solution pour mon cas :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
Sub aargh()
    Set wsp = ThisWorkbook.Sheets("feuil1")
    Set wba = Workbooks.Open("d:\downloads\archive.xlsx")    ' à adapter nom & repertoire du classeur archive
   Set wsa = ActiveWorkbook.Sheets("archive")    ' à adapter nom de la feuille archive dans classeur archive
   dla = wsa.Cells(Rows.Count, 1).End(xlUp).Row
    dlp = wsp.Cells(Rows.Count, 5).End(xlUp).Row
    i = 8
    While i <= dlp
        If UCase(wsp.Cells(i, 5)) = "S" Then
            dla = dla + 1
            wsa.Cells(dla, 1).Resize(, 7).Value = wsp.Range("B" & i & ":H" & i).Value
            wsp.Rows(i).Delete shift:=xlUp
        Else
            i = i + 1
        End If
    Wend
    wba.Close
End Sub