Public Sub recherche_deb_et_fin_BDD_planning() ' Recherche ligne deb et de fin d'une date num recherchée
Dim d As Variant
deb = 0
fin = 0
num_du_lundi_date_traite = CLng(CDate(Mid(TextBox1.Value, 5, 10)))
d = Application.Match(num_du_lundi_date_traite, Sheets("BDD").[A:A], 0)
If IsNumeric(d) Then 'Semaine existe
Cells(d, 1).Select 'valeur trouvée
deb = (d.Row)
fin = deb
Do Until Sheets("BDD").Cells(fin, 1) <> Sheets("BDD").Cells(deb, 1)
fin = fin + 1
Loop
fin = fin - 1
Else
'***************************************************************
BTSEM.Top = Me.Height * 0.15 'BUG LE PROGRAMME ICI ?
'****************************************************************
End If
End Sub