Copier certaines lignes d'un fichier dans un autre fichier

[marrama]

Bonjour,

Est-il possible de faire une macro qui copie certaines lignes d'un fichier pour les recopier dans un autre ?

La condition étant : uniquement les lignes à fond rouge.

Le fichier de départ est "Export" et le fichier d'arriver "Récapitulatif_erreurs"

Fich 1:
Cijoint.fr - Service gratuit de dépôt de fichiers

Fich 2:
Cijoint.fr - Service gratuit de dépôt de fichiers

Bien cordialement.

 

[JNP]

Re : Copier certaines lignes d'un fichier dans un autre fichier

Bonjour Marrama 🙂,
D'après tes précédents messages, tes lignes rouges sont faites en MFC. Je ne pense pas que tu puisse récupérer la couleur... Par contre, si tu fait une recherche sur les cellules remplissant les conditions de ta MFC, tu pourras les localiser. Pour les copier dans un autre fichier, fais une recherche sur le forum, y a un paquet de posts qui traitent du sujet.
Bonne soirée 😎

 

[marrama]

Re : Copier certaines lignes d'un fichier dans un autre fichier

Merci pour votre réponse. Je ne savais pas si on pouvais récupérer ou pas un fond de couleur. Maintenant c'est clair. Je vais essayer de faire la macro même si la programmation et moi ça fait 3 🙂

 

[JNP]

Re : Copier certaines lignes d'un fichier dans un autre fichier

Re 🙂,
Un fond de couleur est récupérable quand il fait partit du format de la cellule, pas dans une MFC (où tu récupperreras que la couleur normale si la MFC n'est pas déclenchée).
Bon courage 😎

 

[marrama]

Re : Copier certaines lignes d'un fichier dans un autre fichier

Voila j'ai fait un début de code mais je n'arrive pas à identifier les cellules sous MFC. J'ai donc fait l'algorithme en français.

Sub Bouton1_QuandClic()
Dim Plage As Range, Cellule As Range

Workbooks.Open Filename:="J:\Pack Etudiants 2\EXPORT.xls"
Windows("Export.xls").Activate
Sheets("Sheet1").Select

  Se positionner ligne 1
  Pour chaque ligne dans sheet1 faire
    Si la Colonne I de cette ligne est sous la MFC "=I1-F1>15"
    Alors ajouter la ligne au presse-papier (colonnes de A à Q)
   Passer à la ligne suivante

    Windows("Recapitulatif_erreurs.xls").Activate
    Sheets("Exports").Select
    Range("a1").Select
    ActiveSheet.Paste
     Application.CutCopyMode = False
    Workbooks("Export.xls").Close
    Sheets("Menu Principal").Select
   
End Sub

Si quelqu'un peut m'aider je le remercie par avance 🙂