Copier, coller, dater et décaler sur la droite
Bonjour le forum !
Petit post d'avant week-end, pour demander juste un petit coup de pouce
Je suis en train de chercher un moyen de copier-coller les valeurs contenues dans des plages de cellules, ou des cellules seules, dans un tableau. L'idée serait de, lorsque je lance la macro, elle copie-colle ces cellules dans un tableau, avec un indication de la date à laquelle ce "transfert" a été fait. Bien entendu, ça doit se décaler sur la droite à chaque fois, et ça, je ne sais pas faire.
Comme d'habitude, je vous fourni un fichier présentant mon problème, et je modulerai la macro en fonction de mes (nombreuses) cellules et plages de cellules à transférer.
Un grand merci d'avance !
Mareelo54
Génial ! Merci beaucoup !
Bonjour bonjour le forum !
Je me permet de relancer ce post parce-que finalement j'ai un petit soucis...
J'ai cherché ces derniers jours un moyen de faire une copie des valeurs contenues dans les cellules uniquement. Les cellules contenues dans les plages de mon fichier contiennent des formules et je souhaite que la macro me copie-colle uniquement les valeurs.
Si quelqu'un a le petit code qui va bien...
Un grand merci d'avance !
Bonjour,
Tu peux appliquer le code suivant
Sub Copier()
Dim Plage1 As Range, Plage2 As Range, Plage3 As Range
Dim ColAjout As Integer
Application.ScreenUpdating = False
With Worksheets("Synthèse")
Set Plage1 = .Range("$D$4, $D$7, $D$11")
Set Plage2 = .Range("$H$8:$H$15")
Set Plage3 = .Range("$K$5:$K$10")
End With
With Worksheets("Historique synthèse")
ColAjout = .Cells(3, Columns.Count).End(xlToLeft).Column + 1
.Cells(3, ColAjout) = Format(Now, "dd/mm/yyyy")
Plage1.Copy
.Cells(5, ColAjout).PasteSpecial Paste:=xlPasteValues
Plage2.Copy
.Cells(9, ColAjout).PasteSpecial Paste:=xlPasteValues
Plage3.Copy
.Cells(21, ColAjout).PasteSpecial Paste:=xlPasteValues
.Activate
End With
Set Plage1 = Nothing: Set Plage2 = Nothing: Set Plage3 = Nothing
End SubA+
Au poil ! Merci Frangy !