Validation des données d'un formulaire différée

Version imprimable

1 pièce(s) jointe(s)

Bonjour à tous,

dans le code ci dessous ( qu il faudra que je révise pour être simplifié ) lors de la validation des données par le bouton "Enregistrer", les données saisies dans le formulaire ne sont pas reportées dans le tableau Excel immédiatement, elles sont visiblement "stockées" ( où ? ) et reportées dans le tableau que lorsque l'on ferme le formulaire par le bouton "Quitter"
je n'arrive pas modifier cette situation , je souhaiterais en fait que dès que l'opérateur click sur le bouton "enregistrer" les données du formulaire apparaissent dans le tableau Excel

merci pour vos conseils et votre aide

Code:

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
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
Private Sub Cmd_Validation_Click()
'Valider les données du formulaire
 
Dim Ctrl As Control
Dim r As Integer
Dim Derligne As Integer
Dim Rep As Integer
 
 'Coloration des Labels en rouge
     Label_Km.ForeColor = RGB(0, 0, 0)
     Label_Litres.ForeColor = RGB(0, 0, 0)
     Label_Montant.ForeColor = RGB(0, 0, 0)
     Label_Agence.ForeColor = RGB(0, 0, 0)
     Label_Model.ForeColor = RGB(0, 0, 0)
     Label_Carb.ForeColor = RGB(0, 0, 0)
     Label_Obj.ForeColor = RGB(0, 0, 0)
     Label_Immat.ForeColor = RGB(0, 0, 0)
     Label_Refact.ForeColor = RGB(0, 0, 0)
     Label_Remark.ForeColor = RGB(0, 0, 0)
 
     'Contrôles de contenu
     If TextBox4.Value = "" Then 'SI pas de "nom" ...
        Label_Km.ForeColor = RGB(255, 0, 0) 'Label "nom" en rouge
        MsgBox (" Données manquantes à compléter  !"), vbOK + vbExclamation, "SAISIE INCOMPLETE !"
        Exit Sub
     ElseIf TextBox5.Value = "" Then
         Label_Litres.ForeColor = RGB(255, 0, 0)
        MsgBox (" Données manquantes à compléter  !"), vbOK + vbExclamation, "SAISIE INCOMPLETE !"
        Exit Sub
     ElseIf TextBox6.Value = "" Then
        Label_Montant.ForeColor = RGB(255, 0, 0)
        MsgBox (" Données manquantes à compléter  !"), vbOK + vbExclamation, "SAISIE INCOMPLETE !"
        Exit Sub
     ElseIf ComboBox3.Value = "" Then
        Label_Agence.ForeColor = RGB(255, 0, 0)
        MsgBox (" Données manquantes à compléter  !"), vbOK + vbExclamation, "SAISIE INCOMPLETE !"
        Exit Sub
     ElseIf ComboBox4.Value = "" Then
         Label_Model.ForeColor = RGB(255, 0, 0)
        MsgBox (" Données manquantes à compléter  !"), vbOK + vbExclamation, "SAISIE INCOMPLETE !"
        Exit Sub
    ElseIf ComboBox5.Value = "" Then
        Label_Immat.ForeColor = RGB(255, 0, 0)
        MsgBox (" Données manquantes à compléter  !"), vbOK + vbExclamation, "SAISIE INCOMPLETE !"
        Exit Sub
    ElseIf ComboBox6.Value = "" Then
        Label_Carb.ForeColor = RGB(255, 0, 0)
        MsgBox (" Données manquantes à compléter  !"), vbOK + vbExclamation, "SAISIE INCOMPLETE !"
        Exit Sub
    ElseIf ComboBox7.Value = "" Then
        Label_Obj.ForeColor = RGB(255, 0, 0)
        MsgBox (" Données manquantes à compléter  !"), vbOK + vbExclamation, "SAISIE INCOMPLETE !"
        Exit Sub
    ElseIf (ComboBox7.Value = "TATA" Or ComboBox7.Value = "TOTO") Then
        If TextBox8 = "" Or TextBox9 = "" Then
            If TextBox8 = "" Then
                Label_Remark.ForeColor = RGB(255, 0, 0)
            End If
            If TextBox9 = "" Then
                Label_Refact.ForeColor = RGB(255, 0, 0)
            End If
            MsgBox (" Données manquantes à compléter  !"), vbOK + vbExclamation, "SAISIE INCOMPLETE !"
            Exit Sub
        End If
    End If
 
        With Feuil1
            Range("B2") = ComboBox2.Text
            Derligne = .Range("A65536").End(xlUp).Row + 1
            For Each Ctrl In USF_Saisie.Controls
                r = Val(Ctrl.Tag)
                If r > 0 Then Cells(Derligne, r) = TrouveType(Ctrl)
            Next
        End With
 
        'Initialise le formulaire
        Unload Me
        USF_Saisie.Show
    'End If
 
End Sub

18/09/2015, 10h58
pasdechances

Coucou,

le probleme vien de ta variable Ctrl elle est vide ^^"

tu initialise la variable mais tu dit pas se qu'elle contient
18/09/2015, 11h14
Tournament

