Discussion :

[BSMAV]

J'ai lu cette contribution.

Merci à vous, j'ai réussi à faire ce que je souhaitais pour la saisie du formulaire vers ma feuille de classeur et aussi j'ai appris grâce à vos explications simples à "naviguer" et à "décortiquer" avec courage le VBA.
Merci, je n'ai pas terminé complètement car à présent j'essaie de paramétrer les "msgbox" pour faire des annonces.
Je cherche à ce que quand le message apparaît et que des la validation sur le bouton "OK", que le pointeur de la souris aille directement dans la Combo box qui à déclenché le message.
Je continue mes recherche dans le forum et sur les Faqs mais, si vous avez une réponse, elle serait le bienvenu.
Bravo pour votre façon d'enseigner.

[Philippe Tulliez]

Bonjour BSMAV,
Merci d'avoir apprécié cette contribution, ces mots me vont droit au coeur.

e n'ai pas terminé complètement car à présent j'essaie de paramétrer les "msgbox" pour faire des annonces.
Je cherche à ce que quand le message apparaît et que des la validation sur le bouton "OK", que le pointeur de la souris aille directement dans la Combo box qui à déclenché le message.

Pas certain d'avoir compris. Y a-t-il plusieurs ComboBox ?
Sans plus d'explications, voir du côté de la SetFocus
Petit exemple d'un contrôle UserForm ayant 3 contrôles ComboBox nommés ComboxBox1 à ComboBox3 et 3 contrôles OptionButton, nommés OptionButton1 à OptionButton3.
Dès que l'on sélectionne une des options, le focus est donné au ComboBox portant le même n°
Procédures

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
Private Sub OptionButton1_Click()
 Me.ComboBox1.SetFocus
End Sub
Private Sub OptionButton2_Click()
 Me.ComboBox2.SetFocus
End Sub
Private Sub OptionButton3_Click()
 Me.ComboBox3.SetFocus
End Sub

[BSMAV]

Bonjour Monsieur Tulliez,

En fait j'ai 19 combobox, mais je souhaite un retour du curseur sur environ 5 combobox non renseignés après l'apparition du message dans la "msgbox" "Vous devez renseigner la date ..." et avoir cliqué sur le "OK" de la msgbox.
Je vous copie ci-dessous les codes de:
La Lecture des enregistrements et
de l’Écriture des enregistrements.
Nota: J'ai beaucoup de commentaires, c'est simplement que cela me permets d’apprendre et d'essayer le codage et ses effets.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Private Sub ReadRecord(ByVal RecordNumber As Long)

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
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
 ' Lecture de l'enregistrement à partir de la combobox "Recherche" 
 RecordNumber = RecordNumber + 1
 With rng
        'lecture de la ligne , colonne 2 (Date de la rencontre:)
        Me.txtdaterencontre = .Cells(RecordNumber, 2)
         'lecture de la ligne , colonne 3 (Rencontre avec:)
         Me.txtrencontreavec = .Cells(RecordNumber, 3)
          'lecture de la ligne , colonne 4 (Nom:)
          Me.txtName = .Cells(RecordNumber, 4)
           'lecture de la ligne , colonne 5 (Prénom:)
           Me.txtFirstName = .Cells(RecordNumber, 5)
            'lecture de la ligne , colonne 6 ( M/F)
            'Mise en commentaire car le Sexe n'est pas indispensable pour ces saisies
            'If UCase(.Cells(RecordNumber, 6)) = "F" Then Me.optFemale.Value = True Else Me.optMale = True
             'lecture de la ligne , colonne 7 (Venant de la paroisse)
             Me.txtparoisse = .Cells(RecordNumber, 7)
              'lecture de la ligne , colonne 8 (Adresse résidentielle)
              Me.txtAddress = .Cells(RecordNumber, 8)
               'lecture de la ligne , colonne 9
               Me.txtville = .Cells(RecordNumber, 9)
                'lecture de la ligne , colonne 10
                Me.txtcp = .Cells(RecordNumber, 10)
                 'lecture de la ligne , colonne 11
                 Me.txttelfixe = .Cells(RecordNumber, 11)
                  'lecture de la ligne , colonne 12
                  Me.txtport1 = .Cells(RecordNumber, 12)
                   'lecture de la ligne , colonne 13
                   Me.txtport2 = .Cells(RecordNumber, 13)
                    'lecture de la ligne , colonne 14
                    Me.txtcourriel = .Cells(RecordNumber, 14)
                     'lecture de la ligne , colonne 15
                     Me.txtdatebapteme = .Cells(RecordNumber, 15)
                      'lecture de la ligne , colonne 16
                      Me.txteglisecelebration = .Cells(RecordNumber, 16)
                       'lecture de la ligne , colonne 17
                       Me.txtcelebrant = .Cells(RecordNumber, 17)
                        'lecture de la ligne , colonne 18
                        Me.txtdatepaiement = .Cells(RecordNumber, 18)
                         'lecture de la ligne , colonne 19
                         Me.txtNotes = .Cells(RecordNumber, 19)
                          'Affichage du N° de la fiche sur le cadre des saisies
                          Me.frmMember.Caption = "Fiche " & Format(RecordNumber, "00") '"R000"
 
 End With
