Probléme d'enregistremenet de données saisies dans un userform

Ellham Messages postés 3 Statut Membre -  
Ellham Messages postés 3 Statut Membre -
Bonjour à tous,

Je n'arrive pas à afficher mes données saisies dans un user form dans ma feuille excel
C'est urgent, svp une aide serait la bienvenue, voici ci-dessous mon code :

Private Sub Cb_enreg_Click()

If TextBox1.Value = "" Or TextBox2.Value = "" Then

    MsgBox "Formulaire incomplet"

Else

    If MsgBox("Confirmez-vous l'insertion de ce nouveau contact ?") = vbYes Then
        
        With Sheets("Feuil1")
            ligvid = .Columns(1).Find("*", , , , , xlPrevious).Row + 1
            .Cells(ligvide, "A") = TextBox1
        End With
       
    End If
End If

Unload Me

End Sub


Merci d'avance

4 réponses

  1. f894009 Messages postés 17417 Date d'inscription   Statut Membre Dernière intervention   1 717
     
    Bonjour,

    boite a message avec boutons oui et non

    Private Sub Cb_enreg_Click()
    If TextBox1.Value = "" Or TextBox2.Value = "" Then
    MsgBox "Formulaire incomplet"
    Else
    'bouton oui, non
    If MsgBox("Confirmez-vous l'insertion de ce nouveau contact ?", vbYesNo) = vbYes Then
    With Sheets("Feuil1")
    ligvid = .Columns(1).Find("*", , , , , xlPrevious).Row + 1
    .Cells(ligvid, "A") = TextBox1
    End With
    End If
    End If

    Unload Me

    End Sub
    0
  2. Ellham Messages postés 3 Statut Membre
     
    Bonjour,

    Je n'es pas très bien compris votre répons, pouvez m'éclairssir d'avantage sur votre solution ?
    0
  3. f894009 Messages postés 17417 Date d'inscription   Statut Membre Dernière intervention   1 717
     
    Bonjour,

    Dans votre code, vous utilisez une boite a message avec seulement un bouton OK, ce n'est pas suffisant pour faire un choix et avec un test
    =VbYes
    ca ne marche pas.

    J'ai mis des boutons Oui et Non dans la boite a message pour avoir un choix

    code:
    If MsgBox("Confirmez-vous l'insertion de ce nouveau contact ?", vbYesNo) 
    0
  4. Ellham Messages postés 3 Statut Membre
     
    Bonjour,

    Merci beaucoup, ça a marché. J'ai compris maintenant.

    Encore merci,

    A bientôt
    0