Salut Pasdechances

tu vois c'est encore moi...
Bizarre j ai le même code pour un autre formulaire et çà ne me fait pas sa

tu pourrais m'éclairer sur le solution à apporter à cette anomalie stp
merci d'avance

utilise donc sa :

Code:

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
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
Private Sub Cmd_Validation_Click()
'Valider les données du formulaire
 
Dim Ctrl As Control
Dim r As Integer
Dim Derligne As Integer
Dim Rep As Integer
 
 'Coloration des Labels en rouge
     Label_Km.ForeColor = RGB(0, 0, 0)
     Label_Litres.ForeColor = RGB(0, 0, 0)
     Label_Montant.ForeColor = RGB(0, 0, 0)
     Label_Agence.ForeColor = RGB(0, 0, 0)
     Label_Model.ForeColor = RGB(0, 0, 0)
     Label_Carb.ForeColor = RGB(0, 0, 0)
     Label_Obj.ForeColor = RGB(0, 0, 0)
     Label_Immat.ForeColor = RGB(0, 0, 0)
     Label_Refact.ForeColor = RGB(0, 0, 0)
     Label_Remark.ForeColor = RGB(0, 0, 0)
 
     'Contrôles de contenu
     If TextBox4.Value = "" Then 'SI pas de "nom" ...
        Label_Km.ForeColor = RGB(255, 0, 0) 'Label "nom" en rouge
        MsgBox (" Données manquantes à compléter  !"), vbOK + vbExclamation, "SAISIE INCOMPLETE !"
        Exit Sub
     ElseIf TextBox5.Value = "" Then
         Label_Litres.ForeColor = RGB(255, 0, 0)
        MsgBox (" Données manquantes à compléter  !"), vbOK + vbExclamation, "SAISIE INCOMPLETE !"
        Exit Sub
     ElseIf TextBox6.Value = "" Then
        Label_Montant.ForeColor = RGB(255, 0, 0)
        MsgBox (" Données manquantes à compléter  !"), vbOK + vbExclamation, "SAISIE INCOMPLETE !"
        Exit Sub
     ElseIf ComboBox3.Value = "" Then
        Label_Agence.ForeColor = RGB(255, 0, 0)
        MsgBox (" Données manquantes à compléter  !"), vbOK + vbExclamation, "SAISIE INCOMPLETE !"
        Exit Sub
     ElseIf ComboBox4.Value = "" Then
         Label_Model.ForeColor = RGB(255, 0, 0)
        MsgBox (" Données manquantes à compléter  !"), vbOK + vbExclamation, "SAISIE INCOMPLETE !"
        Exit Sub
    ElseIf ComboBox5.Value = "" Then
        Label_Immat.ForeColor = RGB(255, 0, 0)
        MsgBox (" Données manquantes à compléter  !"), vbOK + vbExclamation, "SAISIE INCOMPLETE !"
        Exit Sub
    ElseIf ComboBox6.Value = "" Then
        Label_Carb.ForeColor = RGB(255, 0, 0)
        MsgBox (" Données manquantes à compléter  !"), vbOK + vbExclamation, "SAISIE INCOMPLETE !"
        Exit Sub
    ElseIf ComboBox7.Value = "" Then
        Label_Obj.ForeColor = RGB(255, 0, 0)
        MsgBox (" Données manquantes à compléter  !"), vbOK + vbExclamation, "SAISIE INCOMPLETE !"
        Exit Sub
    ElseIf (ComboBox7.Value = "TATA" Or ComboBox7.Value = "TOTO") Then
        If TextBox8 = "" Or TextBox9 = "" Then
            If TextBox8 = "" Then
                Label_Remark.ForeColor = RGB(255, 0, 0)
            End If
            If TextBox9 = "" Then
                Label_Refact.ForeColor = RGB(255, 0, 0)
            End If
            MsgBox (" Données manquantes à compléter  !"), vbOK + vbExclamation, "SAISIE INCOMPLETE !"
            Exit Sub
        End If
    End If
 
        With Feuil1
            Range("B2") = ComboBox2.Text
            Derligne = .Range("A65536").End(xlUp).Row + 1
            Cells(Derligne, 1) = USF_Saisie.TextBox1
            Cells(Derligne, 2) = USF_Saisie.ComboBox3
            Cells(Derligne, 3) = USF_Saisie.ComboBox4
            Cells(Derligne, 4) = USF_Saisie.ComboBox5
            Cells(Derligne, 5) = USF_Saisie.TextBox4
            Cells(Derligne, 6) = USF_Saisie.ComboBox6
            Cells(Derligne, 7) = USF_Saisie.TextBox5
            Cells(Derligne, 8) = USF_Saisie.TextBox6
            Cells(Derligne, 9) = USF_Saisie.ComboBox7
            Cells(Derligne, 10) = USF_Saisie.TextBox8
            Cells(Derligne, 11) = USF_Saisie.TextBox9
        End With
 
        'Initialise le formulaire
        Unload Me
        USF_Saisie.Show
    'End If
 
End Sub

