anthony.unac
XLDnaute Occasionnel
Bonjour,
Le but de la manoeuvre est de copier coller a l identique une matrice sur une nouvelle feuille (insertion nouvelle feuille).
Voici un probleme qui se resout facilement a la main a l aide d un edition copier puis edition colle mais qui s avere redoutable lorsqu il s agit de l ecrire sous forme d une macro.
Pour ma part, j en suis arrive a ceci :
et la malheureusement, je perds les formules qui se trouvaient dans les cellules C6 a C36 mais egalement M6 a M36
Que faire ?
Cordialement
Anthony
Le but de la manoeuvre est de copier coller a l identique une matrice sur une nouvelle feuille (insertion nouvelle feuille).
Voici un probleme qui se resout facilement a la main a l aide d un edition copier puis edition colle mais qui s avere redoutable lorsqu il s agit de l ecrire sous forme d une macro.
Pour ma part, j en suis arrive a ceci :
Code:
Sub Nouveau()
nom = Range("O4").Value
'Sheets.Add.Name = [I2]
ActiveSheet.Copy after:=Worksheets(ThisWorkbook.Worksheets.Count)
With ActiveSheet
.Name = nom
.Range("D6:D36").ClearContents
.Range("E6:E36").ClearContents
.Range("G6:G36").ClearContents
.Range("H6:H36").ClearContents
.Range("J6:J36").ClearContents
.Range("K6:K36").ClearContents
lig = 6
For jour = 1 To 31
.Range("B6:M6").Copy
.Range("B" & lig & ":M" & lig).PasteSpecial Paste:=xlPasteColumnWidths, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
.Range("B" & lig & ":M" & lig).PasteSpecial Paste:=xlPasteFormulas, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
.Range("B" & lig & ":M" & lig).PasteSpecial Paste:=xlPasteValuesAndNumberFormats, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
.Range("B" & lig & ":M" & lig).PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
.Range("B" & lig & ":M" & lig).PasteSpecial Paste:=xlPasteFormulasAndNumberFormats, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
.Range("B" & lig).Value = jour
Application.CutCopyMode = False
lig = lig + 1
Next jour
End With
End Sub
et la malheureusement, je perds les formules qui se trouvaient dans les cellules C6 a C36 mais egalement M6 a M36
Que faire ?
Cordialement
Anthony