Bonjour à tous
Sur l'onglet "Facture" j'ai crée, la macro ci-dessous qui me permet de copier/coller une plage de cellules (avec l’enregistreur et adapté)
(je suis sur qu'il y a moyen de nettoyer ceci...)
Sub copie_a_plat()
Range("C17").Select
Range(Selection, Selection.End(xlToRight)).Select
Range(Selection, Selection.End(xlDown)).Select
Selection.Copy
Sheets("Feuil5").Select
Range("A1").End(xlDown)(2).Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Application.CutCopyMode = False
With Selection
.VerticalAlignment = xlCenter
.WrapText = False
.Orientation = 0
.AddIndent = False
.IndentLevel = 0
.ShrinkToFit = False
.ReadingOrder = xlContext
.MergeCells = False
End With
Columns("C:C").EntireColumn.AutoFit
End Sub
J'aimerais pouvoir copier/coller, en même temps:
- La cellule fusionnée "G6:H6" qui est la date de la facture et la coller, à la suite de chaque lignes collées précédemment sur la "feuil5" dans la colonne "G" (date)
- Ainsi que le cellule "G3", n° de facture, à la suite des dates en "H"
Cette feuille me permettras de créer mon TCD par la suite.
Merci d'avance pour votre lecture