c'est plus long mais sa résout ton probleme ^^.
et la ou sa ne marche pas, c'est que dans ton autre fichier, tu devais avoir un remplissage de la variable ctrl.

18/09/2015, 11h20
Daniel.C

Bonjour,

Ca fonctionne ici. Ce qui se passe, c'est que la feuille se remplit et le userform est réaffiché.
18/09/2015, 11h25
Tournament

Bonjour Daniel

merci pour ta réponse,
si je comprends, c'est dû au fait que j'initialise et je fais de nouveau afficher le formulaire ?

Bonjour,
Je suis partisan d'une certaine structure et donc de décomposer en petite procédure les différentes étapes d'une application.
Ainsi je créerais une fonction booléenne pour vérifier si tous les TextBox sont remplis.
Petit exemple rapide en partant de tes contrôle (contrôle partiel, c'est juste une piste)
Code:

1 2 3 4 5 6 7 8 9 Private Function CheckCtrl() As Boolean Dim flag As Boolean flag = Len(TextBox4) = 0: If flag Then CheckCtrl = True Label_Km.ForeColor = RGB(255 * Abs(flag), 0, 0) flag = Len(TextBox5) = 0: If flag Then CheckCtrl = True Label_Litres.ForeColor = RGB(255 * Abs(flag), 0, 0) flag = Len(TextBox6) = 0: If flag Then CheckCtrl = True Label_Montant.ForeColor = RGB(255 * Abs(flag), 0, 0) End Function
Fonction que tu invoques depuis la procédure événementielle Cmd_Validation_Click
Code:

1 2 3 4 5 ' Vérifie encodage If CheckCtrl() Then MsgBox (" Données manquantes à compléter !"), vbOK + vbExclamation, "SAISIE INCOMPLETE !" Exit Sub End If
La lecture de cette contribution USERFORM - Créer, Consulter, Modifier et Supprimer des enregistrements à l'aide d'un formulaire t'aidera peut-être pour le futur

18/09/2015, 11h30
pasdechances

Citation:

Envoyé par Tournament

Bonjour Daniel

merci pour ta réponse,
si je comprends, c'est dû au fait que j'initialise et je fais de nouveau afficher le formulaire ?

Non enfaite la variable ctrl affiche "nothing" donc quand on va boucler sur les control on a rien.
parcontre Daniel.c dit que sa marche sans soucis mais je ne sais donc pas pourquoi.
18/09/2015, 11h58
Tournament

Bonjour Philippe

effectivement mon code mérite d être largement simplifié et ton aide est très appréciable car le débutant que je suis n'arriverait pas à écrire cette fonction.
Pour bien comprendre, je dois compléter cette fonction des autres textbox et combobox du formulaire
et à la procédure de "validation et report" des données dans mon tableau excel, rajouter le bout de code complémentaire ?

je vais faire cela tranquillement ce week end
surtout qu'avec le lien que tu m'as donné j ai de quoi bosser.
En tous cas félicitations pour le travail que tu as fais c'est super instructif et utile pour des débutants comme moi
je crois que je vais passer un excellent we

merci encore

A PASDECHANCES merci aussi pour ton attention
18/09/2015, 12h07
Daniel.C

1 pièce(s) jointe(s)

@ Tournament :

Citation:

si je comprends, c'est dû au fait que j'initialise et je fais de nouveau afficher le formulaire ?

Ce que je veux dire, c'est que le bouton écrit bien les valeurs sur la feuille, se ferme et s'affiche de nouveau. Donc il n'y a pas d'erreur.

@ pasdechances :

Citation:

Non enfaite la variable ctrl affiche "nothing" donc quand on va boucler sur les control on a rien.

la variable représente un contrôle du formulaire.

Pièce jointe 188276

Code:

For Each Ctrl In USF_Saisie.Controls

= boucle sur les contrôles du userform. D'ailleurs, si Ctrl était vide, "Ctrl.Tag" provoquerait une erreur.
18/09/2015, 12h12
Tournament

Merci Daniel pour ta contribution et de ton attention
je vais plutôt travailler sur la simplification du code à l aide des outils que m a donné Philippe
çà ne pourra que m'apprendre et me faire progresser

merci encore
18/09/2015, 12h13
pasdechances

Daniel.C,

De mon coter, je devai avoir une erreur d'execution, car justement la variable controle ne s'activai pas ^^".
C'est la raison pour la quelle j'en avais déduit que le probleme venait de la.
18/09/2015, 12h24
Philippe Tulliez

Bonjour,
Dans la procédure affichée dans le fil #4, il y a de sérieux problèmes dans le bloc With Feuil1...End With (lignes 69-81)
A quoi sert-il si l'on ne rattache pas les objets Range et Cells à l'objet Feuil1

Renommer les objets et contrôles (TextBox) avec des noms moins exotiques serait un plus pour la lisibilité du programme et surtout pour sa maintenance.
18/09/2015, 12h32
pasdechances

Tu as tout a fais raison, c'est une erreur de ma part, je n'ai pas prété attention à l'ensemble, je me suis juste consentré, pour rendre le programme opérationnel.