XL 2010 Copier des lignes de données de plusieurs feuilles dans une seule

[Renaud22]

Bonjour à tous,

J'ai une macro permettant de copier, dans une seule feuille récapitulative (BDREE), des données provenant de différentes feuilles de données.

Quand j'exécute la macro " BDREE", celle-ci ne tient compte uniquement de la plage AJ27 à CA27 pour chacune des feuilles de données. Le résultat est représenté dans la feuille "BDREE". Maintenant, je veux augmenter le nombre de lignes de données par feuille. Je joins le fichier Exemple_1.xlsm dans lequel j'ai un nombre quelconque de feuilles de données (dans ce cas : 4 : 001_ACEP, 002_ACEP, 003_INTCM & 004_PCONA).

Je voudrais que, dans une feuille de données, :

si AR27 égale "0" la copie de la plage AJ27 à CA27 ne soit pas effectuée et on passe à la feuille suivante ;
si AR39 égale "0" la copie de la plage AJ27 à CA27 soit effectuée et on passe à la feuille suivante ;
si AR51 égale "0" la copie des plages AJ27 à CA27 et AJ39 à CA39 soit effectuée et on passe à la feuille suivante ;
si AR63 égale "0" la copie des plages AJ27 à CA27, AJ39 à CA39 et AJ51 à CA51 soit effectuée et on passe à la feuille suivante ;
etc....

Donc, la condition pour laquelle la copie change de feuille, est si les cellules AR27, ou AR39, AR51, AR63,... égale "0". Le nombre de feuilles de données est variable ainsi que le nombre de lignes de données par feuille de données.

J'ai représenté dans la feuille "BDREE_DESIRE", le résultat désiré (exemple avec 4 feuilles de données).

Si vous pourriez modifier la macro "BDREE" afin qu'elle puisse remplir les nouvelles exigences, cela serait très apprécié.

En vous remerciant par avance pour votre précieuse aide.

Salutations,

Renaud22

 

[sylvanu]

Re,
Doublon je suppose ?
Voir : https://excel-downloads.com/threads/copie-de-donnees-de-plusieurs-feuilles-dans-une-seule.20084624/

 

[Renaud22]

Ce n'est pas un doublon car :
https://excel-downloads.com/threads/copie-de-donnees-de-plusieurs-feuilles-dans-une-seule.20084624/
correspond à : Copie d'une ligne de données de plusieurs feuilles dans une seule (une seule ligne par feuille doit être copiée).
La discussion ci-dessus correspond à : Copie des lignes de données de plusieurs feuilles dans une seule (plusieurs lignes par feuille doivent être copiées).

 

[sylvanu]

Bonjour,

La discussion ci-dessus correspond à : Copie des lignes de données de plusieurs feuilles dans une seule (plusieurs lignes par feuille doivent être copiées).

Je suis désolé mais c'est ce que fait la macro du post précédent.
Dans la feuille BDREE on copie toutes les lignes de toutes les feuilles pour lesquelles ARxx est non nul.
Ce que j'ai fait avec :

For Lread = 27 To .[S10000].End(xlUp).Row
  If .Cells(Lread, "AR") <> 0 Then
      Range(Cells(L, "A"), Cells(L, "AR")) = .Range("AJ" & Lread & ":CA" & Lread).Value
      L = L + 1
  End If
Next Lread

Pouvez vous êtes plus explicite ?

 

[Renaud22]

Bonjour,
Merci pour votre aide.
J'essaierai d'être plus explicite lorsque j'aurai un autre problème de programmation VBA à résoudre.
Je vous souhaite une bonne journée.
Salutations,
Renaud

 

[sylvanu]

Re,
Mais l
Vous ne répondez pas à la question.
Quelle différence y a t il entre vos deux posts ?
Si vous voulez une solution, il faut au moins que le contributeur comprenne votre besoin.