Discussion :

[BenxToutBenx]

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

[OhMonBato]

Bonjour,

mettre "hélas" comme description du problème est un peu court...
Je ne vois pas trop ce qui coince dans ton code, en tout cas le code suivant fonctionne bien :

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
17
 
 
Private Sub Command1_Click()
Dim Ctl As Control
Dim Rep As Byte
For Each Ctl In Me.Controls
  If TypeOf Ctl Is TextBox Then
    If Ctl.Text = "" Then
      Rep = MsgBox("Voulez vous remplir le champ texte ?", vbYesNo, "Champ vide")
      If Rep = vbYes Then
        Ctl.SetFocus
        Exit For
      End If
    End If
  End If
Next
End Sub

[iclic]

Bonjour,

Chez moi celà fonctionne bien,mais

il faut remplacer ctl.name.setfocus par ctl.SetFocus

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
17
18
19
20
21
22
23
24
25
 
 
Dim ctl As Control
Dim name As Object
 
Private Sub Command1_Click() 'pour le test
 
CheckIftxtEmpty frm, ctl
 
End Sub
 
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.SetFocus         'met le focus sur le champ vide
                    Exit For
              End If
            End If
        End If
    Next ctl
End Sub

A+

[BenxToutBenx]

Merci pour vos interventions a tous les deux, problème réglé.