Msgbox dans Userform

Version imprimable

07/04/2015, 17h21
BSMAV

Msgbox dans Userform

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.

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

Citation:

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:

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

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:

Private Sub ReadRecord(ByVal RecordNumber As Long)

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
 ' 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:

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

17/04/2015, 13h19
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

Citation:

Envoyé par 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

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:

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)

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:

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:

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:

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

30/04/2015, 16h21
BSMAV

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.

Bonjour,
Dans ce cas, une petite astuce consiste à utiliser la propriété Tag du contrôle en question par une valeur (fill pas exemple).
En parcourant la collection des contrôles il suffit de vérifier si le contrôle contenant cette valeur est bien rempli.
Exemple : En rouge la ligne à modifier
Code:

1 2 3 4 5 6 7 8 9 10 11 12 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 LCase(Ctrl.Tag) = "fill" And Len(Trim(Ctrl.Value)) = 0 Then Ctrl.SetFocus: IsFieldsFilled = False: Exit Function End If End If Next Ctrl End Function

02/05/2015, 17h54
BSMAV

BSMAV

Bonjour Monsieur TULLIEZ,

J'ai bien reçu et appliqué votre solution, mais j'avoue que je suis perdu.
En fait, je vais essayé de vous envoyer en PJ carrément mon projet, car j'ai le sentiment de mal m'exprimer.
Et donc avec le fichier Excel, qui bien sur était à l'origine le votre, et que j'ai essayé d'adapter à mes besoins, vous comprendrez mieux la situation.
Les données déjà inscrites sont des données pour essai donc, sans importance.
En résumer:
- Les N° d'Acte ne doivent pas être incrémentés automatiquement.
- La date de rencontre doit être obligatoirement renseigné, c'est pour cela que je souhaite un (MsgBox "Vous avez oublié de saisir la date de la rencontre !")
et que le pointeur revienne dans la TextBox "Date de Rencontre", sans effacer les données déjà saisie dans le formulaire.
- Puis la même chose pour la TextBox " Rencontre avec:".
Le reste est à renseigner , si j'ai les infos ou plus tard.
Voilà la situation.
J'espère que vous ne perdiez pas patience avec moi car j'avoue que je me suis lancé dans une "Fabrication" qui est presque au dessus de mes compétences. Mais je reconnais vraiment, la votre.
Merci Monsieur Tulliez de votre aide.
PS: Je n'arrive pas à vous envoyer ma P J.
Vous est-il possible de me communiquer votre adresse courriel de façon à ce que je vous la fasse parvenir?