Discussion :

[Lost_in_VBA]

Bonjour à tous, ça fait un bail...


J'ai un UserForm nommé Production, dans lequel un frame avec tout plein de textBox et de comboBox...
L'idée est de n'autoriser l'enregistrement des données sur une feuille excel que sous certaines conditions..dont "tout les champs sont pleins.
Pour cela j'ai créé une macro pour vérifier que tous les champs d'un formulaire sont pleins, mais biensûr elle ne marche pas...normalement je déclare mes variables à l'extérieur de ma macro! mais voici l'essentiel:

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
 
Private Sub verif_formulaire()
Dim obj As Control
Dim plein As String
plein = "Oui"
 
'   Vérifier que tous les champs du formulaire soient bien remplis
For Each obj In Production.Controls
    If Production.obj.Visible = True Then
        If TypeName(obj) = "TextBox" Or TypeName(obj) = "ComboBox" Then
            If Production.obj.Value = "" Then
                plein = "Non"
                Exit For
            End If
        End If
    End If
Next
 
End Sub

Sur enregistrer_click j'ai ajouté une ligne call verif_formulaire...
et j'obtiens le bug method or data member not found en me surlignat obj comme mis en evidence sur le code.

Quelqu'un aurait il une idée sur ce qui cloche??

[pijaku]

Bonjour,

J'ai l'impression que Production.obj.Visible dans la boucle fait double emploi. Tu boucles sur tous les controls de ta form, donc obj fait forcément partie de Productios, inutile de le repréciser.
De même pour Production.obj.value.

Ce code devrait fonctionner :

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
Private Sub verif_formulaire()
Dim obj As Control
Dim plein As String
plein = "Oui"
 
'   Vérifier que tous les champs du formulaire soient bien remplis
For Each obj In Production.Controls
    If obj.Visible = True Then
        If TypeName(obj) = "TextBox" Or TypeName(obj) = "ComboBox" Then
            If obj.Value = "" Then
                plein = "Non"
                Exit For
            End If
        End If
    End If
Next
 
End Sub

[Lost_in_VBA]

Effectivement je venais de m'en rendre compte c'était bien cela le problème.
Par contre, par précaution j'ai "inversé" mes boucles, histoire qu'au pire des cas ben ça ne me rajoute rien du tout à mes fichiers Database...
voici le code final:

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
Private Sub verif_formulaire()
Plein = "Non"
 
'   Vérifier que tous les champs du formulaire soient bien remplis
For Each obj In Production.Controls
    If obj.Visible = True Then
        If TypeName(obj) = "TextBox" Or TypeName(obj) = "ComboBox" Then
            If obj.Value <> "" Then
                Plein = "Oui"
                Else
                Plein = "Non"
                Exit For
            End If
        End If
    End If
Next
 
End Sub

Merci pour le coup de pouce!