VBA : besoin d'aide pour automatiser macro-Excel

Toni751 · 29 Janvier 2013

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("M18

18").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("M19

19").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("M20

20").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("M21

21").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("M22

22").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("M23

23").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("E24

24"), Type:=xlFillDefault
Range("E24

24").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("M27

27").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("M28

28").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("M29

29").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("M30

30").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("M31

31").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("C25

25").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("C16

16").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("M18

18").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("M19

19").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("M20

20").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("M21

21").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("M22

22").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("M23

23").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("E24

24"), Type:=xlFillDefault
Range("E24

24").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("M27

27").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("M28

28").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("M29

29").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("M30

30").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("M31

31").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("C25

25").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("C16

16").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("M18

18").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("M19

19").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("M20

20").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("M21

21").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("M22

22").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("M23

23").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("E24

24"), Type:=xlFillDefault
Range("E24

24").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("M27

27").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("M28

28").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("M29

29").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("M30

30").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("M31

31").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("C25

25").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("C16

16").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

zeb · 30 Janvier 2013

Salut,

Merci de respecter le règlement !
Utilise la balise

Code:

 pour présenter tes macros.


Et nous ne traiterons pas 1600 lignes de codes !
Mets un exemple simple, pour une ligne, un onglet, on t'aidera à le faire pour n lignes, n onglets.

Toni751 · 30 Janvier 2013

Bonjour Seb,

Voici comme demandé, 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]

zeb :

Salut,

Merci de respecter le règlement !
Utilise la balise

Code:

 pour présenter tes macros.


Et nous ne traiterons pas 1600 lignes de codes !
Mets un exemple simple, pour une ligne, un onglet, on t'aidera à le faire pour n lignes, n onglets.[/quotemsg]

zeb · 31 Janvier 2013

Grrrr... Tu m'énerves toi !
(Mais t'inquiètes pas, si je continue à discuter avec toi, c'est que je m'occupe de ton cas

)

Baliser du texte, c'est mettre un marqueur de début et un marqueur de fin, au début et à la fin de ce que l'on balise.
La balise de début de code s'écrit chez nous : [code], et celle de fin : [/code].

Compris ?
Si oui, merci de modifier tes deux messages précédents. C'est juste pour faire joli.
Si non, aïe. Arrête la programmation :/ (mais je suis sûr que tu as maintenant compris)

En général, je ne lis jamais la moindre ligne de code mal présentée.
Normal, je suis un des modos, il faut que je fasse respecter le règlement.
Considérant que tu vas te grouiller de tout bien mettre en forme, je continue tout de même.

...

Code:

Application.DisplayAlerts = False

Application.DisplayAlerts = True

Quand je vois ces lignes, je sais déjà que tu t'y prends mal.
Supprime-les, on n'en aura pas besoin !

Code:

Sheets("portefeuille de projet").Select
Range("B6").Select
Selection.Copy
Sheets("ficheprojet1").Select
Range("B5").Select
ActiveSheet.Paste

Grrr...
10 ans que je traîne sur ce forum, et je vois encore et toujours des Select/Selection dans vos codes.
Sur quel ton faut-il que je le dise : les Select/Selection, c'est mal.

Sais-tu planter un clou ?
Facile, tu tapes sur le clou avec le marteau pour l'enfoncer dans la planche.
Non ?
Non !
Toi tu prends une planche et tu la poses sur l'établi.
Ensuite, tu prends un clou, et ce que tu viens de prendre, tu le piques sur ce qui est sur l'établi.
Enfin, tu prends un marteau, et avec ce que tu viens de prendre, tu tapes sur ce qui est piqué sur ce qui est posé sur l'établi !
LOL

A chaque fois que tu as un code qui ressemble à ça :

Code:

Truc.Select
Selection.Action

Tu peux écrire :

Code:

Truc.Action

En plus, ça évitera de faire faire à Excel un truc très lent pour lui, c'est de sélectionner une cellule.
Et oui, à chaque changement de cellule, et à chaque changement de focus, Excel vérifie s'il n'y a pas un calcul à faire, à refaire, etc.
Donc, on ne le fait pas 1600 fois, merci.

Donc ton bout de code devient :

Code:

Sheets("portefeuille de projet").Range("B6").Copy
Sheets("ficheprojet1").Range("B5").Paste

Je ne sais pas si c'est le cas pour toi, mais moi, je trouve ça plus clair. Non ?

Bon, tu as un peu de boulot : présenter mieux tes messages précédents.
Maintenant, j'ajoute ça : va me lire l'aide sur la méthode Range.Copy().
Et reviens nous faire des commentaires...

A te lire.
(La solution, tu vas la trouver tout seul comme un grand, c'est promis. Je te demande juste un peu d'interactivité

)

Toni751 · 1 Février 2013

Bonjour zeb,
voici mon nouveau code selon tes recommandations, mais cela "bug" pour le copier/coller sur une plage de cellule, as tu d'autres astuces ?
peux tu egalement me dire comment répéter l'opération pour n lignes et création de n onglets.

Merci pour ton retour

Code:

Sub Macro2()
'

    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").Range("AU6").Copy
    Sheets("ficheprojet1").Range("I23:L23").Paste
    Sheets("portefeuille de projet").Range("AV6").Copy
    Sheets("ficheprojet1").Range("M23:P23").Paste

    Sheets("portefeuille de projet").Range("AW6").Copy
    Sheets("ficheprojet1").Range("E27:H27").Paste

    Sheets("portefeuille de projet").Range("AX6").Copy
    Sheets("ficheprojet1").Range("I27:L27").Paste

    Sheets("portefeuille de projet").Range("AY6").Copy
    Sheets("ficheprojet1").Range("M27:P27").Paste

    Sheets("portefeuille de projet").Range("AZ6").Copy
    Sheets("ficheprojet1").Range("E28:H28").Paste

    Sheets("portefeuille de projet").Range("BA6").Copy
    Sheets("ficheprojet1").Range("I28:L28").Paste

    Sheets("portefeuille de projet").Range("BB6").Copy
    Sheets("ficheprojet1").Range("M28:P28").Paste

[\code]

zeb · 12 Février 2013

(merci de relire mon message précédent ! :sarcastic: )

VBA : besoin d'aide pour automatiser macro-Excel

Toni751

zeb

Toni751

zeb

Toni751

zeb