Re,
Tu convertis Tableau1 en plage.
Tu enregistres sous 2003
Apparemment ç'est Okay.
Par contre, je ne comprends pas cette partie de code. Çà sert à quoi?
De plus de mémoire, RGB a été introduit après 2003 (je dis un bêtise )
Private Sub CommandButton_Valider_Click()
Sheets("Ordre de Travail").Activate
Label_date.ForeColor = RGB(0, 0, 0)
Label_type.ForeColor = RGB(0, 0, 0)
Label_intitulé.ForeColor = RGB(0, 0, 0)
Label_intervenant.ForeColor = RGB(0, 0, 0)
Label_heur.ForeColor = RGB(0, 0, 0)
Label_minute.ForeColor = RGB(0, 0, 0)
Label_zone.ForeColor = RGB(0, 0, 0)
Label_equipement.ForeColor = RGB(0, 0, 0)
Label_commentaire.ForeColor = RGB(0, 0, 0)
Label_element.ForeColor = RGB(0, 0, 0)
If TextBox_date.Value = "" Then
Label_date.ForeColor = RGB(255, 0, 0)
ElseIf ComboBox_type.Value = "" Then
Label_type.ForeColor = RGB(255, 0, 0)
ElseIf TextBox_intitulé.Value = "" Then
Label_intitulé.ForeColor = RGB(255, 0, 0)
ElseIf ComboBox_intervenant.Value = "" Then
Label_intervenant.ForeColor = RGB(255, 0, 0)
ElseIf TextBox_heur.Value = "" Then
Label_heur.ForeColor = RGB(255, 0, 0)
ElseIf TextBox_minute.Value = "" Then
Label_minute.ForeColor = RGB(255, 0, 0)
ElseIf ComboBox_zone.Value = "" Then
Label_zone.ForeColor = RGB(255, 0, 0)
ElseIf ComboBox_equipement.Value = "" Then
Label_equipement.ForeColor = RGB(255, 0, 0)
ElseIf TextBox_commentaire.Value = "" Then
Label_commentaire.ForeColor = RGB(255, 0, 0)
ElseIf ComboBox_element.Value = "" Then
Label_element.ForeColor = RGB(255, 0, 0)
ElseIf Not IsNumeric(TextBox_heur) Then
Label_heur.ForeColor = RGB(255, 0, 0)
ElseIf Not IsNumeric(TextBox_minute) Then
Label_minute.ForeColor = RGB(255, 0, 0)
Else
Dim no_ligne As Integer
no_ligne = Range("A65536").End(xlUp).Row + 1
no_linge = Range("A65536").End(xlUp).Borders.Value = 1