End Sub

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
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
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
Private Sub WriteRecord(ByVal RecordNumber As Long)
 ' Ecriture de l'enregistrement dans la feuille du classeur
 Me.cboMember.ListIndex = -1
 RecordNumber = RecordNumber + 1
 With rng
  With .Cells(RecordNumber, 1)
   If Len(.Value) = 0 Then ' ID
   ' La ligne ci-dessous a été mise en commentaire pour ne pas attribuer d'incrémentation automatique de N° dans la colonne "A"
    '.Value = Application.WorksheetFunction.Max(rng.Columns(1)) + 1
   End If
   'Définition du nombre de chiffre (Numéro) qui sera affiché dans la colonne "A"
  .NumberFormat = "0" ' Format '"\R000"
  End With
    ' Ecriture dans la feuille du classeur de la (Date de rencontre)
   .Cells(RecordNumber, 2) = Me.txtdaterencontre
    If Me.txtdaterencontre.Value = "" Then
        MsgBox "Vous avez oublié de saisir la date de la rencontre !"
 
    End If
     ' Ecriture dans la feuille du classeur de (Rencontre avec:)
    .Cells(RecordNumber, 3) = Me.txtrencontreavec
     ' Ecriture dans la feuille du classeur du (Nom)
     .Cells(RecordNumber, 4) = Me.txtName
       ' Ecriture dans la feuille du classeur du (Prénom)
       .Cells(RecordNumber, 5) = Me.txtFirstName
         'Mis en commentaire du code "Sexe", car ce n'est pas indispensable pour ces saisies
         '.Cells(RecordNumber, 6) = IIf(Me.optFemale = True, "F", "M")
            ' Ecriture dans la feuille du classeur de (Venant de la paroisse:)
          .Cells(RecordNumber, 7) = Me.txtparoisse
              ' Ecriture dans la feuille du classeur de (Adresse de résidentielle:)
           .Cells(RecordNumber, 8) = Me.txtAddress
             ' Ecriture dans la feuille du classeur de (Ville:)
            .Cells(RecordNumber, 9) = Me.txtville
               ' Ecriture dans la feuille du classeur du (Code postal:)
             .Cells(RecordNumber, 10) = Me.txtcp
                 ' Ecriture dans la feuille du classeur du (N° Telephonne fixe:)
              .Cells(RecordNumber, 11) = Me.txttelfixe
                  ' Ecriture dans la feuille du classeur du (N° Telephonne portable 1:)
               .Cells(RecordNumber, 12) = Me.txtport1
                  ' Ecriture dans la feuille du classeur du (N° Telephonne portable 2:)
                .Cells(RecordNumber, 13) = Me.txtport2
                   ' Ecriture dans la feuille du classeur de (Adresse courriel:)
                 .Cells(RecordNumber, 14) = Me.txtcourriel
                   ' Ecriture dans la feuille du classeur de (Date du baptême:)
                  .Cells(RecordNumber, 15) = Me.txtdatebapteme
                     ' Ecriture dans la feuille du classeur de (l'Eglise de célébration:)
                   .Cells(RecordNumber, 16) = Me.txteglisecelebration
                      ' Ecriture dans la feuille du classeur du (Nom du prêtre célébrant le baptême:)
                    .Cells(RecordNumber, 17) = Me.txtcelebrant
                        ' Ecriture dans la feuille du classeur de (la Date du paiement:)
                     .Cells(RecordNumber, 18) = Me.txtdatepaiement
                        ' Ecriture dans la feuille du classeur des (Notes complémentaires:)
                      .Cells(RecordNumber, 19) = Me.txtNotes
                         ' Ecriture dans la feuille du classeur des (Enregistrement sur le registre officiel:)
                         ' C'est le codage de la colonne "Sexe" qui a été pris et masqué sur la feuille
                         ' sans changer l'optFemale.(Par flemme de moi)
                         .Cells(RecordNumber, 20) = IIf(Me.optFemale = True, "O", "N")
 End With
    Me.cboMember.ListIndex = CurrentRecord
