Copier/Insérer/Coller un groupe de lignes
Bonjour à tous,
Dans le cadre d'un tableau de chiffrage, je voudrais insérer des lignes déjà crées et masquées.
Jusque là ça va. Mais j'aimerais qu'elles se positionne automatiquement après le dernier groupe de ligne inséré.
A ce jour quand j’exécute ma macro, mon groupe de ligne sincère toujours au niveau de ma cellule A40.
J'incere 17lignes à chaque fois et j'aimerais trouver une solution pour incérer mon groupe la premiere fois en A40 puis en A57, A74, A91... Je pense que je dois utiliser une boucle mais je n'en ai encore jamais utilisé.
Si quelqu'un a une idée pour m'aider.
Merci d'avance.
Voici actuellement mon code :
Sub Lot()
'Masquer l'action de la macro et n'actualisant pas l'image
Application.ScreenUpdating = False
' Lot Macro
' Ajouter un nouveau lot.
ActiveWindow.SmallScroll Down:=-3
Rows("1:18").Select
Range("G18").Activate
Selection.EntireRow.Hidden = False
Rows("1:17").Select
Range("A17").Activate
Selection.Copy
ActiveWindow.SmallScroll Down:=6
Rows("40:40").Select
Selection.Insert Shift:=xlDown
Rows("1:17").Select
Range("A17").Activate
Selection.EntireRow.Hidden = True
ActiveWindow.SmallScroll Down:=6
'Réactualisation de l'image
Application.ScreenUpdating = True
End Sub
Bonsoir Mandine,
je pige que dalle à ton code...
Tu peux joindre un fichier (même anonymisé) et expliquer avec des trémas sur les i ce que tu désires comme résultat ?
A+
Bonjour,
Le fichier est pièce jointe.
Mes lignes 1 à 18 sont masquées.
C'est ces lignes que je récupère pour les coller a la suite de mon tableau en ligne 40 en cliquant sur mon bouton "ajouter un lot".
Par contre si je clic une seconde fois sur mon bouton j'aimerais que les ligne viennent s’insérer en ligne 57 et ainsi de suite.
A chaque fois après le dernier SOUS TOTAL et ma ligne TOTAL.
(Est-il possible de récupérer automatiquement les "sous total" ajoutée pour les additionner dans mon "total final"?)
Merci.