Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

XL 2019 Copier range d'une feuille dans une autre avec condition

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

WIsh_

XLDnaute Occasionnel
Bonjour à tous,

Je n'arrive pas à transposer le problème suivant en vba.

J'ai une formule dans la colonne J, feuille "source" de mon fichier qui donne une valeur, qui correspond au nombre de ligne à copier à partir de la ligne ou est reprise la valeur vers la feuille "Desti"

Le raisonnement est plus ou moins :
Si J <> 0; récupérer la ligne de J, copier le Union (Range ("A(ligne de J): F(valeur de J)"), Range ("H(ligne de J): I(valeur de J)")) dans la feuille("desti").range(A(première ligne vide))

Lorsque la valeur de la colonne C est "32", le principe est le même mais les cellules à copier, et les cellules de destination, changent.

Mon fichier ci-joint vous apparaitra probablement plus explicite.

Merci d'avance pour votre aide,
Bien cordialement,

Wish
 

Pièces jointes

Dernière édition:
Bonjour @WIsh_

*Que fait on des données transférées ? On les supprime de la source car autrement à chaque fois on va les recopier ? 🤔

*Tu ne parles pas de la colonne montant2 sauf si colonne C = 32 alors que je vois dans ton exemple que les données (les 0) sont transférées.

1616505769656.png

@Phil69970
 
Bonjour Phil69970,

*le but est d'exécuter la macro une seule fois.
Une fois les données de la feuille source copiées, la feuille source ne sera plus utilisée. Je souhaitais cependant conserver ces données pour en retrouver la trace dans le tableau d'origine si nécessaire.

*La colonne montant2 affiche par défaut 0 si colonne C <> 32.

Bien cordialement,
Wish
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

Réponses
5
Affichages
420
  • Question Question
Microsoft 365 Export données
Réponses
4
Affichages
503
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…