• Publicité

Archiver des données d'un classeur dans un autre

Postez ici vos questions et(ou) vos solutions ayant pour thème les logiciels ou l'informatique en général. Vous pouvez également poser ici les questions informatiques qui n'auraient pas leur place dans les autres sections de notre forum d'entraide.

Modérateurs: Sebastien, Stéphane, Christophe

Archiver des données d'un classeur dans un autre

Messagepar FADHLOU » 26 Oct 2017 10:25

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"
Pouvez vous m'aider svp ::(
Cordialement
FADHLOU
No0b
No0b
 
Messages: 2
Enregistré le: 26 Oct 2017 10:21

Re: Archiver des données d'un classeur dans un autre

Messagepar FADHLOU » 26 Oct 2017 13:14

Voici la solution
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
FADHLOU
No0b
No0b
 
Messages: 2
Enregistré le: 26 Oct 2017 10:21

Re: Archiver des données d'un classeur dans un autre

Messagepar Sebastien » 27 Oct 2017 15:33

Bonjour,

Merci d'avoir partagé la solution avec les visiteurs du forum.

@+
Image
Avatar de l’utilisateur
Sebastien
Administrateur
Administrateur
 
Messages: 5421
Enregistré le: 14 Fév 2005 19:17
Localisation: LILLE


Retourner vers Forum d'entraide informatique

 


  • Articles en relation
    Réponses
    Vus
    Dernier message

Qui est en ligne

Utilisateurs parcourant ce forum : Aucun utilisateur enregistré et 4 invités

  • Publicité
cron