1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83
| Range("a65536").End(xlUp).Offset(1, 0).Select
Sheets("Feuil3").Select
Cells.Select
Selection.Copy
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
Sheets("Base de donnée").Select
Application.CutCopyMode = False
ActiveCell.FormulaR1C1 = "=Feuil3!R[4]C[4]"
Range("b65536").End(xlUp).Offset(1, 0).Select
ActiveCell.FormulaR1C1 = "=Feuil3!R[4]C[4]"
Range("c65536").End(xlUp).Offset(1, 0).Select
ActiveCell.FormulaR1C1 = "=Feuil3!R[4]C[4]"
Range("d65536").End(xlUp).Offset(1, 0).Select
ActiveCell.FormulaR1C1 = "=Feuil3!A12"
Range("e65536").End(xlUp).Offset(1, 0).Select
ActiveCell.FormulaR1C1 = "=T(Feuil3!C33)"
Range("f65536").End(xlUp).Offset(1, 0).Select
ActiveCell.FormulaR1C1 = "=T(Feuil3!E33)"
Range("g65536").End(xlUp).Offset(1, 0).Select
ActiveCell.FormulaR1C1 = "=T(Feuil3!G33)"
Range("h65536").End(xlUp).Offset(1, 0).Select
ActiveCell.FormulaR1C1 = "=T(Feuil3!C34)"
Range("i65536").End(xlUp).Offset(1, 0).Select
ActiveCell.FormulaR1C1 = "=T(Feuil3!C35)"
Range("j65536").End(xlUp).Offset(1, 0).Select
ActiveCell.FormulaR1C1 = "=T(Feuil3!E35)"
Range("k65536").End(xlUp).Offset(1, 0).Select
ActiveCell.FormulaR1C1 = "=T(Feuil3!C36)"
Range("l65536").End(xlUp).Offset(1, 0).Select
ActiveCell.FormulaR1C1 = "=T(Feuil3!E36)"
Range("m65536").End(xlUp).Offset(1, 0).Select
ActiveCell.FormulaR1C1 = "=T(Feuil3!G36)"
Range("n65536").End(xlUp).Offset(1, 0).Select
ActiveCell.FormulaR1C1 = "=T(Feuil3!A17)"
Range("o65536").End(xlUp).Offset(1, 0).Select
ActiveCell.FormulaR1C1 = "=T(Feuil3!D17)"
Range("p65536").End(xlUp).Offset(1, 0).Select
ActiveCell.FormulaR1C1 = "=T(Feuil3!D19)"
Range("q65536").End(xlUp).Offset(1, 0).Select
ActiveCell.FormulaR1C1 = "=T(Feuil3!d22)"
Range("r65536").End(xlUp).Offset(1, 0).Select
ActiveCell.FormulaR1C1 = "=T(Feuil3!e26)"
Range("s65536").End(xlUp).Offset(1, 0).Select
ActiveCell.FormulaR1C1 = "=T(Feuil3!d45)"
Range("t65536").End(xlUp).Offset(1, 0).Select
ActiveCell.FormulaR1C1 = "=T(Feuil3!d55)"
Range("u65536").End(xlUp).Offset(1, 0).Select
ActiveCell.FormulaR1C1 = "=T(Feuil3!d57)"
Sheets("Base de donnée").Select
Cells.Select
Application.CutCopyMode = False
Selection.Copy
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
Selection.NumberFormat = "d-mmm-yy"
Selection.NumberFormat = "h:mm"
End Sub |
Partager