tinet
XLDnaute Impliqué
Bonjour le forum,
Je cherche à modifier mon code pour copier uniquement la valeur.
Voici mon code
Je cherche à modifier mon code pour copier uniquement la valeur.
Voici mon code
Sub Duplication()
Dim LigneDuplic As Long
Dim NbCopie As Long
With Application
.EnableEvents = False
.ScreenUpdating = False
.Calculation = xlCalculationManual
End With
With Worksheets("Feuille jour")
.Range("A6:H1000").ClearContents
LigneDuplic = 6
For i = 6 To Range("A65536").End(xlUp).Row
Sheets("Etapes jour").Select
NbCopie = Cells(i, 1)
Range(Cells(i, 1), Cells(i, 6)).Select
Selection.Copy
Sheets("Feuille jour").Select
Range(Cells(LigneDuplic, 1), Cells(LigneDuplic + NbCopie, 1)).Select
ActiveSheet.Paste
LigneDuplic = LigneDuplic + NbCopie
Next i
End With
With Application
.EnableEvents = True
.ScreenUpdating = True
.Calculation = xlCalculationAutomatic
End With
End Sub