Private Sub Bn_Afficher_Click()
Dim Lig As Long, VPathFic As String
Lig = Me.ComboBox1.ListIndex + 4
With Sheets("RP & RPC 12")
Me.TB_1 = .Range("C" & Lig)
Me.TB_2 = .Range("E" & Lig)
Me.TB_3 = .Range("G" & Lig)
Me.TB_4 = .Range("I" & Lig)
Me.TB_5 = .Range("L" & Lig)
Me.TB_6 = .Range("N" & Lig)
Me.TB_7 = .Range("Q" & Lig)
Me.TB_8 = .Range("T" & Lig)
Me.TB_9 = .Range("V" & Lig)
Me.TB_10 = .Range("X" & Lig)
Me.TB_11 = .Range("Z" & Lig)
Me.TB_12 = .Range("AB" & Lig)
Me.TB_13 = .Range("AD" & Lig)
Me.TB_14 = .Range("AF" & Lig)
Me.TB_15 = .Range("AH" & Lig)
Me.TB_16 = .Range("AJ" & Lig)
Me.TB_17 = .Range("AL" & Lig)
Me.TB_18 = .Range("AN" & Lig)
Me.TB_19 = .Range("AP" & Lig)
Me.TB_20 = .Range("AR" & Lig)
Me.TB_21 = .Range("AS" & Lig)
Me.TB_22 = .Range("AU" & Lig)
Me.TB_23 = .Range("AW" & Lig)
Me.TB_24 = .Range("AY" & Lig)
Me.TB_25 = .Range("AZ" & Lig)
Me.TB_26 = .Range("J" & Lig)
Me.TB_27 = .Range("O" & Lig)
Me.TB_28 = .Range("R" & Lig)
Compteur = 0
For i = 1 To 28 'à 25 si tu ne prend pas en compte TB_26, TB_27 et TB_28
Dat = Me.Controls("TB_" & i)
If Dat <> "" Then Dat = CDate(Dat)
If Dat <= Date Then
Compteur = Compteur + 1
Me.TB_29 = Compteur
End If
Next
End With
End Sub
Private Sub Cmd_quit_Click()
Unload Me
End Sub
Private Sub Cmd_Raz_Click()
Dim c As Control
For Each c In Me.Controls
Select Case TypeName(c)
Case "TextBox"
c.Value = ""
Case "CheckBox"
c.Value = False
Case "ListBox", "ComboBox"
c.ListIndex = -1
End Select
Next c
End Sub
Private Sub CommandButton1_Click()
Dim Lig As Long, VPathFic As String
Lig = Me.ComboBox2.ListIndex + 4
With Sheets("RP 10")
Me.TB_rp1 = .Range("C" & Lig)
Me.TB_rp2 = .Range("E" & Lig)
Me.TB_rp3 = .Range("G" & Lig)
Me.TB_rp4 = .Range("j" & Lig)
Me.TB_rp5 = .Range("L" & Lig)
Me.TB_rp6 = .Range("O" & Lig)
Me.TB_rp7 = .Range("R" & Lig)
Me.TB_rp8 = .Range("T" & Lig)
Me.TB_rp9 = .Range("V" & Lig)
Me.TB_rp10 = .Range("X" & Lig)
Me.TB_rp11 = .Range("Z" & Lig)
Me.TB_rp12 = .Range("AB" & Lig)
Me.TB_rp13 = .Range("AD" & Lig)
Me.TB_rp14 = .Range("H" & Lig)
Me.TB_rp15 = .Range("M" & Lig)
Me.TB_rp16 = .Range("P" & Lig)
Compteur = 0
For i = 1 To 16 'à 13 si tu ne prend pas en compte TB_rp14, TB_rp15 et TB_rp16
Dat = Me.Controls("TB_rp" & i)
If Dat <> "" Then Dat = CDate(Dat)
If Dat <= Date Then
Compteur = Compteur + 1
Me.TB_rp17 = Compteur
End If
Next
End With
End Sub
Private Sub CommandButton2_Click()
Dim c As Control
For Each c In Me.Controls
Select Case TypeName(c)
Case "TextBox"
c.Value = ""
Case "CheckBox"
c.Value = False
Case "ListBox", "ComboBox"
c.ListIndex = -1
End Select
Next c
End Sub
Private Sub CommandButton3_Click()
Unload Me
End Sub