Toni751
Nouveau membre
Bonjour,
Besoin d'aide pour automatiser ma macro, je souhaite remplir un certain nombre de ligne dans une feuille (portefeuille projets) puis pour Chaque ligne créer un nouvel onglet (fiche projet) en copiant/collant les données.
Ce code très basic marche jusqu'à 3 nouveaux onglets, comment faire pour l'automatiser pour créer autant d'onglet qu'on a de lignes dans la feuille principale ?
Merci pour votre aide,
Voici mon code ci-dessous:
Sub Macro2()
'
' Macro2 Macro
'
'
Application.DisplayAlerts = False
If Not IsEmpty(Range("A6")) Then
Sheets("modèle").Select
Cells.Select
Application.CutCopyMode = False
Selection.Copy
Sheets.Add After:=Sheets(Sheets.Count)
ActiveSheet.Paste
ActiveSheet.Name = "ficheprojet1"
Else
MsgBox "La Cellule A6 est Vide"
End If
Sheets("portefeuille de projet").Select
Range("T6").Select
Selection.Copy
Sheets("ficheprojet1").Select
Range("B22").Select
ActiveSheet.Paste
Sheets("portefeuille de projet").Select
Range("U6").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("ficheprojet1").Select
Range("B24").Select
ActiveSheet.Paste
Sheets("portefeuille de projet").Select
Range("V6").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("ficheprojet1").Select
Range("B26").Select
ActiveSheet.Paste
Sheets("portefeuille de projet").Select
Range("W6").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("ficheprojet1").Select
Range("B28").Select
ActiveSheet.Paste
Sheets("portefeuille de projet").Select
Range("B6").Select
Selection.Copy
Sheets("ficheprojet1").Select
Range("B5").Select
ActiveSheet.Paste
Sheets("portefeuille de projet").Select
Range("C6").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("ficheprojet1").Select
Range("B3:B4").Select
ActiveSheet.Paste
Sheets("portefeuille de projet").Select
Range("D6").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("ficheprojet1").Select
Range("B2").Select
ActiveSheet.Paste
Sheets("portefeuille de projet").Select
Range("E6").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("ficheprojet1").Select
Range("B1").Select
ActiveSheet.Paste
Sheets("portefeuille de projet").Select
Range("F6").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("ficheprojet1").Select
Range("A16:B20").Select
ActiveSheet.Paste
Sheets("portefeuille de projet").Select
Range("G6").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("ficheprojet1").Select
Range("A10:B14").Select
ActiveSheet.Paste
Sheets("portefeuille de projet").Select
Range("H6").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("ficheprojet1").Select
Range("B6").Select
ActiveSheet.Paste
Sheets("portefeuille de projet").Select
Range("I6").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("ficheprojet1").Select
Range("B7").Select
ActiveSheet.Paste
Sheets("portefeuille de projet").Select
Range("J6").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("ficheprojet1").Select
Range("B8").Select
ActiveSheet.Paste
Sheets("ficheprojet1").Select
Sheets("portefeuille de projet").Select
Range("X6").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("ficheprojet1").Select
Range("B30").Select
ActiveSheet.Paste
Sheets("portefeuille de projet").Select
Range("Y6").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("ficheprojet1").Select
Range("B31").Select
ActiveSheet.Paste
Sheets("portefeuille de projet").Select
Range("Z6").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("ficheprojet1").Select
Range("B32").Select
ActiveSheet.Paste
Sheets("ficheprojet1").Select
Sheets("portefeuille de projet").Select
Range("AA6").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("ficheprojet1").Select
Range("E4:Q4").Select
ActiveSheet.Paste
Sheets("portefeuille de projet").Select
Range("AB6").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("ficheprojet1").Select
Range("E15:Q15").Select
ActiveSheet.Paste
Sheets("portefeuille de projet").Select
Range("AC6").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("ficheprojet1").Select
Range("Q1").Select
ActiveSheet.Paste
Sheets("portefeuille de projet").Select
Range("AE6").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("ficheprojet1").Select
Range("E18:H18").Select
ActiveSheet.Paste
Sheets("portefeuille de projet").Select
Range("AF6").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("ficheprojet1").Select
Range("I18:L18").Select
ActiveSheet.Paste
Sheets("portefeuille de projet").Select
Range("AG6").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("ficheprojet1").Select
Range("M1818").Select
ActiveSheet.Paste
Sheets("portefeuille de projet").Select
Range("AH6").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("ficheprojet1").Select
Range("E19:H19").Select
ActiveSheet.Paste
Sheets("portefeuille de projet").Select
Range("AI6").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("ficheprojet1").Select
Range("I19:L19").Select
ActiveSheet.Paste
Sheets("portefeuille de projet").Select
Range("AJ6").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("ficheprojet1").Select
Range("M1919").Select
ActiveSheet.Paste
Sheets("portefeuille de projet").Select
Range("AK6").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("ficheprojet1").Select
Range("E20:H20").Select
ActiveSheet.Paste
Sheets("portefeuille de projet").Select
Range("AL6").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("ficheprojet1").Select
Range("I20:L20").Select
ActiveSheet.Paste
Sheets("portefeuille de projet").Select
Range("AM6").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("ficheprojet1").Select
Range("M2020").Select
ActiveSheet.Paste
Range("Q18").Select
Application.CutCopyMode = False
ActiveCell.FormulaR1C1 = "=SUM(RC[-12]:RC[-1])"
Range("Q18").Select
Selection.AutoFill Destination:=Range("Q18:Q23"), Type:=xlFillDefault
Range("Q18:Q23").Select
Sheets("portefeuille de projet").Select
Range("AN6").Select
Selection.Copy
Sheets("ficheprojet1").Select
Range("E21:H21").Select
ActiveSheet.Paste
Sheets("portefeuille de projet").Select
Range("AO6").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("ficheprojet1").Select
Range("I21:L21").Select
ActiveSheet.Paste
Sheets("portefeuille de projet").Select
Range("AP6").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("ficheprojet1").Select
Range("M2121").Select
ActiveSheet.Paste
Sheets("portefeuille de projet").Select
Range("AQ6").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("ficheprojet1").Select
Range("E22:H22").Select
ActiveSheet.Paste
Sheets("portefeuille de projet").Select
Range("AR6").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("ficheprojet1").Select
Range("I22:L22").Select
ActiveSheet.Paste
Sheets("portefeuille de projet").Select
Range("AS6").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("ficheprojet1").Select
Range("M2222").Select
ActiveSheet.Paste
Sheets("portefeuille de projet").Select
Range("AT6").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("ficheprojet1").Select
Range("E23:H23").Select
ActiveSheet.Paste
Sheets("portefeuille de projet").Select
Range("AU6").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("ficheprojet1").Select
Range("I23:L23").Select
ActiveSheet.Paste
Sheets("portefeuille de projet").Select
Range("AV6").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("ficheprojet1").Select
Range("M2323").Select
ActiveSheet.Paste
Range("E24:H24").Select
Application.CutCopyMode = False
ActiveCell.FormulaR1C1 = "=SUM(R[-6]C:R[-1]C[3])"
Range("E24:H24").Select
Selection.AutoFill Destination:=Range("E2424"), Type:=xlFillDefault
Range("E2424").Select
Range("Q24").Select
Sheets("portefeuille de projet").Select
ActiveCell.FormulaR1C1 = ""
Range("AW6").Select
Selection.Copy
Sheets("ficheprojet1").Select
ActiveWindow.SmallScroll Down:=9
Range("E27:H27").Select
ActiveSheet.Paste
Sheets("portefeuille de projet").Select
Range("AX6").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("ficheprojet1").Select
Range("I27:L27").Select
ActiveSheet.Paste
Sheets("portefeuille de projet").Select
Range("AY6").Select
Application.CutCopyMode = False
Selection.Copy
Range("AN31").Select
Sheets("ficheprojet1").Select
Range("M2727").Select
ActiveSheet.Paste
Sheets("portefeuille de projet").Select
Range("AZ6").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("ficheprojet1").Select
Range("E28:H28").Select
ActiveSheet.Paste
Sheets("portefeuille de projet").Select
Range("BA6").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("ficheprojet1").Select
Range("I28:L28").Select
ActiveSheet.Paste
Sheets("portefeuille de projet").Select
Range("BB6").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("ficheprojet1").Select
Range("M2828").Select
ActiveSheet.Paste
Sheets("portefeuille de projet").Select
Range("BC6").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("ficheprojet1").Select
Range("E29:H29").Select
ActiveSheet.Paste
Sheets("portefeuille de projet").Select
Range("BD6").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("ficheprojet1").Select
Range("I29:L29").Select
ActiveSheet.Paste
Sheets("portefeuille de projet").Select
Range("BE6").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("ficheprojet1").Select
Range("M2929").Select
ActiveSheet.Paste
Sheets("portefeuille de projet").Select
Range("BF6").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("ficheprojet1").Select
Range("E30:H30").Select
ActiveSheet.Paste
Sheets("portefeuille de projet").Select
Range("BG6").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("ficheprojet1").Select
Range("I30:L30").Select
ActiveSheet.Paste
Sheets("portefeuille de projet").Select
Range("BH6").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("ficheprojet1").Select
Range("M3030").Select
ActiveSheet.Paste
Range("E31:H31").Select
Application.CutCopyMode = False
ActiveCell.FormulaR1C1 = "=SUM(R[-4]C:R[-1]C[3])"
Range("I31:L31").Select
ActiveCell.FormulaR1C1 = "=SUM(R[-4]C:R[-1]C[3])"
Range("M3131").Select
ActiveCell.FormulaR1C1 = "=SUM(R[-4]C:R[-1]C[3])"
Range("Q27").Select
ActiveCell.FormulaR1C1 = "=SUM(RC[-12]:RC[-1])"
Range("Q27").Select
Selection.AutoFill Destination:=Range("Q27:Q30"), Type:=xlFillDefault
Range("Q27:Q30").Select
Range("Q32").Select
ActiveCell.FormulaR1C1 = "=SUM(R[-5]C:R[-2]C)"
Range("C25:Q25").Select
With Selection
.HorizontalAlignment = xlGeneral
.VerticalAlignment = xlCenter
.WrapText = False
.Orientation = 0
.AddIndent = False
.IndentLevel = 0
.ShrinkToFit = False
.ReadingOrder = xlContext
.MergeCells = True
End With
Selection.UnMerge
Range("C2525").Select
Range("P25").Activate
With Selection
.HorizontalAlignment = xlCenter
.VerticalAlignment = xlCenter
.WrapText = False
.Orientation = 0
.AddIndent = False
.IndentLevel = 0
.ShrinkToFit = False
.ReadingOrder = xlContext
.MergeCells = False
End With
Selection.Merge
Range("Q25").Select
ActiveCell.FormulaR1C1 = "=SUM(R[-7]C:R[-2]C)"
Range("Q32").Select
Selection.Copy
Range("Q25").Select
Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
Application.CutCopyMode = False
ActiveWindow.SmallScroll Down:=-9
Range("C16:Q16").Select
With Selection
.HorizontalAlignment = xlGeneral
.VerticalAlignment = xlCenter
.WrapText = False
.Orientation = 0
.AddIndent = False
.IndentLevel = 0
.ShrinkToFit = False
.ReadingOrder = xlContext
.MergeCells = True
End With
Selection.UnMerge
Range("C1616").Select
Range("P16").Activate
With Selection
.HorizontalAlignment = xlCenter
.VerticalAlignment = xlCenter
.WrapText = False
.Orientation = 0
.AddIndent = False
.IndentLevel = 0
.ShrinkToFit = False
.ReadingOrder = xlContext
.MergeCells = False
End With
Selection.Merge
Range("Q16").Select
ActiveCell.FormulaR1C1 = "=nb"
Range("Q16").Select
ActiveCell.FormulaR1C1 = "=NETWORKDAYS(R[-12]C[-12],R[-1]C[-12])"
Application.DisplayAlerts = False
' linge 2
Application.DisplayAlerts = False
If Not IsEmpty(Range("A7")) Then
Sheets("modèle").Select
Cells.Select
Application.CutCopyMode = False
Selection.Copy
Sheets.Add After:=Sheets(Sheets.Count)
ActiveSheet.Paste
ActiveSheet.Name = "ficheprojet2"
Else
MsgBox "La Cellule A7 est Vide"
End If
Sheets("portefeuille de projet").Select
Range("T7").Select
Selection.Copy
Sheets("ficheprojet2").Select
Range("B22").Select
ActiveSheet.Paste
Sheets("portefeuille de projet").Select
Range("U7").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("ficheprojet2").Select
Range("B24").Select
ActiveSheet.Paste
Sheets("portefeuille de projet").Select
Range("V7").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("ficheprojet2").Select
Range("B26").Select
ActiveSheet.Paste
Sheets("portefeuille de projet").Select
Range("W7").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("ficheprojet2").Select
Range("B28").Select
ActiveSheet.Paste
Sheets("portefeuille de projet").Select
Range("B7").Select
Selection.Copy
Sheets("ficheprojet2").Select
Range("B5").Select
ActiveSheet.Paste
Sheets("portefeuille de projet").Select
Range("C7").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("ficheprojet2").Select
Range("B3:B4").Select
ActiveSheet.Paste
Sheets("portefeuille de projet").Select
Range("D7").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("ficheprojet2").Select
Range("B2").Select
ActiveSheet.Paste
Sheets("portefeuille de projet").Select
Range("E7").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("ficheprojet2").Select
Range("B1").Select
ActiveSheet.Paste
Sheets("portefeuille de projet").Select
Range("F7").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("ficheprojet2").Select
Range("A16:B20").Select
ActiveSheet.Paste
Sheets("portefeuille de projet").Select
Range("G7").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("ficheprojet2").Select
Range("A10:B14").Select
ActiveSheet.Paste
Sheets("portefeuille de projet").Select
Range("H7").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("ficheprojet2").Select
Range("B6").Select
ActiveSheet.Paste
Sheets("portefeuille de projet").Select
Range("I7").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("ficheprojet2").Select
Range("B7").Select
ActiveSheet.Paste
Sheets("portefeuille de projet").Select
Range("J7").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("ficheprojet2").Select
Range("B8").Select
ActiveSheet.Paste
Sheets("ficheprojet2").Select
Sheets("portefeuille de projet").Select
Range("X7").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("ficheprojet2").Select
Range("B30").Select
ActiveSheet.Paste
Sheets("portefeuille de projet").Select
Range("Y7").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("ficheprojet2").Select
Range("B31").Select
ActiveSheet.Paste
Sheets("portefeuille de projet").Select
Range("Z7").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("ficheprojet2").Select
Range("B32").Select
ActiveSheet.Paste
Sheets("ficheprojet2").Select
Sheets("portefeuille de projet").Select
Range("AA7").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("ficheprojet2").Select
Range("E4:Q4").Select
ActiveSheet.Paste
Sheets("portefeuille de projet").Select
Range("AB7").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("ficheprojet2").Select
Range("E15:Q15").Select
ActiveSheet.Paste
Sheets("portefeuille de projet").Select
Range("AC7").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("ficheprojet2").Select
Range("Q1").Select
ActiveSheet.Paste
Sheets("portefeuille de projet").Select
Range("AE7").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("ficheprojet2").Select
Range("E18:H18").Select
ActiveSheet.Paste
Sheets("portefeuille de projet").Select
Range("AF7").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("ficheprojet2").Select
Range("I18:L18").Select
ActiveSheet.Paste
Sheets("portefeuille de projet").Select
Range("AG7").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("ficheprojet2").Select
Range("M1818").Select
ActiveSheet.Paste
Sheets("portefeuille de projet").Select
Range("AH7").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("ficheprojet2").Select
Range("E19:H19").Select
ActiveSheet.Paste
Sheets("portefeuille de projet").Select
Range("AI7").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("ficheprojet2").Select
Range("I19:L19").Select
ActiveSheet.Paste
Sheets("portefeuille de projet").Select
Range("AJ7").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("ficheprojet2").Select
Range("M1919").Select
ActiveSheet.Paste
Sheets("portefeuille de projet").Select
Range("AK7").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("ficheprojet2").Select
Range("E20:H20").Select
ActiveSheet.Paste
Sheets("portefeuille de projet").Select
Range("AL7").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("ficheprojet2").Select
Range("I20:L20").Select
ActiveSheet.Paste
Sheets("portefeuille de projet").Select
Range("AM7").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("ficheprojet2").Select
Range("M2020").Select
ActiveSheet.Paste
Range("Q18").Select
Application.CutCopyMode = False
ActiveCell.FormulaR1C1 = "=SUM(RC[-12]:RC[-1])"
Range("Q18").Select
Selection.AutoFill Destination:=Range("Q18:Q23"), Type:=xlFillDefault
Range("Q18:Q23").Select
Sheets("portefeuille de projet").Select
Range("AN7").Select
Selection.Copy
Sheets("ficheprojet2").Select
Range("E21:H21").Select
ActiveSheet.Paste
Sheets("portefeuille de projet").Select
Range("AO7").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("ficheprojet2").Select
Range("I21:L21").Select
ActiveSheet.Paste
Sheets("portefeuille de projet").Select
Range("AP7").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("ficheprojet2").Select
Range("M2121").Select
ActiveSheet.Paste
Sheets("portefeuille de projet").Select
Range("AQ7").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("ficheprojet2").Select
Range("E22:H22").Select
ActiveSheet.Paste
Sheets("portefeuille de projet").Select
Range("AR7").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("ficheprojet2").Select
Range("I22:L22").Select
ActiveSheet.Paste
Sheets("portefeuille de projet").Select
Range("AS7").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("ficheprojet2").Select
Range("M2222").Select
ActiveSheet.Paste
Sheets("portefeuille de projet").Select
Range("AT7").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("ficheprojet2").Select
Range("E23:H23").Select
ActiveSheet.Paste
Sheets("portefeuille de projet").Select
Range("AU7").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("ficheprojet2").Select
Range("I23:L23").Select
ActiveSheet.Paste
Sheets("portefeuille de projet").Select
Range("AV7").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("ficheprojet2").Select
Range("M2323").Select
ActiveSheet.Paste
Range("E24:H24").Select
Application.CutCopyMode = False
ActiveCell.FormulaR1C1 = "=SUM(R[-6]C:R[-1]C[3])"
Range("E24:H24").Select
Selection.AutoFill Destination:=Range("E2424"), Type:=xlFillDefault
Range("E2424").Select
Range("Q24").Select
Sheets("portefeuille de projet").Select
ActiveCell.FormulaR1C1 = ""
Range("AW7").Select
Selection.Copy
Sheets("ficheprojet2").Select
ActiveWindow.SmallScroll Down:=9
Range("E27:H27").Select
ActiveSheet.Paste
Sheets("portefeuille de projet").Select
Range("AX7").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("ficheprojet2").Select
Range("I27:L27").Select
ActiveSheet.Paste
Sheets("portefeuille de projet").Select
Range("AY7").Select
Application.CutCopyMode = False
Selection.Copy
Range("AN31").Select
Sheets("ficheprojet2").Select
Range("M2727").Select
ActiveSheet.Paste
Sheets("portefeuille de projet").Select
Range("AZ7").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("ficheprojet2").Select
Range("E28:H28").Select
ActiveSheet.Paste
Sheets("portefeuille de projet").Select
Range("BA7").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("ficheprojet2").Select
Range("I28:L28").Select
ActiveSheet.Paste
Sheets("portefeuille de projet").Select
Range("BB7").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("ficheprojet2").Select
Range("M2828").Select
ActiveSheet.Paste
Sheets("portefeuille de projet").Select
Range("BC7").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("ficheprojet2").Select
Range("E29:H29").Select
ActiveSheet.Paste
Sheets("portefeuille de projet").Select
Range("BD7").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("ficheprojet2").Select
Range("I29:L29").Select
ActiveSheet.Paste
Sheets("portefeuille de projet").Select
Range("BE7").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("ficheprojet2").Select
Range("M2929").Select
ActiveSheet.Paste
Sheets("portefeuille de projet").Select
Range("BF7").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("ficheprojet2").Select
Range("E30:H30").Select
ActiveSheet.Paste
Sheets("portefeuille de projet").Select
Range("BG7").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("ficheprojet2").Select
Range("I30:L30").Select
ActiveSheet.Paste
Sheets("portefeuille de projet").Select
Range("BH7").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("ficheprojet2").Select
Range("M3030").Select
ActiveSheet.Paste
Range("E31:H31").Select
Application.CutCopyMode = False
ActiveCell.FormulaR1C1 = "=SUM(R[-4]C:R[-1]C[3])"
Range("I31:L31").Select
ActiveCell.FormulaR1C1 = "=SUM(R[-4]C:R[-1]C[3])"
Range("M3131").Select
ActiveCell.FormulaR1C1 = "=SUM(R[-4]C:R[-1]C[3])"
Range("Q27").Select
ActiveCell.FormulaR1C1 = "=SUM(RC[-12]:RC[-1])"
Range("Q27").Select
Selection.AutoFill Destination:=Range("Q27:Q30"), Type:=xlFillDefault
Range("Q27:Q30").Select
Range("Q32").Select
ActiveCell.FormulaR1C1 = "=SUM(R[-5]C:R[-2]C)"
Range("C25:Q25").Select
With Selection
.HorizontalAlignment = xlGeneral
.VerticalAlignment = xlCenter
.WrapText = False
.Orientation = 0
.AddIndent = False
.IndentLevel = 0
.ShrinkToFit = False
.ReadingOrder = xlContext
.MergeCells = True
End With
Selection.UnMerge
Range("C2525").Select
Range("P25").Activate
With Selection
.HorizontalAlignment = xlCenter
.VerticalAlignment = xlCenter
.WrapText = False
.Orientation = 0
.AddIndent = False
.IndentLevel = 0
.ShrinkToFit = False
.ReadingOrder = xlContext
.MergeCells = False
End With
Selection.Merge
Range("Q25").Select
ActiveCell.FormulaR1C1 = "=SUM(R[-7]C:R[-2]C)"
Range("Q32").Select
Selection.Copy
Range("Q25").Select
Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
Application.CutCopyMode = False
ActiveWindow.SmallScroll Down:=-9
Range("C16:Q16").Select
With Selection
.HorizontalAlignment = xlGeneral
.VerticalAlignment = xlCenter
.WrapText = False
.Orientation = 0
.AddIndent = False
.IndentLevel = 0
.ShrinkToFit = False
.ReadingOrder = xlContext
.MergeCells = True
End With
Selection.UnMerge
Range("C1616").Select
Range("P16").Activate
With Selection
.HorizontalAlignment = xlCenter
.VerticalAlignment = xlCenter
.WrapText = False
.Orientation = 0
.AddIndent = False
.IndentLevel = 0
.ShrinkToFit = False
.ReadingOrder = xlContext
.MergeCells = False
End With
Selection.Merge
Range("Q16").Select
ActiveCell.FormulaR1C1 = "=nb"
Range("Q16").Select
ActiveCell.FormulaR1C1 = "=NETWORKDAYS(R[-12]C[-12],R[-1]C[-12])"
Application.DisplayAlerts = False
' linge 3
Application.DisplayAlerts = False
If Not IsEmpty(Range("A8")) Then
Sheets("modèle").Select
Cells.Select
Application.CutCopyMode = False
Selection.Copy
Sheets.Add After:=Sheets(Sheets.Count)
ActiveSheet.Paste
ActiveSheet.Name = "ficheprojet3"
Else
MsgBox "La Cellule A8 est Vide"
End If
Sheets("portefeuille de projet").Select
Range("T8").Select
Selection.Copy
Sheets("ficheprojet3").Select
Range("B22").Select
ActiveSheet.Paste
Sheets("portefeuille de projet").Select
Range("U8").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("ficheprojet3").Select
Range("B24").Select
ActiveSheet.Paste
Sheets("portefeuille de projet").Select
Range("V8").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("ficheprojet3").Select
Range("B26").Select
ActiveSheet.Paste
Sheets("portefeuille de projet").Select
Range("W8").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("ficheprojet3").Select
Range("B28").Select
ActiveSheet.Paste
Sheets("portefeuille de projet").Select
Range("B8").Select
Selection.Copy
Sheets("ficheprojet3").Select
Range("B5").Select
ActiveSheet.Paste
Sheets("portefeuille de projet").Select
Range("C8").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("ficheprojet3").Select
Range("B3:B4").Select
ActiveSheet.Paste
Sheets("portefeuille de projet").Select
Range("D8").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("ficheprojet3").Select
Range("B2").Select
ActiveSheet.Paste
Sheets("portefeuille de projet").Select
Range("E8").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("ficheprojet3").Select
Range("B1").Select
ActiveSheet.Paste
Sheets("portefeuille de projet").Select
Range("F8").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("ficheprojet3").Select
Range("A16:B20").Select
ActiveSheet.Paste
Sheets("portefeuille de projet").Select
Range("G8").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("ficheprojet3").Select
Range("A10:B14").Select
ActiveSheet.Paste
Sheets("portefeuille de projet").Select
Range("H8").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("ficheprojet3").Select
Range("B6").Select
ActiveSheet.Paste
Sheets("portefeuille de projet").Select
Range("I8").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("ficheprojet3").Select
Range("B7").Select
ActiveSheet.Paste
Sheets("portefeuille de projet").Select
Range("J8").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("ficheprojet3").Select
Range("B8").Select
ActiveSheet.Paste
Sheets("ficheprojet3").Select
Sheets("portefeuille de projet").Select
Range("X8").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("ficheprojet3").Select
Range("B30").Select
ActiveSheet.Paste
Sheets("portefeuille de projet").Select
Range("Y8").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("ficheprojet3").Select
Range("B31").Select
ActiveSheet.Paste
Sheets("portefeuille de projet").Select
Range("Z8").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("ficheprojet3").Select
Range("B32").Select
ActiveSheet.Paste
Sheets("ficheprojet3").Select
Sheets("portefeuille de projet").Select
Range("AA8").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("ficheprojet3").Select
Range("E4:Q4").Select
ActiveSheet.Paste
Sheets("portefeuille de projet").Select
Range("AB8").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("ficheprojet3").Select
Range("E15:Q15").Select
ActiveSheet.Paste
Sheets("portefeuille de projet").Select
Range("AC8").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("ficheprojet3").Select
Range("Q1").Select
ActiveSheet.Paste
Sheets("portefeuille de projet").Select
Range("AE8").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("ficheprojet3").Select
Range("E18:H18").Select
ActiveSheet.Paste
Sheets("portefeuille de projet").Select
Range("AF8").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("ficheprojet3").Select
Range("I18:L18").Select
ActiveSheet.Paste
Sheets("portefeuille de projet").Select
Range("AG8").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("ficheprojet3").Select
Range("M1818").Select
ActiveSheet.Paste
Sheets("portefeuille de projet").Select
Range("AH8").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("ficheprojet3").Select
Range("E19:H19").Select
ActiveSheet.Paste
Sheets("portefeuille de projet").Select
Range("AI8").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("ficheprojet3").Select
Range("I19:L19").Select
ActiveSheet.Paste
Sheets("portefeuille de projet").Select
Range("AJ8").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("ficheprojet3").Select
Range("M1919").Select
ActiveSheet.Paste
Sheets("portefeuille de projet").Select
Range("AK8").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("ficheprojet3").Select
Range("E20:H20").Select
ActiveSheet.Paste
Sheets("portefeuille de projet").Select
Range("AL8").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("ficheprojet3").Select
Range("I20:L20").Select
ActiveSheet.Paste
Sheets("portefeuille de projet").Select
Range("AM8").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("ficheprojet3").Select
Range("M2020").Select
ActiveSheet.Paste
Range("Q18").Select
Application.CutCopyMode = False
ActiveCell.FormulaR1C1 = "=SUM(RC[-12]:RC[-1])"
Range("Q18").Select
Selection.AutoFill Destination:=Range("Q18:Q23"), Type:=xlFillDefault
Range("Q18:Q23").Select
Sheets("portefeuille de projet").Select
Range("AN8").Select
Selection.Copy
Sheets("ficheprojet3").Select
Range("E21:H21").Select
ActiveSheet.Paste
Sheets("portefeuille de projet").Select
Range("AO8").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("ficheprojet3").Select
Range("I21:L21").Select
ActiveSheet.Paste
Sheets("portefeuille de projet").Select
Range("AP8").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("ficheprojet3").Select
Range("M2121").Select
ActiveSheet.Paste
Sheets("portefeuille de projet").Select
Range("AQ8").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("ficheprojet3").Select
Range("E22:H22").Select
ActiveSheet.Paste
Sheets("portefeuille de projet").Select
Range("AR8").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("ficheprojet3").Select
Range("I22:L22").Select
ActiveSheet.Paste
Sheets("portefeuille de projet").Select
Range("AS8").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("ficheprojet3").Select
Range("M2222").Select
ActiveSheet.Paste
Sheets("portefeuille de projet").Select
Range("AT8").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("ficheprojet3").Select
Range("E23:H23").Select
ActiveSheet.Paste
Sheets("portefeuille de projet").Select
Range("AU8").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("ficheprojet3").Select
Range("I23:L23").Select
ActiveSheet.Paste
Sheets("portefeuille de projet").Select
Range("AV8").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("ficheprojet3").Select
Range("M2323").Select
ActiveSheet.Paste
Range("E24:H24").Select
Application.CutCopyMode = False
ActiveCell.FormulaR1C1 = "=SUM(R[-6]C:R[-1]C[3])"
Range("E24:H24").Select
Selection.AutoFill Destination:=Range("E2424"), Type:=xlFillDefault
Range("E2424").Select
Range("Q24").Select
Sheets("portefeuille de projet").Select
ActiveCell.FormulaR1C1 = ""
Range("AW8").Select
Selection.Copy
Sheets("ficheprojet3").Select
ActiveWindow.SmallScroll Down:=9
Range("E27:H27").Select
ActiveSheet.Paste
Sheets("portefeuille de projet").Select
Range("AX8").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("ficheprojet3").Select
Range("I27:L27").Select
ActiveSheet.Paste
Sheets("portefeuille de projet").Select
Range("AY8").Select
Application.CutCopyMode = False
Selection.Copy
Range("AN31").Select
Sheets("ficheprojet3").Select
Range("M2727").Select
ActiveSheet.Paste
Sheets("portefeuille de projet").Select
Range("AZ8").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("ficheprojet3").Select
Range("E28:H28").Select
ActiveSheet.Paste
Sheets("portefeuille de projet").Select
Range("BA8").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("ficheprojet3").Select
Range("I28:L28").Select
ActiveSheet.Paste
Sheets("portefeuille de projet").Select
Range("BB8").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("ficheprojet3").Select
Range("M2828").Select
ActiveSheet.Paste
Sheets("portefeuille de projet").Select
Range("BC8").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("ficheprojet3").Select
Range("E29:H29").Select
ActiveSheet.Paste
Sheets("portefeuille de projet").Select
Range("BD8").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("ficheprojet3").Select
Range("I29:L29").Select
ActiveSheet.Paste
Sheets("portefeuille de projet").Select
Range("BE8").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("ficheprojet3").Select
Range("M2929").Select
ActiveSheet.Paste
Sheets("portefeuille de projet").Select
Range("BF8").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("ficheprojet3").Select
Range("E30:H30").Select
ActiveSheet.Paste
Sheets("portefeuille de projet").Select
Range("BG8").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("ficheprojet3").Select
Range("I30:L30").Select
ActiveSheet.Paste
Sheets("portefeuille de projet").Select
Range("BH8").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("ficheprojet3").Select
Range("M3030").Select
ActiveSheet.Paste
Range("E31:H31").Select
Application.CutCopyMode = False
ActiveCell.FormulaR1C1 = "=SUM(R[-4]C:R[-1]C[3])"
Range("I31:L31").Select
ActiveCell.FormulaR1C1 = "=SUM(R[-4]C:R[-1]C[3])"
Range("M3131").Select
ActiveCell.FormulaR1C1 = "=SUM(R[-4]C:R[-1]C[3])"
Range("Q27").Select
ActiveCell.FormulaR1C1 = "=SUM(RC[-12]:RC[-1])"
Range("Q27").Select
Selection.AutoFill Destination:=Range("Q27:Q30"), Type:=xlFillDefault
Range("Q27:Q30").Select
Range("Q32").Select
ActiveCell.FormulaR1C1 = "=SUM(R[-5]C:R[-2]C)"
Range("C25:Q25").Select
With Selection
.HorizontalAlignment = xlGeneral
.VerticalAlignment = xlCenter
.WrapText = False
.Orientation = 0
.AddIndent = False
.IndentLevel = 0
.ShrinkToFit = False
.ReadingOrder = xlContext
.MergeCells = True
End With
Selection.UnMerge
Range("C2525").Select
Range("P25").Activate
With Selection
.HorizontalAlignment = xlCenter
.VerticalAlignment = xlCenter
.WrapText = False
.Orientation = 0
.AddIndent = False
.IndentLevel = 0
.ShrinkToFit = False
.ReadingOrder = xlContext
.MergeCells = False
End With
Selection.Merge
Range("Q25").Select
ActiveCell.FormulaR1C1 = "=SUM(R[-7]C:R[-2]C)"
Range("Q32").Select
Selection.Copy
Range("Q25").Select
Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
Application.CutCopyMode = False
ActiveWindow.SmallScroll Down:=-9
Range("C16:Q16").Select
With Selection
.HorizontalAlignment = xlGeneral
.VerticalAlignment = xlCenter
.WrapText = False
.Orientation = 0
.AddIndent = False
.IndentLevel = 0
.ShrinkToFit = False
.ReadingOrder = xlContext
.MergeCells = True
End With
Selection.UnMerge
Range("C1616").Select
Range("P16").Activate
With Selection
.HorizontalAlignment = xlCenter
.VerticalAlignment = xlCenter
.WrapText = False
.Orientation = 0
.AddIndent = False
.IndentLevel = 0
.ShrinkToFit = False
.ReadingOrder = xlContext
.MergeCells = False
End With
Selection.Merge
Range("Q16").Select
ActiveCell.FormulaR1C1 = "=nb"
Range("Q16").Select
ActiveCell.FormulaR1C1 = "=NETWORKDAYS(R[-12]C[-12],R[-1]C[-12])"
Application.DisplayAlerts = False
End Sub
Besoin d'aide pour automatiser ma macro, je souhaite remplir un certain nombre de ligne dans une feuille (portefeuille projets) puis pour Chaque ligne créer un nouvel onglet (fiche projet) en copiant/collant les données.
Ce code très basic marche jusqu'à 3 nouveaux onglets, comment faire pour l'automatiser pour créer autant d'onglet qu'on a de lignes dans la feuille principale ?
Merci pour votre aide,
Voici mon code ci-dessous:
Sub Macro2()
'
' Macro2 Macro
'
'
Application.DisplayAlerts = False
If Not IsEmpty(Range("A6")) Then
Sheets("modèle").Select
Cells.Select
Application.CutCopyMode = False
Selection.Copy
Sheets.Add After:=Sheets(Sheets.Count)
ActiveSheet.Paste
ActiveSheet.Name = "ficheprojet1"
Else
MsgBox "La Cellule A6 est Vide"
End If
Sheets("portefeuille de projet").Select
Range("T6").Select
Selection.Copy
Sheets("ficheprojet1").Select
Range("B22").Select
ActiveSheet.Paste
Sheets("portefeuille de projet").Select
Range("U6").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("ficheprojet1").Select
Range("B24").Select
ActiveSheet.Paste
Sheets("portefeuille de projet").Select
Range("V6").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("ficheprojet1").Select
Range("B26").Select
ActiveSheet.Paste
Sheets("portefeuille de projet").Select
Range("W6").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("ficheprojet1").Select
Range("B28").Select
ActiveSheet.Paste
Sheets("portefeuille de projet").Select
Range("B6").Select
Selection.Copy
Sheets("ficheprojet1").Select
Range("B5").Select
ActiveSheet.Paste
Sheets("portefeuille de projet").Select
Range("C6").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("ficheprojet1").Select
Range("B3:B4").Select
ActiveSheet.Paste
Sheets("portefeuille de projet").Select
Range("D6").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("ficheprojet1").Select
Range("B2").Select
ActiveSheet.Paste
Sheets("portefeuille de projet").Select
Range("E6").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("ficheprojet1").Select
Range("B1").Select
ActiveSheet.Paste
Sheets("portefeuille de projet").Select
Range("F6").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("ficheprojet1").Select
Range("A16:B20").Select
ActiveSheet.Paste
Sheets("portefeuille de projet").Select
Range("G6").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("ficheprojet1").Select
Range("A10:B14").Select
ActiveSheet.Paste
Sheets("portefeuille de projet").Select
Range("H6").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("ficheprojet1").Select
Range("B6").Select
ActiveSheet.Paste
Sheets("portefeuille de projet").Select
Range("I6").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("ficheprojet1").Select
Range("B7").Select
ActiveSheet.Paste
Sheets("portefeuille de projet").Select
Range("J6").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("ficheprojet1").Select
Range("B8").Select
ActiveSheet.Paste
Sheets("ficheprojet1").Select
Sheets("portefeuille de projet").Select
Range("X6").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("ficheprojet1").Select
Range("B30").Select
ActiveSheet.Paste
Sheets("portefeuille de projet").Select
Range("Y6").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("ficheprojet1").Select
Range("B31").Select
ActiveSheet.Paste
Sheets("portefeuille de projet").Select
Range("Z6").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("ficheprojet1").Select
Range("B32").Select
ActiveSheet.Paste
Sheets("ficheprojet1").Select
Sheets("portefeuille de projet").Select
Range("AA6").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("ficheprojet1").Select
Range("E4:Q4").Select
ActiveSheet.Paste
Sheets("portefeuille de projet").Select
Range("AB6").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("ficheprojet1").Select
Range("E15:Q15").Select
ActiveSheet.Paste
Sheets("portefeuille de projet").Select
Range("AC6").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("ficheprojet1").Select
Range("Q1").Select
ActiveSheet.Paste
Sheets("portefeuille de projet").Select
Range("AE6").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("ficheprojet1").Select
Range("E18:H18").Select
ActiveSheet.Paste
Sheets("portefeuille de projet").Select
Range("AF6").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("ficheprojet1").Select
Range("I18:L18").Select
ActiveSheet.Paste
Sheets("portefeuille de projet").Select
Range("AG6").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("ficheprojet1").Select
Range("M1818").Select
ActiveSheet.Paste
Sheets("portefeuille de projet").Select
Range("AH6").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("ficheprojet1").Select
Range("E19:H19").Select
ActiveSheet.Paste
Sheets("portefeuille de projet").Select
Range("AI6").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("ficheprojet1").Select
Range("I19:L19").Select
ActiveSheet.Paste
Sheets("portefeuille de projet").Select
Range("AJ6").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("ficheprojet1").Select
Range("M1919").Select
ActiveSheet.Paste
Sheets("portefeuille de projet").Select
Range("AK6").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("ficheprojet1").Select
Range("E20:H20").Select
ActiveSheet.Paste
Sheets("portefeuille de projet").Select
Range("AL6").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("ficheprojet1").Select
Range("I20:L20").Select
ActiveSheet.Paste
Sheets("portefeuille de projet").Select
Range("AM6").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("ficheprojet1").Select
Range("M2020").Select
ActiveSheet.Paste
Range("Q18").Select
Application.CutCopyMode = False
ActiveCell.FormulaR1C1 = "=SUM(RC[-12]:RC[-1])"
Range("Q18").Select
Selection.AutoFill Destination:=Range("Q18:Q23"), Type:=xlFillDefault
Range("Q18:Q23").Select
Sheets("portefeuille de projet").Select
Range("AN6").Select
Selection.Copy
Sheets("ficheprojet1").Select
Range("E21:H21").Select
ActiveSheet.Paste
Sheets("portefeuille de projet").Select
Range("AO6").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("ficheprojet1").Select
Range("I21:L21").Select
ActiveSheet.Paste
Sheets("portefeuille de projet").Select
Range("AP6").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("ficheprojet1").Select
Range("M2121").Select
ActiveSheet.Paste
Sheets("portefeuille de projet").Select
Range("AQ6").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("ficheprojet1").Select
Range("E22:H22").Select
ActiveSheet.Paste
Sheets("portefeuille de projet").Select
Range("AR6").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("ficheprojet1").Select
Range("I22:L22").Select
ActiveSheet.Paste
Sheets("portefeuille de projet").Select
Range("AS6").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("ficheprojet1").Select
Range("M2222").Select
ActiveSheet.Paste
Sheets("portefeuille de projet").Select
Range("AT6").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("ficheprojet1").Select
Range("E23:H23").Select
ActiveSheet.Paste
Sheets("portefeuille de projet").Select
Range("AU6").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("ficheprojet1").Select
Range("I23:L23").Select
ActiveSheet.Paste
Sheets("portefeuille de projet").Select
Range("AV6").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("ficheprojet1").Select
Range("M2323").Select
ActiveSheet.Paste
Range("E24:H24").Select
Application.CutCopyMode = False
ActiveCell.FormulaR1C1 = "=SUM(R[-6]C:R[-1]C[3])"
Range("E24:H24").Select
Selection.AutoFill Destination:=Range("E2424"), Type:=xlFillDefault
Range("E2424").Select
Range("Q24").Select
Sheets("portefeuille de projet").Select
ActiveCell.FormulaR1C1 = ""
Range("AW6").Select
Selection.Copy
Sheets("ficheprojet1").Select
ActiveWindow.SmallScroll Down:=9
Range("E27:H27").Select
ActiveSheet.Paste
Sheets("portefeuille de projet").Select
Range("AX6").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("ficheprojet1").Select
Range("I27:L27").Select
ActiveSheet.Paste
Sheets("portefeuille de projet").Select
Range("AY6").Select
Application.CutCopyMode = False
Selection.Copy
Range("AN31").Select
Sheets("ficheprojet1").Select
Range("M2727").Select
ActiveSheet.Paste
Sheets("portefeuille de projet").Select
Range("AZ6").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("ficheprojet1").Select
Range("E28:H28").Select
ActiveSheet.Paste
Sheets("portefeuille de projet").Select
Range("BA6").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("ficheprojet1").Select
Range("I28:L28").Select
ActiveSheet.Paste
Sheets("portefeuille de projet").Select
Range("BB6").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("ficheprojet1").Select
Range("M2828").Select
ActiveSheet.Paste
Sheets("portefeuille de projet").Select
Range("BC6").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("ficheprojet1").Select
Range("E29:H29").Select
ActiveSheet.Paste
Sheets("portefeuille de projet").Select
Range("BD6").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("ficheprojet1").Select
Range("I29:L29").Select
ActiveSheet.Paste
Sheets("portefeuille de projet").Select
Range("BE6").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("ficheprojet1").Select
Range("M2929").Select
ActiveSheet.Paste
Sheets("portefeuille de projet").Select
Range("BF6").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("ficheprojet1").Select
Range("E30:H30").Select
ActiveSheet.Paste
Sheets("portefeuille de projet").Select
Range("BG6").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("ficheprojet1").Select
Range("I30:L30").Select
ActiveSheet.Paste
Sheets("portefeuille de projet").Select
Range("BH6").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("ficheprojet1").Select
Range("M3030").Select
ActiveSheet.Paste
Range("E31:H31").Select
Application.CutCopyMode = False
ActiveCell.FormulaR1C1 = "=SUM(R[-4]C:R[-1]C[3])"
Range("I31:L31").Select
ActiveCell.FormulaR1C1 = "=SUM(R[-4]C:R[-1]C[3])"
Range("M3131").Select
ActiveCell.FormulaR1C1 = "=SUM(R[-4]C:R[-1]C[3])"
Range("Q27").Select
ActiveCell.FormulaR1C1 = "=SUM(RC[-12]:RC[-1])"
Range("Q27").Select
Selection.AutoFill Destination:=Range("Q27:Q30"), Type:=xlFillDefault
Range("Q27:Q30").Select
Range("Q32").Select
ActiveCell.FormulaR1C1 = "=SUM(R[-5]C:R[-2]C)"
Range("C25:Q25").Select
With Selection
.HorizontalAlignment = xlGeneral
.VerticalAlignment = xlCenter
.WrapText = False
.Orientation = 0
.AddIndent = False
.IndentLevel = 0
.ShrinkToFit = False
.ReadingOrder = xlContext
.MergeCells = True
End With
Selection.UnMerge
Range("C2525").Select
Range("P25").Activate
With Selection
.HorizontalAlignment = xlCenter
.VerticalAlignment = xlCenter
.WrapText = False
.Orientation = 0
.AddIndent = False
.IndentLevel = 0
.ShrinkToFit = False
.ReadingOrder = xlContext
.MergeCells = False
End With
Selection.Merge
Range("Q25").Select
ActiveCell.FormulaR1C1 = "=SUM(R[-7]C:R[-2]C)"
Range("Q32").Select
Selection.Copy
Range("Q25").Select
Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
Application.CutCopyMode = False
ActiveWindow.SmallScroll Down:=-9
Range("C16:Q16").Select
With Selection
.HorizontalAlignment = xlGeneral
.VerticalAlignment = xlCenter
.WrapText = False
.Orientation = 0
.AddIndent = False
.IndentLevel = 0
.ShrinkToFit = False
.ReadingOrder = xlContext
.MergeCells = True
End With
Selection.UnMerge
Range("C1616").Select
Range("P16").Activate
With Selection
.HorizontalAlignment = xlCenter
.VerticalAlignment = xlCenter
.WrapText = False
.Orientation = 0
.AddIndent = False
.IndentLevel = 0
.ShrinkToFit = False
.ReadingOrder = xlContext
.MergeCells = False
End With
Selection.Merge
Range("Q16").Select
ActiveCell.FormulaR1C1 = "=nb"
Range("Q16").Select
ActiveCell.FormulaR1C1 = "=NETWORKDAYS(R[-12]C[-12],R[-1]C[-12])"
Application.DisplayAlerts = False
' linge 2
Application.DisplayAlerts = False
If Not IsEmpty(Range("A7")) Then
Sheets("modèle").Select
Cells.Select
Application.CutCopyMode = False
Selection.Copy
Sheets.Add After:=Sheets(Sheets.Count)
ActiveSheet.Paste
ActiveSheet.Name = "ficheprojet2"
Else
MsgBox "La Cellule A7 est Vide"
End If
Sheets("portefeuille de projet").Select
Range("T7").Select
Selection.Copy
Sheets("ficheprojet2").Select
Range("B22").Select
ActiveSheet.Paste
Sheets("portefeuille de projet").Select
Range("U7").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("ficheprojet2").Select
Range("B24").Select
ActiveSheet.Paste
Sheets("portefeuille de projet").Select
Range("V7").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("ficheprojet2").Select
Range("B26").Select
ActiveSheet.Paste
Sheets("portefeuille de projet").Select
Range("W7").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("ficheprojet2").Select
Range("B28").Select
ActiveSheet.Paste
Sheets("portefeuille de projet").Select
Range("B7").Select
Selection.Copy
Sheets("ficheprojet2").Select
Range("B5").Select
ActiveSheet.Paste
Sheets("portefeuille de projet").Select
Range("C7").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("ficheprojet2").Select
Range("B3:B4").Select
ActiveSheet.Paste
Sheets("portefeuille de projet").Select
Range("D7").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("ficheprojet2").Select
Range("B2").Select
ActiveSheet.Paste
Sheets("portefeuille de projet").Select
Range("E7").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("ficheprojet2").Select
Range("B1").Select
ActiveSheet.Paste
Sheets("portefeuille de projet").Select
Range("F7").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("ficheprojet2").Select
Range("A16:B20").Select
ActiveSheet.Paste
Sheets("portefeuille de projet").Select
Range("G7").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("ficheprojet2").Select
Range("A10:B14").Select
ActiveSheet.Paste
Sheets("portefeuille de projet").Select
Range("H7").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("ficheprojet2").Select
Range("B6").Select
ActiveSheet.Paste
Sheets("portefeuille de projet").Select
Range("I7").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("ficheprojet2").Select
Range("B7").Select
ActiveSheet.Paste
Sheets("portefeuille de projet").Select
Range("J7").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("ficheprojet2").Select
Range("B8").Select
ActiveSheet.Paste
Sheets("ficheprojet2").Select
Sheets("portefeuille de projet").Select
Range("X7").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("ficheprojet2").Select
Range("B30").Select
ActiveSheet.Paste
Sheets("portefeuille de projet").Select
Range("Y7").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("ficheprojet2").Select
Range("B31").Select
ActiveSheet.Paste
Sheets("portefeuille de projet").Select
Range("Z7").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("ficheprojet2").Select
Range("B32").Select
ActiveSheet.Paste
Sheets("ficheprojet2").Select
Sheets("portefeuille de projet").Select
Range("AA7").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("ficheprojet2").Select
Range("E4:Q4").Select
ActiveSheet.Paste
Sheets("portefeuille de projet").Select
Range("AB7").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("ficheprojet2").Select
Range("E15:Q15").Select
ActiveSheet.Paste
Sheets("portefeuille de projet").Select
Range("AC7").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("ficheprojet2").Select
Range("Q1").Select
ActiveSheet.Paste
Sheets("portefeuille de projet").Select
Range("AE7").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("ficheprojet2").Select
Range("E18:H18").Select
ActiveSheet.Paste
Sheets("portefeuille de projet").Select
Range("AF7").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("ficheprojet2").Select
Range("I18:L18").Select
ActiveSheet.Paste
Sheets("portefeuille de projet").Select
Range("AG7").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("ficheprojet2").Select
Range("M1818").Select
ActiveSheet.Paste
Sheets("portefeuille de projet").Select
Range("AH7").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("ficheprojet2").Select
Range("E19:H19").Select
ActiveSheet.Paste
Sheets("portefeuille de projet").Select
Range("AI7").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("ficheprojet2").Select
Range("I19:L19").Select
ActiveSheet.Paste
Sheets("portefeuille de projet").Select
Range("AJ7").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("ficheprojet2").Select
Range("M1919").Select
ActiveSheet.Paste
Sheets("portefeuille de projet").Select
Range("AK7").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("ficheprojet2").Select
Range("E20:H20").Select
ActiveSheet.Paste
Sheets("portefeuille de projet").Select
Range("AL7").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("ficheprojet2").Select
Range("I20:L20").Select
ActiveSheet.Paste
Sheets("portefeuille de projet").Select
Range("AM7").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("ficheprojet2").Select
Range("M2020").Select
ActiveSheet.Paste
Range("Q18").Select
Application.CutCopyMode = False
ActiveCell.FormulaR1C1 = "=SUM(RC[-12]:RC[-1])"
Range("Q18").Select
Selection.AutoFill Destination:=Range("Q18:Q23"), Type:=xlFillDefault
Range("Q18:Q23").Select
Sheets("portefeuille de projet").Select
Range("AN7").Select
Selection.Copy
Sheets("ficheprojet2").Select
Range("E21:H21").Select
ActiveSheet.Paste
Sheets("portefeuille de projet").Select
Range("AO7").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("ficheprojet2").Select
Range("I21:L21").Select
ActiveSheet.Paste
Sheets("portefeuille de projet").Select
Range("AP7").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("ficheprojet2").Select
Range("M2121").Select
ActiveSheet.Paste
Sheets("portefeuille de projet").Select
Range("AQ7").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("ficheprojet2").Select
Range("E22:H22").Select
ActiveSheet.Paste
Sheets("portefeuille de projet").Select
Range("AR7").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("ficheprojet2").Select
Range("I22:L22").Select
ActiveSheet.Paste
Sheets("portefeuille de projet").Select
Range("AS7").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("ficheprojet2").Select
Range("M2222").Select
ActiveSheet.Paste
Sheets("portefeuille de projet").Select
Range("AT7").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("ficheprojet2").Select
Range("E23:H23").Select
ActiveSheet.Paste
Sheets("portefeuille de projet").Select
Range("AU7").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("ficheprojet2").Select
Range("I23:L23").Select
ActiveSheet.Paste
Sheets("portefeuille de projet").Select
Range("AV7").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("ficheprojet2").Select
Range("M2323").Select
ActiveSheet.Paste
Range("E24:H24").Select
Application.CutCopyMode = False
ActiveCell.FormulaR1C1 = "=SUM(R[-6]C:R[-1]C[3])"
Range("E24:H24").Select
Selection.AutoFill Destination:=Range("E2424"), Type:=xlFillDefault
Range("E2424").Select
Range("Q24").Select
Sheets("portefeuille de projet").Select
ActiveCell.FormulaR1C1 = ""
Range("AW7").Select
Selection.Copy
Sheets("ficheprojet2").Select
ActiveWindow.SmallScroll Down:=9
Range("E27:H27").Select
ActiveSheet.Paste
Sheets("portefeuille de projet").Select
Range("AX7").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("ficheprojet2").Select
Range("I27:L27").Select
ActiveSheet.Paste
Sheets("portefeuille de projet").Select
Range("AY7").Select
Application.CutCopyMode = False
Selection.Copy
Range("AN31").Select
Sheets("ficheprojet2").Select
Range("M2727").Select
ActiveSheet.Paste
Sheets("portefeuille de projet").Select
Range("AZ7").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("ficheprojet2").Select
Range("E28:H28").Select
ActiveSheet.Paste
Sheets("portefeuille de projet").Select
Range("BA7").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("ficheprojet2").Select
Range("I28:L28").Select
ActiveSheet.Paste
Sheets("portefeuille de projet").Select
Range("BB7").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("ficheprojet2").Select
Range("M2828").Select
ActiveSheet.Paste
Sheets("portefeuille de projet").Select
Range("BC7").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("ficheprojet2").Select
Range("E29:H29").Select
ActiveSheet.Paste
Sheets("portefeuille de projet").Select
Range("BD7").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("ficheprojet2").Select
Range("I29:L29").Select
ActiveSheet.Paste
Sheets("portefeuille de projet").Select
Range("BE7").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("ficheprojet2").Select
Range("M2929").Select
ActiveSheet.Paste
Sheets("portefeuille de projet").Select
Range("BF7").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("ficheprojet2").Select
Range("E30:H30").Select
ActiveSheet.Paste
Sheets("portefeuille de projet").Select
Range("BG7").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("ficheprojet2").Select
Range("I30:L30").Select
ActiveSheet.Paste
Sheets("portefeuille de projet").Select
Range("BH7").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("ficheprojet2").Select
Range("M3030").Select
ActiveSheet.Paste
Range("E31:H31").Select
Application.CutCopyMode = False
ActiveCell.FormulaR1C1 = "=SUM(R[-4]C:R[-1]C[3])"
Range("I31:L31").Select
ActiveCell.FormulaR1C1 = "=SUM(R[-4]C:R[-1]C[3])"
Range("M3131").Select
ActiveCell.FormulaR1C1 = "=SUM(R[-4]C:R[-1]C[3])"
Range("Q27").Select
ActiveCell.FormulaR1C1 = "=SUM(RC[-12]:RC[-1])"
Range("Q27").Select
Selection.AutoFill Destination:=Range("Q27:Q30"), Type:=xlFillDefault
Range("Q27:Q30").Select
Range("Q32").Select
ActiveCell.FormulaR1C1 = "=SUM(R[-5]C:R[-2]C)"
Range("C25:Q25").Select
With Selection
.HorizontalAlignment = xlGeneral
.VerticalAlignment = xlCenter
.WrapText = False
.Orientation = 0
.AddIndent = False
.IndentLevel = 0
.ShrinkToFit = False
.ReadingOrder = xlContext
.MergeCells = True
End With
Selection.UnMerge
Range("C2525").Select
Range("P25").Activate
With Selection
.HorizontalAlignment = xlCenter
.VerticalAlignment = xlCenter
.WrapText = False
.Orientation = 0
.AddIndent = False
.IndentLevel = 0
.ShrinkToFit = False
.ReadingOrder = xlContext
.MergeCells = False
End With
Selection.Merge
Range("Q25").Select
ActiveCell.FormulaR1C1 = "=SUM(R[-7]C:R[-2]C)"
Range("Q32").Select
Selection.Copy
Range("Q25").Select
Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
Application.CutCopyMode = False
ActiveWindow.SmallScroll Down:=-9
Range("C16:Q16").Select
With Selection
.HorizontalAlignment = xlGeneral
.VerticalAlignment = xlCenter
.WrapText = False
.Orientation = 0
.AddIndent = False
.IndentLevel = 0
.ShrinkToFit = False
.ReadingOrder = xlContext
.MergeCells = True
End With
Selection.UnMerge
Range("C1616").Select
Range("P16").Activate
With Selection
.HorizontalAlignment = xlCenter
.VerticalAlignment = xlCenter
.WrapText = False
.Orientation = 0
.AddIndent = False
.IndentLevel = 0
.ShrinkToFit = False
.ReadingOrder = xlContext
.MergeCells = False
End With
Selection.Merge
Range("Q16").Select
ActiveCell.FormulaR1C1 = "=nb"
Range("Q16").Select
ActiveCell.FormulaR1C1 = "=NETWORKDAYS(R[-12]C[-12],R[-1]C[-12])"
Application.DisplayAlerts = False
' linge 3
Application.DisplayAlerts = False
If Not IsEmpty(Range("A8")) Then
Sheets("modèle").Select
Cells.Select
Application.CutCopyMode = False
Selection.Copy
Sheets.Add After:=Sheets(Sheets.Count)
ActiveSheet.Paste
ActiveSheet.Name = "ficheprojet3"
Else
MsgBox "La Cellule A8 est Vide"
End If
Sheets("portefeuille de projet").Select
Range("T8").Select
Selection.Copy
Sheets("ficheprojet3").Select
Range("B22").Select
ActiveSheet.Paste
Sheets("portefeuille de projet").Select
Range("U8").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("ficheprojet3").Select
Range("B24").Select
ActiveSheet.Paste
Sheets("portefeuille de projet").Select
Range("V8").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("ficheprojet3").Select
Range("B26").Select
ActiveSheet.Paste
Sheets("portefeuille de projet").Select
Range("W8").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("ficheprojet3").Select
Range("B28").Select
ActiveSheet.Paste
Sheets("portefeuille de projet").Select
Range("B8").Select
Selection.Copy
Sheets("ficheprojet3").Select
Range("B5").Select
ActiveSheet.Paste
Sheets("portefeuille de projet").Select
Range("C8").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("ficheprojet3").Select
Range("B3:B4").Select
ActiveSheet.Paste
Sheets("portefeuille de projet").Select
Range("D8").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("ficheprojet3").Select
Range("B2").Select
ActiveSheet.Paste
Sheets("portefeuille de projet").Select
Range("E8").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("ficheprojet3").Select
Range("B1").Select
ActiveSheet.Paste
Sheets("portefeuille de projet").Select
Range("F8").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("ficheprojet3").Select
Range("A16:B20").Select
ActiveSheet.Paste
Sheets("portefeuille de projet").Select
Range("G8").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("ficheprojet3").Select
Range("A10:B14").Select
ActiveSheet.Paste
Sheets("portefeuille de projet").Select
Range("H8").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("ficheprojet3").Select
Range("B6").Select
ActiveSheet.Paste
Sheets("portefeuille de projet").Select
Range("I8").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("ficheprojet3").Select
Range("B7").Select
ActiveSheet.Paste
Sheets("portefeuille de projet").Select
Range("J8").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("ficheprojet3").Select
Range("B8").Select
ActiveSheet.Paste
Sheets("ficheprojet3").Select
Sheets("portefeuille de projet").Select
Range("X8").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("ficheprojet3").Select
Range("B30").Select
ActiveSheet.Paste
Sheets("portefeuille de projet").Select
Range("Y8").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("ficheprojet3").Select
Range("B31").Select
ActiveSheet.Paste
Sheets("portefeuille de projet").Select
Range("Z8").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("ficheprojet3").Select
Range("B32").Select
ActiveSheet.Paste
Sheets("ficheprojet3").Select
Sheets("portefeuille de projet").Select
Range("AA8").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("ficheprojet3").Select
Range("E4:Q4").Select
ActiveSheet.Paste
Sheets("portefeuille de projet").Select
Range("AB8").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("ficheprojet3").Select
Range("E15:Q15").Select
ActiveSheet.Paste
Sheets("portefeuille de projet").Select
Range("AC8").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("ficheprojet3").Select
Range("Q1").Select
ActiveSheet.Paste
Sheets("portefeuille de projet").Select
Range("AE8").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("ficheprojet3").Select
Range("E18:H18").Select
ActiveSheet.Paste
Sheets("portefeuille de projet").Select
Range("AF8").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("ficheprojet3").Select
Range("I18:L18").Select
ActiveSheet.Paste
Sheets("portefeuille de projet").Select
Range("AG8").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("ficheprojet3").Select
Range("M1818").Select
ActiveSheet.Paste
Sheets("portefeuille de projet").Select
Range("AH8").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("ficheprojet3").Select
Range("E19:H19").Select
ActiveSheet.Paste
Sheets("portefeuille de projet").Select
Range("AI8").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("ficheprojet3").Select
Range("I19:L19").Select
ActiveSheet.Paste
Sheets("portefeuille de projet").Select
Range("AJ8").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("ficheprojet3").Select
Range("M1919").Select
ActiveSheet.Paste
Sheets("portefeuille de projet").Select
Range("AK8").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("ficheprojet3").Select
Range("E20:H20").Select
ActiveSheet.Paste
Sheets("portefeuille de projet").Select
Range("AL8").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("ficheprojet3").Select
Range("I20:L20").Select
ActiveSheet.Paste
Sheets("portefeuille de projet").Select
Range("AM8").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("ficheprojet3").Select
Range("M2020").Select
ActiveSheet.Paste
Range("Q18").Select
Application.CutCopyMode = False
ActiveCell.FormulaR1C1 = "=SUM(RC[-12]:RC[-1])"
Range("Q18").Select
Selection.AutoFill Destination:=Range("Q18:Q23"), Type:=xlFillDefault
Range("Q18:Q23").Select
Sheets("portefeuille de projet").Select
Range("AN8").Select
Selection.Copy
Sheets("ficheprojet3").Select
Range("E21:H21").Select
ActiveSheet.Paste
Sheets("portefeuille de projet").Select
Range("AO8").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("ficheprojet3").Select
Range("I21:L21").Select
ActiveSheet.Paste
Sheets("portefeuille de projet").Select
Range("AP8").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("ficheprojet3").Select
Range("M2121").Select
ActiveSheet.Paste
Sheets("portefeuille de projet").Select
Range("AQ8").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("ficheprojet3").Select
Range("E22:H22").Select
ActiveSheet.Paste
Sheets("portefeuille de projet").Select
Range("AR8").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("ficheprojet3").Select
Range("I22:L22").Select
ActiveSheet.Paste
Sheets("portefeuille de projet").Select
Range("AS8").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("ficheprojet3").Select
Range("M2222").Select
ActiveSheet.Paste
Sheets("portefeuille de projet").Select
Range("AT8").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("ficheprojet3").Select
Range("E23:H23").Select
ActiveSheet.Paste
Sheets("portefeuille de projet").Select
Range("AU8").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("ficheprojet3").Select
Range("I23:L23").Select
ActiveSheet.Paste
Sheets("portefeuille de projet").Select
Range("AV8").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("ficheprojet3").Select
Range("M2323").Select
ActiveSheet.Paste
Range("E24:H24").Select
Application.CutCopyMode = False
ActiveCell.FormulaR1C1 = "=SUM(R[-6]C:R[-1]C[3])"
Range("E24:H24").Select
Selection.AutoFill Destination:=Range("E2424"), Type:=xlFillDefault
Range("E2424").Select
Range("Q24").Select
Sheets("portefeuille de projet").Select
ActiveCell.FormulaR1C1 = ""
Range("AW8").Select
Selection.Copy
Sheets("ficheprojet3").Select
ActiveWindow.SmallScroll Down:=9
Range("E27:H27").Select
ActiveSheet.Paste
Sheets("portefeuille de projet").Select
Range("AX8").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("ficheprojet3").Select
Range("I27:L27").Select
ActiveSheet.Paste
Sheets("portefeuille de projet").Select
Range("AY8").Select
Application.CutCopyMode = False
Selection.Copy
Range("AN31").Select
Sheets("ficheprojet3").Select
Range("M2727").Select
ActiveSheet.Paste
Sheets("portefeuille de projet").Select
Range("AZ8").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("ficheprojet3").Select
Range("E28:H28").Select
ActiveSheet.Paste
Sheets("portefeuille de projet").Select
Range("BA8").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("ficheprojet3").Select
Range("I28:L28").Select
ActiveSheet.Paste
Sheets("portefeuille de projet").Select
Range("BB8").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("ficheprojet3").Select
Range("M2828").Select
ActiveSheet.Paste
Sheets("portefeuille de projet").Select
Range("BC8").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("ficheprojet3").Select
Range("E29:H29").Select
ActiveSheet.Paste
Sheets("portefeuille de projet").Select
Range("BD8").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("ficheprojet3").Select
Range("I29:L29").Select
ActiveSheet.Paste
Sheets("portefeuille de projet").Select
Range("BE8").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("ficheprojet3").Select
Range("M2929").Select
ActiveSheet.Paste
Sheets("portefeuille de projet").Select
Range("BF8").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("ficheprojet3").Select
Range("E30:H30").Select
ActiveSheet.Paste
Sheets("portefeuille de projet").Select
Range("BG8").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("ficheprojet3").Select
Range("I30:L30").Select
ActiveSheet.Paste
Sheets("portefeuille de projet").Select
Range("BH8").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("ficheprojet3").Select
Range("M3030").Select
ActiveSheet.Paste
Range("E31:H31").Select
Application.CutCopyMode = False
ActiveCell.FormulaR1C1 = "=SUM(R[-4]C:R[-1]C[3])"
Range("I31:L31").Select
ActiveCell.FormulaR1C1 = "=SUM(R[-4]C:R[-1]C[3])"
Range("M3131").Select
ActiveCell.FormulaR1C1 = "=SUM(R[-4]C:R[-1]C[3])"
Range("Q27").Select
ActiveCell.FormulaR1C1 = "=SUM(RC[-12]:RC[-1])"
Range("Q27").Select
Selection.AutoFill Destination:=Range("Q27:Q30"), Type:=xlFillDefault
Range("Q27:Q30").Select
Range("Q32").Select
ActiveCell.FormulaR1C1 = "=SUM(R[-5]C:R[-2]C)"
Range("C25:Q25").Select
With Selection
.HorizontalAlignment = xlGeneral
.VerticalAlignment = xlCenter
.WrapText = False
.Orientation = 0
.AddIndent = False
.IndentLevel = 0
.ShrinkToFit = False
.ReadingOrder = xlContext
.MergeCells = True
End With
Selection.UnMerge
Range("C2525").Select
Range("P25").Activate
With Selection
.HorizontalAlignment = xlCenter
.VerticalAlignment = xlCenter
.WrapText = False
.Orientation = 0
.AddIndent = False
.IndentLevel = 0
.ShrinkToFit = False
.ReadingOrder = xlContext
.MergeCells = False
End With
Selection.Merge
Range("Q25").Select
ActiveCell.FormulaR1C1 = "=SUM(R[-7]C:R[-2]C)"
Range("Q32").Select
Selection.Copy
Range("Q25").Select
Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
Application.CutCopyMode = False
ActiveWindow.SmallScroll Down:=-9
Range("C16:Q16").Select
With Selection
.HorizontalAlignment = xlGeneral
.VerticalAlignment = xlCenter
.WrapText = False
.Orientation = 0
.AddIndent = False
.IndentLevel = 0
.ShrinkToFit = False
.ReadingOrder = xlContext
.MergeCells = True
End With
Selection.UnMerge
Range("C1616").Select
Range("P16").Activate
With Selection
.HorizontalAlignment = xlCenter
.VerticalAlignment = xlCenter
.WrapText = False
.Orientation = 0
.AddIndent = False
.IndentLevel = 0
.ShrinkToFit = False
.ReadingOrder = xlContext
.MergeCells = False
End With
Selection.Merge
Range("Q16").Select
ActiveCell.FormulaR1C1 = "=nb"
Range("Q16").Select
ActiveCell.FormulaR1C1 = "=NETWORKDAYS(R[-12]C[-12],R[-1]C[-12])"
Application.DisplayAlerts = False
End Sub