tactic6
XLDnaute Impliqué
Bonjour le forum
toujours à la recherche de code plus simple quelqu'un pourrait me dire si il est possible de réduire ce code de recopie de données ?
le but de ce code est de recopier uniquement les valeurs sans les formules d'une feuille vers une autre
Merci pour vos conseils et TRES bonnes fêtes à tous
toujours à la recherche de code plus simple quelqu'un pourrait me dire si il est possible de réduire ce code de recopie de données ?
Code:
Sub N°2()
Application.ScreenUpdating = False
With Sheets("Modele")
Sheets("SAISIE").Range("I5").Copy
.Range("I5").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Sheets("SAISIE").Range("G6").Copy
.Range("G6").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Sheets("SAISIE").Range("J6").Copy
.Range("J6").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Sheets("SAISIE").Range("G8").Copy
.Range("G8").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Sheets("SAISIE").Range("H9").Copy
.Range("H9").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Sheets("SAISIE").Range("G10").Copy
.Range("G10").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Sheets("SAISIE").Range("H12").Copy
.Range("H12").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Sheets("SAISIE").Range("C12").Copy
.Range("C12").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Sheets("SAISIE").Range("B15:K52").Copy
.Range("B15:K52").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Sheets("SAISIE").Range("B55:B57").Copy
.Range("B55:B57").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Sheets("SAISIE").Range("C55:C57").Copy
.Range("C55:C57").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Sheets("SAISIE").Range("J54:J59").Copy
.Range("J54:J59").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Sheets("SAISIE").Range("B64").Copy
.Range("B64").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Sheets("SAISIE").Range("E64").Copy
.Range("E64").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
End With
Application.ScreenUpdating = True
End Sub
le but de ce code est de recopier uniquement les valeurs sans les formules d'une feuille vers une autre
Merci pour vos conseils et TRES bonnes fêtes à tous