Chasse
XLDnaute Occasionnel
Bonjour le forum.
Est t’il possible de simplifier cette partie de code, sans devoir passer par le copier coller
En effet j’aimerais n’avoir que la valeur (sans la formule)
Code complet
Merci de votre aide
Est t’il possible de simplifier cette partie de code, sans devoir passer par le copier coller
En effet j’aimerais n’avoir que la valeur (sans la formule)
Code:
Range("E" & n) = "=SUM(R[-6]C:R[-1]C)"
Range("E" & n).Copy
Range("E" & n).PasteSpecial Paste:=xlPasteValues
Range("A" & n) = "=INT(MOD(INT((RC[1]-2)/7)+0.6,52+5/28)+1)"
Range("A" & n).Copy
Range("A" & n).PasteSpecial Paste:=xlPasteValues
Range("G" & n) = "=SUM(R[-6]C:R[-1]C)-SUMIF(R[-6]C[1]:R[-1]C[1],""Kompensation"",R[-6]C:R[-1]C)"
Range("G" & n).Copy
Range("G" & n).PasteSpecial Paste:=xlPasteValues
Code complet
Code:
Sub Macro5()
Range("A1").Select
ActiveSheet.Paste
For n = 6 To Sheets("Xtacho").Range("A" & Rows.Count).End(xlUp).Row
If (Left(Sheets("Xtacho").Range("A" & n), 8)) = "Dimanche" Then
Range("C" & n) = Range("B" & n).Value
Range("B" & n) = Range("B" & n - 6)
Range("E" & n) = "=SUM(R[-6]C:R[-1]C)"
Range("E" & n).Copy
Range("E" & n).PasteSpecial Paste:=xlPasteValues
Range("A" & n) = "=INT(MOD(INT((RC[1]-2)/7)+0.6,52+5/28)+1)"
Range("A" & n).Copy
Range("A" & n).PasteSpecial Paste:=xlPasteValues
Range("G" & n) = "=SUM(R[-6]C:R[-1]C)-SUMIF(R[-6]C[1]:R[-1]C[1],""Kompensation"",R[-6]C:R[-1]C)"
Range("G" & n).Copy
Range("G" & n).PasteSpecial Paste:=xlPasteValues
End If
Next
End Sub