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

Fermé

Ellham Messages postés 3 Date d'inscription vendredi 9 mai 2014 Statut Membre Dernière intervention 14 mai 2014 - Modifié par pijaku le 12/05/2014 à 09:37
Ellham Messages postés 3 Date d'inscription vendredi 9 mai 2014 Statut Membre Dernière intervention 14 mai 2014 - 14 mai 2014 à 10:35

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

A voir également:

Probléme d'enregistremenet de données saisies dans un userform
Reinstaller windows sans perte de données - Guide
Effacer les données de navigation - Guide
Célia doit nettoyer le tableau ci-dessous pour l’ajouter à la base de données de son entreprise. les données sont ensuite traitées automatiquement. quelles sont les 4 cellules qui risquent de poser problème ? ✓ - Forum Excel
Tnt base de données vide ✓ - Forum TNT / Satellite / Réception
Comment sauvegarder toutes les données de mon téléphone - Guide

4 réponses

Réponse 1 / 4

f894009 Messages postés 17189 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 6 mai 2024 1 705
9 mai 2014 à 17:49

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

Réponse 2 / 4

Ellham Messages postés 3 Date d'inscription vendredi 9 mai 2014 Statut Membre Dernière intervention 14 mai 2014
11 mai 2014 à 19:01

Bonjour,

Je n'es pas très bien compris votre répons, pouvez m'éclairssir d'avantage sur votre solution ?

Réponse 3 / 4

f894009 Messages postés 17189 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 6 mai 2024 1 705
12 mai 2014 à 07:40

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)

Réponse 4 / 4

Ellham Messages postés 3 Date d'inscription vendredi 9 mai 2014 Statut Membre Dernière intervention 14 mai 2014
14 mai 2014 à 10:35

Bonjour,

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

Encore merci,

A bientôt

Discussions similaires

exo pix

Germain

ou sont les bananes ?

Exemple de base de données access

je tombe sur le service de diffusion des donnees?que faire?

Discussions similaires

Newsletters