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 84
| Sub Insert_Lig()
With Tableau1
' Ligne1
.Ing1.Value = Sheets("Donnees").Range("A22")
.Qu1.Value = Sheets("Donnees").Range("B22")
.Pts1.Value = Format(Sheets("Donnees").Range("D22"), "0.0")
' Ligne2
.Ing2.Value = Sheets("Donnees").Range("A23")
.Qu2.Value = Sheets("Donnees").Range("B23")
.Pts2.Value = Format(Sheets("Donnees").Range("D23"), "0.0")
' Ligne3
.Ing3.Value = Sheets("Donnees").Range("A24")
.Qu3.Value = Sheets("Donnees").Range("B24")
.Pts3.Value = Format(Sheets("Donnees").Range("D24"), "0.0")
' Ligne4
.Ing4.Value = Sheets("Donnees").Range("A25")
.Qu4.Value = Sheets("Donnees").Range("B25")
.Pts4.Value = Format(Sheets("Donnees").Range("D25"), "0.0")
' Ligne5
.Ing5.Value = Sheets("Donnees").Range("A26")
.Qu5.Value = Sheets("Donnees").Range("B26")
.Pts5.Value = Format(Sheets("Donnees").Range("D26"), "0.0")
' Ligne6
.Ing6.Value = Sheets("Donnees").Range("A27")
.Qu6.Value = Sheets("Donnees").Range("B27")
.Pts6.Value = Format(Sheets("Donnees").Range("D27"), "0.0")
' Ligne7
.Ing7.Value = Sheets("Donnees").Range("A28")
.Qu7.Value = Sheets("Donnees").Range("B28")
.Pts7.Value = Format(Sheets("Donnees").Range("D28"), "0.0")
' Ligne8
.Ing8.Value = Sheets("Donnees").Range("A29")
.Qu8.Value = Sheets("Donnees").Range("B29")
.Pts8.Value = Format(Sheets("Donnees").Range("D29"), "0.0")
' Ligne9
.Ing9.Value = Sheets("Donnees").Range("A30")
.Qu9.Value = Sheets("Donnees").Range("B30")
.Pts9.Value = Format(Sheets("Donnees").Range("D30"), "0.0")
' Ligne10
.Ing10.Value = Sheets("Donnees").Range("A31")
.Qu10.Value = Sheets("Donnees").Range("B31")
.Pts10.Value = Format(Sheets("Donnees").Range("D31"), "0.0")
' Ligne11
.Ing11.Value = Sheets("Donnees").Range("A32")
.Qu11.Value = Sheets("Donnees").Range("B32")
.Pts11.Value = Format(Sheets("Donnees").Range("D32"), "0.0")
' Ligne12
.Ing12.Value = Sheets("Donnees").Range("A33")
.Qu12.Value = Sheets("Donnees").Range("B33")
.Pts12.Value = Format(Sheets("Donnees").Range("D33"), "0.0")
' Ligne13
.Ing13.Value = Sheets("Donnees").Range("A34")
.Qu13.Value = Sheets("Donnees").Range("B34")
.Pts13.Value = Format(Sheets("Donnees").Range("D34"), "0.0")
' Ligne14
.Ing14.Value = Sheets("Donnees").Range("A35")
.Qu14.Value = Sheets("Donnees").Range("B35")
.Pts14.Value = Format(Sheets("Donnees").Range("D35"), "0.0")
' Ligne15
.Ing15.Value = Sheets("Donnees").Range("A36")
.Qu15.Value = Sheets("Donnees").Range("B36")
.Pts15.Value = Format(Sheets("Donnees").Range("D36"), "0.0")
' Ligne16
.Ing16.Value = Sheets("Donnees").Range("A37")
.Qu16.Value = Sheets("Donnees").Range("B37")
.Pts16.Value = Format(Sheets("Donnees").Range("D37"), "0.0")
' Ligne17
.Ing17.Value = Sheets("Donnees").Range("A38")
.Qu17.Value = Sheets("Donnees").Range("B38")
.Pts17.Value = Format(Sheets("Donnees").Range("D38"), "0.0")
' Ligne18
.Ing18.Value = Sheets("Donnees").Range("A39")
.Qu18.Value = Sheets("Donnees").Range("B39")
.Pts18.Value = Format(Sheets("Donnees").Range("D39"), "0.0")
' Ligne19
.Ing19.Value = Sheets("Donnees").Range("A40")
.Qu19.Value = Sheets("Donnees").Range("B40")
.Pts19.Value = Format(Sheets("Donnees").Range("D40"), "0.0")
' Ligne20
.Ing20.Value = Sheets("Donnees").Range("A41")
.Qu20.Value = Sheets("Donnees").Range("B41")
.Pts20.Value = Format(Sheets("Donnees").Range("D412"), "0.0")
End With
End Sub |
Partager