VBA Copier coller format suivi d’un coller valeur
Bonjour à vous,
Voilà j’aimerais effectuer via une macro un copier d’un onglet vers un autre onglet, à la suite. Ma formule fonctionne pour un copier/coller simple. Mais j’aimerais plutôt effacer les formules et conserver uniquement les formats et les valeurs…
Voilà le fichier, voilà la formule
Sub Transfert_client()
Dim i As String
i = ActiveSheet.Name
Range("A19:R41").Select
Selection.Copy
Sheets("Facture").Select
Ligne2 = Range("A1").End(xlDown).Row + 1
Range("A" & Ligne2).Select
ActiveSheet.Paste
Range("AI3:As3").Select
Selection.Copy
Ligne4 = Range("A1").End(xlDown).Row
Range("AI4:As" & Ligne4).Select
ActiveSheet.Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Sheets(i).Select
Range("C1").Select
End Sub
Merci d’avance
Bonjour
voila plein de modife et avec copy valeur
Sub Transfert_client()
Dim I As String
I = ActiveSheet.Name
Application.ScreenUpdating = False
Range("A19:R41").Copy
Sheets("Facture").Select
Ligne2 = Range("A1").End(xlDown).Row + 1
Range("A" & Ligne2).PasteSpecial xlPasteAllUsingSourceTheme
Range("A" & Ligne2).PasteSpecial xlPasteValues
Sheets(I).Select
Application.CutCopyMode = False
Application.Goto [A5], True
MsgBox "Terminer"
End SubA+
Maurice