End Sub
Sub OppositeStatus()
 ' Inverse la valeur booléenne des boutons d'action
 ' Modifie la propriété Caption du UserForm
 With Me
 'Si on est dans la ComboBox " Recherche "
 .cboMember.Enabled = Not .cboMember.Enabled
 'Si on est dans la partie " Fiche "_Nom, Prénom ect
 .frmMember.Enabled = Not .frmMember.Enabled
 'si on est dans la partie " Sélection"_Nouveau, Modification,Suppression
 .frmAction.Visible = Not .frmAction.Visible
 ' Si on clique sur le Bouton de Cde "Annuler"
 .cmdCancel.Visible = Not .cmdCancel.Visible
  ' Si on clique sur le Bouton de Cde "Confirmer"
 .cmdConfirm.Visible = Not .cmdConfirm.Visible
  ' Si on clique sur le Bouton de Cde "Terminer"
 .cmdExit.Visible = Not .cmdExit.Visible
 ' Si on est dans la case "Navigation"
 .frmNavigation.Visible = Not .frmNavigation.Visible
 ' Si on est dans la case "Recherche"
  If .cboMember.Enabled = True Then UserFormStatus = Status.Consultation ' Consultation
  usfTitle ' Titre du UserForm
 End With
End Sub
Private Function usfTitle()
 ' Modifie la propriété Caption du UserForm
 Me.Caption = appTitle & " - " & lstStatusText(UserFormStatus)
End Function
Sub CheckButton()
 With Me
 ' Pour voir le "Premier enregistrement" dans la case " Recherche" du ComboBox_cboMember
 .cmdFirst.Enabled = CurrentRecord > 0
 ' Pour voir le "l'enregistrement Précédent" dans la case " Recherche" du ComboBox_cboMember
 .cmdPrevious.Enabled = CurrentRecord > 0
  ' Pour voir le "l'enregistrement Suivant" dans la case " Recherche" du ComboBox_cboMember
 .cmdNext.Enabled = CurrentRecord <> rng.Rows.Count - 1
 ' Pour voir le "le Dernier enregistrement" dans la case " Recherche" du ComboBox_cboMember
 .cmdLast.Enabled = CurrentRecord <> rng.Rows.Count - 1
 End With
End Sub
Private Sub UserForm_Terminate()
' Pour le bouton "Terminer"
 Set rng = Nothing
 ' Affichage d'un message
 MsgBox " Aurevoir "
End Sub

Voilà monsieur Tulliez, c'est peut être encore un peu confus, mais avec votre précieuse aide, je pense avancer et surtout avec grand plaisir (pour un Papi de 69 ans, j'en suis fier).
Cordialement à vous.
BSMAV

16/04/2015 Bonjour Monsieur Tulliez,

Voilà je viens de me rendre compte que dans mes explications pour vous dire ce que je souhaitais, je me suis trompé.
En fait, je cherche à ce que quand le message apparaît et que des la validation sur le bouton "OK", que le pointeur de la souris aille directement dans "la TextBox" qui à déclenché le message afin de la corriger.
Au lieu de "la ComboBox"
Je suis désolé de cette erreur

[Philippe Tulliez]

Bonjour,
C'est toujours la même méthode SetFocus du contrôle en question.
Sans avoir testé me.TextBox1.SetFocus. Code à placer après la ligne où se trouve le msgbox

[BSMAV]

Bonjour,
C'est toujours la même méthode SetFocus du contrôle en question.
Sans avoir testé me.TextBox1.SetFocus. Code à placer après la ligne où se trouve le msgbox

Je suis vraiment désolé, mais je n'y arrive pas, car je me suis certainement très mal expliqué.

En fait j'ai repris exactement votre codage Monsieur Tulliez avec votre formulaire "userform1 usfdemo" et bien sûr adapté à mon besoin.
Donc en Cliquant sur le bouton "cmdNew"- "Nouveau" pour une nouvelle saisie et si j'oublie de renseigner la texBox "txtdaterencontre" le MsgBox doit donner l'alerte, ce qu'il fait bien.( "Vous avez oublié de saisir la date de la rencontre !")
Donc quand le message d'alerte apparaît et que je Clique sur "OK" de la boîte message, le pointeur se met toujours dans la "cboMember" du formulaire (usfDemo) alors que je souhaiterai que le pointeur aille directement dan la TextBox "txtdaterencontre " afin de corriger cette entrée et cela sans perdre les données déjà saisies dans mon formulaire.

Mais le formulaire ne conserve pas mes saisies déjà faites, elles disparaissent.
Cela m'oblige de refaire une action sur bouton "cmdNew" et recommencer la saisie.

Mon problème se situe donc entre la ligne N° 16 et 22

