Private Sub VALIDER_Click()
ActiveCell.Font.ColorIndex = 3 'FEU ROUGE
ActiveCell.Offset(0, 3) = NBRE_PAX 'NOMBRE PAX
ActiveCell.Offset(0, 5) = ATD_H & ':' & ATD_M 'HEURE DEPART REEL
ActiveCell.Offset(0, 6) = DUREE 'DUREE TOTAL RETARD
ActiveCell.Offset(0, 7) = NOM_COORDO 'COORDO
ActiveCell.Offset(0, 8) = DR1 'DR1
ActiveCell.Offset(0, 9) = DUREE1 'DUREE DR1
If RESTE = '00:00' Then
ActiveCell.Offset(0, 10) = '' 'DR2
Else
ActiveCell.Offset(0, 10) = DR2 'DR2
End If
ActiveCell.Offset(0, 11) = RESTE 'DUREE DR2
If RESTE = '00:00' Then
ActiveCell.Offset(0, 12) = EXPLICATION1 'EXPLICATION
Else
ActiveCell.Offset(0, 12) = EXPLICATION1 & ' // ' & EXPLICATION2 'EXPLICATION
End If
'**********************************************************************************
'MISE EN COULEUR
If ActiveCell.Offset(0, 1) = 'AZ' Then
If DR1 = 31 Or DR1 = 32 Or DR1 = 33 Or DR1 = 34 Or DR1 = 38 _
Or DR2 = 31 Or DR2 = 32 Or DR2 = 33 Or DR2 = 34 Or DR2 = 38 Then
couleur = 3
Else
couleur = 45
End If
Else
If DR1 = 11 Or DR1 = 12 Or DR1 = 13 Or DR1 = 15 _
Or DR1 = 31 Or DR1 = 32 Or DR1 = 33 Or DR1 = 34 Or DR1 = 38 _
Or DR2 = 11 Or DR2 = 12 Or DR2 = 13 Or DR12 = 15 _
Or DR2 = 31 Or DR2 = 32 Or DR2 = 33 Or DR2 = 34 Or DR2 = 38 Then
couleur = 3
Else
couleur = 45
End If
End If
With Range(ActiveCell.Offset(0, 1), ActiveCell.Offset(0, 12))
.Interior.ColorIndex = couleur
.Font.Bold = True
End With '*************************************************************************************
Unload Me
End Sub