Sub Verif_Remplissage ()
Dim i As Byte
ListeControles = Array(1, 2, 4, 5, 6, 7, 8, 10)
For i = LBound(ListeControles) To UBound(ListeControles)
If Controls("TextBox" & ListeControles(i)).Value = "" Then
CommandButton2.Enabled = False
CommandButton5.Enabled = False
Exit Sub
End If
Next i
CommandButton2.Enabled = True
CommandButton5.Enabled = True
End Sub
' Message Designation Fr =30 caractères
Private Sub TextBox4_Change()
If Len(TextBox4) > 30 Then MsgBox " Nombre de 30 caractères atteint!"
Verif_Remplissage
End Sub
' Message Designation UK =30 caractères
Private Sub TextBox5_Change()
If Len(TextBox5) > 30 Then MsgBox " Nombre de 30 caractères atteint!"
Verif_Remplissage
End Sub
Private Sub TextBox1_Change()
Verif_Remplissage
End Sub
Private Sub TextBox2_Change()
Verif_Remplissage
End Sub
Private Sub TextBox7_Change()
Verif_Remplissage
End Sub
Private Sub TextBox8_Change()
Verif_Remplissage
End Sub
Private Sub TextBox10_Change()
TextBox10.BackColor = IIf(Len(TextBox10) < 3, vbRed, vbGreen)
TextBox10.ForeColor = IIf(Len(TextBox10) < 3, vbWhite, vbBlack)
Verif_Remplissage
End Sub
Private Sub TextBox6_Change()
Dim x$, i%
x = TextBox6
x = "ODM-" & Replace(x, "ODM-", "")
For i = Len(x) To 5 Step -1
If Not IsNumeric(Mid(x, i, 1)) Then x = Left(x, i - 1) & Mid(x, i + 1)
Next
TextBox6 = x
TextBox6.BackColor = IIf(Len(x) < 9, vbRed, vbGreen)
TextBox6.ForeColor = IIf(Len(x) < 9, vbWhite, vbBlack)
Verif_Remplissage
End Sub