Merci et encore milles excuses, je n'abandonne pas car je veux arrivé à résoudre ce problème, même avec mes "petites" connaissances.
Mais, déjà grâce à vous, j'ai fais de gros progrès.

Salutations, Monsieur Tulliez



Ci-dessous une partie du codage de l'enregistrement des saisies à partir du formulaire

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
26
27
Private Sub WriteRecord(ByVal RecordNumber As Long)
 ' Ecriture de l'enregistrement dans la feuille du classeur
 Me.cboMember.ListIndex = -1
 RecordNumber = RecordNumber + 1
 With rng
  With .Cells(RecordNumber, 1)
  ' ID
    If Len(.Value) = 0 Then
   ' La ligne ci-dessous a été mise en commentaire pour ne pas attribuer d'incrémentation automatique de N° dans la colonne "A"
      '.Value = Application.WorksheetFunction.Max(rng.Columns(1)) + 1
    End If
   'Définition du nombre de chiffre (Numéro) qui sera affiché dans la colonne "A" on aura que le N° 1 et 2 et 3 ect....
    ' Format '"\R000" pour écrire dans la colone A "R001" puis "R002" etc...
    .NumberFormat = "0" ' Format '"\R000" pour écrire dans la colone A "R001" puis "R002" etc...
  End With
    ' Ecriture dans la feuille du classeur de la (Date de rencontre)
   .Cells(RecordNumber, 2) = Me.txtdaterencontre
 
            MsgBox "Vous avez oublié de saisir la date de la rencontre !"
                Exit Sub
                    Me.txtdaterencontre.SetFocus
         'End If
     ' Ecriture dans la feuille du classeur de (Rencontre avec:)
    .Cells(RecordNumber, 3) = Me.txtrencontreavec
     ' Ecriture dans la feuille du classeur du (Nom)
     .Cells(RecordNumber, 4) = Me.txtName
       ' Ecriture dans la feuille du classeur du (Prénom)

[Philippe Tulliez]

Bonjour,
Le but des procédures séparées comme par exemple WriteRecord est justement de scinder les problèmes, de favoriser la maintenance et rendre pérenne l'application comme le cas présent.
En bref, ne pas toucher à la procédure WriteRecord qui fonctionne parfaitement mais en créer une autre qui la précède et qui pourrait être une fonction renvoyant un boolean et qui aurait pour "mission" de vérifier si tous les champs sont remplis en renvoyant TRUE ou FALSE.
Si TRUE on utilise la procédure WriteRecord
Par exemple une fonction nommée IsFieldsFilled

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
Private Function IsFieldsFilled() As Boolean
 ' Contrôle si tous les TextBox sont remplis
 Dim Ctrl As Control
 IsFieldsFilled = True
 For Each Ctrl In Me.Controls
  If TypeOf Ctrl Is MSForms.TextBox Then
   If Len(Ctrl.Value) = 0 Then
    Ctrl.SetFocus
    IsFieldsFilled = False: Exit Function
   End If
  End If
 Next Ctrl
End Function

Invoquée par la procédure cmdConfirm_Click La ligne en rouge est celle à ajouter

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
Private Sub cmdConfirm_Click()
 If Not IsFieldsFilled Then Exit Sub ' Mise à jour impossible
 Select Case UserFormStatus
   Case Status.NewRec ' Nouvel enregistrement
     WriteRecord rng.Rows.Count: InitData: InitRowSource
     Me.cboMember.ListIndex = rng.Rows.Count - 1
   Case Status.Modify: WriteRecord CurrentRecord ' Modification de l'enregistrement
 End Select
 OppositeStatus ' Inverse la valeur booléenne des boutons d'action
End Sub

[EDIT]
Si l'on veut empêcher l'insertion de caractères espacés sans autres types de caractères en considérant le TextBox comme vide, on pourrait modifier la ligne 7 de la fonction IsFieldsFilled en ajoutant la fonction Trim.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

   If Len(Trim(Ctrl.Value)) = 0 Then

[BSMAV]

Bonjour Monsieur Tulliez,

Merci pour votre réponse et excusez-moi de répondre toujours avec un temps de retard, mais n'étant pas toujours présent chez moi, j'ai accès à mon ordinateur par"intermittence".
J'ai bien compris votre explication, mais dans le formulaire, il me faut impérativement que seules deux TextBox soient renseignées, (dont une est une "Date" et la seconde est un "Nom").
Les autres TextBox sont facultatives.
Donc ce n'est pas toutes les TextBox qui sont à remplir.
Salutations à vous Monsieur Tulliez, je continu sur ce problème qui est en passe d'être résolu et cela grâce à vous.
Merci.