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 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100 101 102
|
Option Explicit
Public NamEtude() As Integer
Sub NamEtud()
Dim ChargEtude As String 'Défini le CE recherché
Dim NamEtud() As Integer 'Tableau contenant toutes les études correpndant au CE recherché
n As Integer 'Défini le n° de rang dans le tableau
'Initialisation
n = 0
ReDim NamEtud(n)
ChargEtude = Worksheets("cachée").Range("C100").Value
'Vérifie si c'est le bon CE
For NbLigne = 7 To Worksheets("Synthèse").Cells(7, 2).End(xlDown).Row
'Si oui, on l'enregistre dans le tableau
If CStr(Worksheets("Synthèse").Cells(NbLigne, 2).Value) = ChargEtude Then
n = n + 1
ReDim Preserve NamEtud(n)
NamEtud(n) = Worksheets("Synthèse").Cells(NbLigne, 1).Value
End If
Next NbLigne
n = 0
MsgBox "fin"
CherchEtud = NamEtud()
End Sub
Function Placement(Pl)
If Pl = 1 Then
Placement = 16
Else
Placement = Pl * 12 + 4
End If
End Function
Function Tableau(x, y)
Dim MonTableau(10, 1) As String
MonTableau(0, 0) = "N° d'étude :"
MonTableau(0, 1) = Sheets("synthèse").Cells((h - 4) / 12 + 7, 8).Value
MonTableau(1, 0) = ""
MonTableau(1, 1) = ""
MonTableau(2, 0) = "Coût horaire :"
MonTableau(2, 1) = "=CoutAM"
MonTableau(3, 0) = "Budget de l'étude :"
MonTableau(3, 1) = Sheets("synthèse").Cells((h - 4) / 12 + 7, 10).Value
MonTableau(4, 0) = "Nbre d'heures prévues :"
MonTableau(4, 1) = Sheets("synthèse").Cells((h - 4) / 12 + 7, 11).Value
MonTableau(5, 0) = "Bilan des heures :"
MonTableau(5, 1) = "=R[-2]C-R[3]C"
MonTableau(6, 0) = "Valorisation des heures :"
MonTableau(6, 1) = "=R[-4]C*R[2]C"
MonTableau(7, 0) = "Montant des achats :"
MonTableau(7, 1) = "1000"
MonTableau(8, 0) = "Nombre d'heures passées :"
MonTableau(8, 1) = "=GETPIVOTDATA(""Heures"",'TCD Global'!R[-17]C[-4],""Salarié"",R7C[-4],""N° affaire"",R[-8]C6)"
MonTableau(9, 0) = "Résultat :"
MonTableau(9, 1) = "=R[-6]C-(R[-3]C+R[-2]C)"
With Cells(x, y)
.Offset(0, 0).Value = MonTableau(0, 0)
.Offset(0, 1).Value = MonTableau(0, 1)
.Offset(1, 0).Value = MonTableau(1, 0)
.Offset(1, 1).Value = MonTableau(1, 1)
.Offset(2, 0).Value = MonTableau(2, 0)
.Offset(2, 1).Value = MonTableau(2, 1)
.Offset(3, 0).Value = MonTableau(3, 0)
.Offset(3, 1).Value = MonTableau(3, 1)
.Offset(4, 0).Value = MonTableau(4, 0)
.Offset(4, 1).FormulaR1C1 = MonTableau(4, 1)
.Offset(5, 0).Value = MonTableau(5, 0)
.Offset(5, 1).Value = MonTableau(5, 1)
.Offset(6, 0).Value = MonTableau(6, 0)
.Offset(6, 1).Value = MonTableau(6, 1)
.Offset(7, 0).Value = MonTableau(7, 0)
.Offset(7, 1).Value = MonTableau(7, 1)
.Offset(8, 0).Value = MonTableau(8, 0)
.Offset(8, 1).FormulaR1C1 = MonTableau(8, 1)
End With
End Function
Function Misenforme(x, y)
With Range(Cells(x, y), Cells(x + 8, y + 1))
.Interior.Color = 33
.Font.ColorIndex = 2
End With
With Range(Cells(x + 1, y), Cells(x + 8, y + 1))
.Interior.ColorIndex = 34
.Font.ColorIndex = 1
End With
With Range(Cells(x, y), Cells(x + 8, y + 1))
.BorderAround ColorIndex:=1, Weight:=xlThin
End With
End Function |
Partager