Private Sub CBX103_click() ' T4 : nombre de jours - différence entre deux dates, résultat entier en nombre de jours
Dim celluletrouvee As Range
Dim a As Range
numéro = CBX103
Set celluletrouvee = Sheets("Structure").Range("E:E").Find(numéro, lookat:=xlWhole)
Set a = Sheets("Structure").Range("O1") 'cellule où j'ai mis la fonction =MAINTENANT()
T1.Value = Range(celluletrouvee, celluletrouvee).Offset(0, 13) 'nombre d'heures (par exemple 3000)
T2.Value = Range(celluletrouvee, celluletrouvee).Offset(0, 14)
T3.Value = Range(celluletrouvee, celluletrouvee).Offset(0, 15) 'date sous la forme jj/mm/yy (par exemple 11/11/2010)
T4.Value = T1.Value - (Range(a, a) - T3.Value)
T5.Value = Range(celluletrouvee, celluletrouvee).Offset(0, 17)
T6.Value = Range(celluletrouvee, celluletrouvee).Offset(0, 18)
T7.Value = Range(celluletrouvee, celluletrouvee).Offset(0, 19)
PREVENTIF.L1.Caption = PREVENTIF.T1
PREVENTIF.L2.Caption = PREVENTIF.T2
PREVENTIF.L3.Caption = PREVENTIF.T3
PREVENTIF.L4.Caption = PREVENTIF.T4
PREVENTIF.L5.Caption = PREVENTIF.T5
PREVENTIF.L6.Caption = PREVENTIF.T6
PREVENTIF.L7.Caption = PREVENTIF.T7