kerlannais
XLDnaute Junior
Bonjour à tous,
Je suis toujours dans mon petit code et voici mon code
Private Sub CommandButton1_Click()
Dim CTRL As Control 'Tout les controles du userform
Dim L As Integer 'Variable pour connaitre le numéro de derniere ligne vide
Dim Response As Byte
Dim Match As Byte
For Each CTRL In Me.Controls
If CTRL = "" Then MsgBox "Donnée Incomplete", vbCritical, T: CTRL.SetFocus: Exit Sub
Next CTRL
Et en fait, il me met du jaune sur If CTRL = "" Then....
Pouvez vous m'expliquer?
merci d'avance.
Kerlannais
Je suis toujours dans mon petit code et voici mon code
Private Sub CommandButton1_Click()
Dim CTRL As Control 'Tout les controles du userform
Dim L As Integer 'Variable pour connaitre le numéro de derniere ligne vide
Dim Response As Byte
Dim Match As Byte
For Each CTRL In Me.Controls
If CTRL = "" Then MsgBox "Donnée Incomplete", vbCritical, T: CTRL.SetFocus: Exit Sub
Next CTRL
Et en fait, il me met du jaune sur If CTRL = "" Then....
Pouvez vous m'expliquer?
merci d'avance.
Kerlannais