crucial
Se connecter avec
S'enregistrer | Connectez-vous
Votre question

VBA : besoin d'aide pour automatiser macro-Excel

Tags :
  • Applications mobiles
  • Programmation
Dernière réponse : dans Programmation
Partagez
29 Janvier 2013 18:06:20

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:p 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:p 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:p 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:p 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:p 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:p 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:p 24"), Type:=xlFillDefault
Range("E24:p 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:p 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:p 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:p 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:p 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:p 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:p 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:p 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:p 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:p 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:p 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:p 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:p 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:p 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:p 24"), Type:=xlFillDefault
Range("E24:p 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:p 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:p 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:p 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:p 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:p 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:p 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:p 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:p 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:p 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:p 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:p 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:p 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:p 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:p 24"), Type:=xlFillDefault
Range("E24:p 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:p 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:p 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:p 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:p 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:p 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:p 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:p 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

Autres pages sur : vba besoin aide automatiser macro excel

a b L Programmation
30 Janvier 2013 10:57:19

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.
m
0
l
30 Janvier 2013 13:38:27

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 a dit :
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.


m
0
l
Contenus similaires
a b L Programmation
31 Janvier 2013 15:41:10

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.

...

  1. Application.DisplayAlerts = False
  2.  
  3. 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 !

  1. Sheets("portefeuille de projet").Select
  2. Range("B6").Select
  3. Selection.Copy
  4. Sheets("ficheprojet1").Select
  5. Range("B5").Select
  6. 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 :
  1. Truc.Select
  2. Selection.Action

Tu peux écrire :
  1. 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 :
  1. Sheets("portefeuille de projet").Range("B6").Copy
  2. 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é ;)  )
m
0
l
1 Février 2013 13:08:49

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:p 23").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:p 27").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:p 28").Paste

[\code]
m
0
l
a b L Programmation
12 Février 2013 11:30:15

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