Bonjour,

J'ai plusieurs textbox sur une feuille, je veux m'assurer que le programme
ne s'exécute pas tant qu'une texbox est vide, et éventuellement mettre le focus sur la textbox vide.
cette procédure est censée gérer le problème, helas... ,besoin d'aide.
Merci

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
 
 
SUB CheckIftxtEmpty(frm as form, ctl as control)
    Dim Rep As String
    For Each ctl In Controls
        If TypeOf ctl Is TextBox Then
            If Trim$(ctl.Text) = "" Then
              Rep = MsgBox("Le champ: " & ctl.Name & "est vide, Veuillez        remplir ?", vbYesNo)                  'Affiche le nom de la textbox vide
              If Rep = vbYes Then
              ctl.Name.SetFocus      'met le focus sur le champ vide
              Exit For
              End If
            End If
        End If
    Next ctl
End Sub