Sub Verif_Remplissage()
Dim i As Byte
ListeControles = Array(1, 2, 5) ' à adapter et ne pas oublier la correspondance avec le test des TextBoxs
For i = LBound(ListeControles) To UBound(ListeControles)
If Controls("TextBox" & ListeControles(i)).Value = "" Then
CommandButton1.Enabled = False
Exit Sub
End If
Next i
CommandButton1.Enabled = True
End Sub
Private Sub TextBox1_change()
Verif_Remplissage
End Sub
Private Sub TextBox2_change()
Verif_Remplissage
End Sub
Private Sub TextBox3_change()
'Verif_Remplissage
End Sub
Private Sub TextBox4_change()
'Verif_Remplissage
End Sub
Private Sub TextBox5_change()
Verif_Remplissage
End Sub