Copier une ligne, la stocker, et distribuer sur plusieurs lignes en valeur

Question

J'ai des difficultés pour faire une macro qui doit copier une ligne entière (avec ses formules) puis la coller dans une autre ligne (question de sauvegarder les formules comme dans l'image ci-dessus en L4) puis ensuite la recoller sur la ligne initiale en valeur. Le véritable problème survient au moment de faire une boucle qui va incrémenter cette formule sauvegardée aux autres lignes de mon tableau Excel en y appliquant à chaque fois le calcul qui tiendra compte de la variation de ligne. J'espère avoir été un peu compréhensible. Merci d'avance de votre aide. Take care ...

Ergotamine · Accepted Answer

Dans votre exemple c'est un comportement normal et je me doutais que vous alliez poser cette remarque. En effet je copie toute la plage B2 à F2 sur la plage B5:F28. Donc les quantités, PU et charges de la plage B5:D28 sont remplacées par les valeurs présentes sur la plage B2:D2. Donc ua final la formule des plages E5:F28 se base sur les mêmes valeurs que la plage B2:D2 pour son calcul, donc même résultat. Je pense que ce que vous vouliez obtenir est uniquement une copie de la plage E2:F2, dans ce cas : Sub RECOPIE() Dim LR% LR = ActiveSheet.Cells(ActiveSheet.Rows.Count, 1).End(xlUp).Row 'Chiffre 1 à adapter en fonction du numéro de colonne contenant des valeurs jusqu'à la dernière ligne Range("E2:F2").Copy 'copie les formules Range("E5:F" & LR).PasteSpecial Paste:=xlPasteFormulas 'colle sur la plage jusqu'à la dernière ligne Range("E5:F" & LR).Copy 'copie la plage jusqu'à la dernière ligne Range("E5:F" & LR).PasteSpecial Paste:=xlValues 'colle en valeur End Sub Cet exemple était juste pour vous montrer qu'il faut être très précis dans les demandes, qui peuvent être mal interpretées. Le plus simple est un fichier représentatif (mêmes lignes, mêmes colonnes si l'on ne maîtrise pas), avec le résultat avant/après, ou la démarche à réaliser et l'objectif. Je vous laisse adapter à votre fichier et reste à disposition si besoin. Cdlt...

Ergotamine · Accepted Answer

Dans le premier code envoyé non : Range("DY7:ED" & LR).PasteSpecial Paste:=xlPasteFormulas Je ne colle que sur plage DY7:ED dernière ligne. Les lignes 1 à 7 ne sont pas impactées. Cdlt...

Ergotamine · Answer

Pourquoi pas juste utiliser la méthode . FillDown de Range en partant de la première ligne de valeur jusqu'à la fin de ta ligne ? Cela évite la boucle. Et est surement plus efficace. Sinon merci de joindre un bout de fichier anonymisé avec ton bout de code. Cdlt...

Ergotamine · Answer

Dans ce cas et au vu de la capture d'écran : Sub RECOPIE() Dim LR% LR = ActiveSheet.Cells(ActiveSheet.Rows.Count, 1).End(xlUp).Row 'Chiffre 1 à adapter en fonction du numéro de colonne contenant des valeurs jusqu'à la dernière ligne Range("DY4:ED4").Copy Range("DY7:ED" & LR).PasteSpecial Paste:=xlPasteFormulas End Sub Je suis parti du principe que les formules étaient entre DY4 et ED4 et que la dernière ligne était identifiée dans la colonne A, donc entre A4 et A jusqu'à la dernière ligne il y a des valeurs. Comme il n'y a pas de continuité entre 4 et 7 je n'ai pas utilisé la méthode FillDown. Un collage spécial des formules sur une plage, si la formule est bien constituée (références absolues VS références relatives), est plus rapide et consomme moins qu'une boucle. Dans l'attente de ton retour. Cdlt...

Ergotamine · Answer

A ce moment si l'on veut coller les formules, calculer, puis recoller en valeur là le code devient : Sub RECOPIE() Dim LR% LR = ActiveSheet.Cells(ActiveSheet.Rows.Count, 1).End(xlUp).Row 'Chiffre 1 à adapter en fonction du numéro de colonne contenant des valeurs jusqu'à la dernière ligne Range("B2:F2").Copy 'copie les formules Range("B5:F" & LR).PasteSpecial Paste:=xlPasteFormulas 'colle sur la plage jusqu'à la dernière ligne Range("B5:F" & LR).Copy 'copie la plage jusqu'à la dernière ligne Range("B5:F" & LR).PasteSpecial Paste:=xlValues 'colle en valeur End Sub Cdlt...

Ergotamine · Answer

Ce code permet d'obtenir la dernière ligne du tableur remplie. ActiveSheet.Cells(ActiveSheet.Rows.Count, 1).End(xlUp).Row Elle est décomposée en plusieurs phase : -J e compte le nombre de ligne de la feuille :ActiveSheet.Rows.Count - Je me place à la dernière cellule du classeur de la colonne A : Cells(ActiveSheet.Rows.Count, 1) - Je monte à partir de cette cellule à la dernière cellule remplie : ActiveSheet.Cells(ActiveSheet.Rows.Count, 1).End(xlUp) - Je renvoie le numéro de ligne à laquel je suis : ActiveSheet.Cells(ActiveSheet.Rows.Count, 1).End(xlUp).Row Ce code reviendrait à vous placer sur la cellule A1048576 de votre feuille puis actionner CTRL + Flèche du haut et regarder la ligne sur laquelle vous vous trouvez. Il permet de rendre dynamique votre code afin de ne pas préciser de façon algébrique et fixe une plage : si elle s'agrandit, la macro suit la modification structurelle apportée. Cdlt...