Macro Sauvegarde

[hellocarioca]

Bonjour,

j'ai une base de données qui peut changer au cours du temps.
Je vous ai mis un fichier tres simplifier de ce que je voudrais !
J'aimerai que les lignes ou la colonne D = Closed soient enlever de ma Base de Données et qu'elles soient sauvées sur un autre fichier.

J'aimerai aussi qu'à la fin de l'opération ma base de données n'est pas l'air d'un gruyère

Merci bcp

maud

 

[jp14]

Re : Macro Sauvegarde

Bonsoir hellocarioca

Ci joint un fichier avec une macro qui réalise les opérations suivantes :
Copie des lignes fermée
Efface les lignes copiées en supprimant les trous
Demande d'un nom pour la sauvegarde
Sauvegarde de la feuille "Closed"
Suppression des données

A tester

JP

 

[Lord Nelson]

Re : Macro Sauvegarde

Salut Maud,

Voici une possibilité :

Sub Archivage()
Dim NumLigne1 As Long, NumLigne2 As Long
Dim I As Long, J As Long
NumLigne1 = Sheets("Data Base").Range("D65536").End(xlUp).Row
NumLigne2 = Sheets("Closed").Range("D65536").End(xlUp).Row

I = 2
Do While I <= NumLigne1
  If Sheets("Data Base").Range("D" & I) = "Closed" Then
    NumLigne2 = NumLigne2 + 1
    For J = 1 To 4
      Sheets("Closed").Cells(NumLigne2, J) = Sheets("Data Base").Cells(I, J)
    Next
    Sheets("Data Base").Range("D" & I).EntireRow.Delete
  Else
    I = I + 1
  End If
Loop

End Sub

Chaque fois que le mot "Closed" est rencontré en colonne D, la macro reporte les données dans la feuille "Closed" et détruit la ligne.

A+
Horatio

 

[hellocarioca]

Re : Macro Sauvegarde

Horatio Merci bcp c exactement ce que je veux...
Par contre quand je veux le reporter sur mon fichier existant, il y a qq spécificité que je ne comprend pas bien.
Par exemple dans l'application, à koi correspond le "I" et le "J"???

Sub Archivage()
Dim NumLigne1 As Long, NumLigne2 As Long
Dim I As Long, J As Long
NumLigne1 = Sheets("Data Base").Range("D65536").End(xlUp).Row
NumLigne2 = Sheets("Closed").Range("D65536").End(xlUp).Row

I = 2
Do While I <= NumLigne1
If Sheets("Data Base").Range("D" & I) = "Closed" Then
NumLigne2 = NumLigne2 + 1
For J = 1 To 4 Sheets("Closed").Cells(NumLigne2, J) = Sheets("Data Base").Cells(I, J)
Next
Sheets("Data Base").Range("D" & I).EntireRow.Delete
Else
I = I + 1 End If
Loop

End Sub

J'aimerai juste savoir si je peux copier & coller l'application sur ma macro ou s'il y a des changements que je dois faire ???

Merci bcp !

Maud

 

[hellocarioca]

Re : Macro Sauvegarde

Hello Horatio !

tu ne veux pas éclairer ma lanterne ???

Maud

 

[jp14]

Re : Macro Sauvegarde

bonjour

I et j sont des index.
J numéro de colonne dans les feuilles
I numéro de ligne dans data base

JP

 

[hellocarioca]

Re : Macro Sauvegarde

Je t'embete encore !

Si je veux que mes lignes ou y a un "Closed", soit sauvegardé sur un autre fichier et pas sur un onglet du fichier existant...
A quoi ressemblerait la macro pour aller d'un fichier à un autre...
Admettons que pour les lignes en rouge ci-dessous on est besoin d'aller dans le fichier closed mais d'un autre workbook...

Sub Archivage()
Dim NumLigne1 As Long, NumLigne2 As Long
Dim I As Long, J As Long
NumLigne1 = Sheets("Data Base").Range("D65536").End(xlUp).Row
NumLigne2 = Sheets("Closed").Range("D65536").End(xlUp).Row

I = 2
Do While I <= NumLigne1
If Sheets("Data Base").Range("D" & I) = "Closed" Then
NumLigne2 = NumLigne2 + 1
For J = 1 To 4
Sheets("Closed").Cells(NumLigne2, J) = Sheets("Data Base").Cells(I, J)
Next
Sheets("Data Base").Range("D" & I).EntireRow.Delete
Else
I = I + 1
End If
Loop

End Sub

Merci !

Maud

 

[jp14]

Re : Macro Sauvegarde

Bonsoir

Dans ce fil un exemple de macro pour traiter 2 fichiers

https://www.excel-downloads.com/threads/formules-avec-plusieurs-classeurs.84312/

JP

 

[hellocarioca]

Re : Macro Sauvegarde

Je suis desolee JP mais je suis vraiment pas douée en Macro et le lien que tu m'as donné c bcp trop compliqué pour moi...
est ce que c possible que tu m'écrive juste vite fait les lignes de la macro parce que la je suis perdue !

Merci bcp et desolee pour le dérangement !

Maud

 

[hellocarioca]

Re : Macro Sauvegarde

STP JP j'ai vraiment besoin que tu m'aide!!!

Merci

Maud

 

[jp14]

Re : Macro Sauvegarde

bonsoir

Ci joint le fichier avec la macro modifiée ( module 4).

A tester

JP

 

[hellocarioca]

Re : Macro Sauvegarde

Merci bcp pour ton aide JP, mais là c bcp trop compliqué pour moi... je vais garder la 1ere option de la sauvegarde sur un onglet du meme fichier...

En tout cas merci bcp

Maud