IdentifiantMot de passe
Loading...
Mot de passe oublié ?Je m'inscris ! (gratuit)
Navigation

Inscrivez-vous gratuitement
pour pouvoir participer, suivre les réponses en temps réel, voter pour les messages, poser vos propres questions et recevoir la newsletter

Macros et VBA Excel Discussion :

Msgbox dans Userform


Sujet :

Macros et VBA Excel

Vue hybride

Message précédent Message précédent   Message suivant Message suivant
  1. #1
    Membre régulier
    Homme Profil pro
    Retraite
    Inscrit en
    Mars 2015
    Messages
    10
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France, Aveyron (Midi Pyrénées)

    Informations professionnelles :
    Activité : Retraite

    Informations forums :
    Inscription : Mars 2015
    Messages : 10
    Par défaut 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.

  2. #2
    Rédacteur
    Avatar de Philippe Tulliez
    Homme Profil pro
    Formateur, développeur et consultant Excel, Access, Word et VBA
    Inscrit en
    Janvier 2010
    Messages
    13 168
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : Belgique

    Informations professionnelles :
    Activité : Formateur, développeur et consultant Excel, Access, Word et VBA

    Informations forums :
    Inscription : Janvier 2010
    Messages : 13 168
    Billets dans le blog
    53
    Par défaut
    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
    Philippe Tulliez
    Ce que l'on conçoit bien s'énonce clairement, et les mots pour le dire arrivent aisément. (Nicolas Boileau)
    Lorsque vous avez la réponse à votre question, n'oubliez pas de cliquer sur et si celle-ci est pertinente pensez à voter
    Mes tutoriels : Utilisation de l'assistant « Insertion de fonction », Les filtres avancés ou élaborés dans Excel
    Mon dernier billet : Utilisation de la fonction Dir en VBA pour vérifier l'existence d'un fichier

  3. #3
    Membre régulier
    Homme Profil pro
    Retraite
    Inscrit en
    Mars 2015
    Messages
    10
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France, Aveyron (Midi Pyrénées)

    Informations professionnelles :
    Activité : Retraite

    Informations forums :
    Inscription : Mars 2015
    Messages : 10
    Par défaut
    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

  4. #4
    Rédacteur
    Avatar de Philippe Tulliez
    Homme Profil pro
    Formateur, développeur et consultant Excel, Access, Word et VBA
    Inscrit en
    Janvier 2010
    Messages
    13 168
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : Belgique

    Informations professionnelles :
    Activité : Formateur, développeur et consultant Excel, Access, Word et VBA

    Informations forums :
    Inscription : Janvier 2010
    Messages : 13 168
    Billets dans le blog
    53
    Par défaut
    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
    Philippe Tulliez
    Ce que l'on conçoit bien s'énonce clairement, et les mots pour le dire arrivent aisément. (Nicolas Boileau)
    Lorsque vous avez la réponse à votre question, n'oubliez pas de cliquer sur et si celle-ci est pertinente pensez à voter
    Mes tutoriels : Utilisation de l'assistant « Insertion de fonction », Les filtres avancés ou élaborés dans Excel
    Mon dernier billet : Utilisation de la fonction Dir en VBA pour vérifier l'existence d'un fichier

  5. #5
    Membre régulier
    Homme Profil pro
    Retraite
    Inscrit en
    Mars 2015
    Messages
    10
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France, Aveyron (Midi Pyrénées)

    Informations professionnelles :
    Activité : Retraite

    Informations forums :
    Inscription : Mars 2015
    Messages : 10
    Par défaut BSMAV
    Citation Envoyé par Philippe Tulliez Voir le message
    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)

  6. #6
    Rédacteur
    Avatar de Philippe Tulliez
    Homme Profil pro
    Formateur, développeur et consultant Excel, Access, Word et VBA
    Inscrit en
    Janvier 2010
    Messages
    13 168
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : Belgique

    Informations professionnelles :
    Activité : Formateur, développeur et consultant Excel, Access, Word et VBA

    Informations forums :
    Inscription : Janvier 2010
    Messages : 13 168
    Billets dans le blog
    53
    Par défaut
    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
    Philippe Tulliez
    Ce que l'on conçoit bien s'énonce clairement, et les mots pour le dire arrivent aisément. (Nicolas Boileau)
    Lorsque vous avez la réponse à votre question, n'oubliez pas de cliquer sur et si celle-ci est pertinente pensez à voter
    Mes tutoriels : Utilisation de l'assistant « Insertion de fonction », Les filtres avancés ou élaborés dans Excel
    Mon dernier billet : Utilisation de la fonction Dir en VBA pour vérifier l'existence d'un fichier

  7. #7
    Membre régulier
    Homme Profil pro
    Retraite
    Inscrit en
    Mars 2015
    Messages
    10
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France, Aveyron (Midi Pyrénées)

    Informations professionnelles :
    Activité : Retraite

    Informations forums :
    Inscription : Mars 2015
    Messages : 10
    Par défaut 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.

Discussions similaires

  1. [VBA-E] Question sur image dans userform ?
    Par damsmut dans le forum Excel
    Réponses: 3
    Dernier message: 04/04/2007, 05h32
  2. Réponses: 29
    Dernier message: 04/03/2007, 09h39
  3. [VBA-E] affichage de données dans userform
    Par lio62 dans le forum Macros et VBA Excel
    Réponses: 7
    Dernier message: 05/02/2007, 21h52
  4. (VBA-E) Problème combobox dans userform
    Par gringo69 dans le forum Macros et VBA Excel
    Réponses: 1
    Dernier message: 27/06/2006, 18h28
  5. Gestion d’Un Msgbox dans la Fermeture d’une application
    Par hoummass dans le forum Windows Forms
    Réponses: 5
    Dernier message: 25/11/2005, 16h44

Partager

Partager
  • Envoyer la discussion sur Viadeo
  • Envoyer la discussion sur Twitter
  • Envoyer la discussion sur Google
  • Envoyer la discussion sur Facebook
  • Envoyer la discussion sur Digg
  • Envoyer la discussion sur Delicious
  • Envoyer la discussion sur MySpace
  • Envoyer la discussion sur Yahoo