Probléme d'enregistremenet de données saisies dans un userform
Ellham
Messages postés
3
Date d'inscription
Statut
Membre
Dernière intervention
-
Ellham Messages postés 3 Date d'inscription Statut Membre Dernière intervention -
Ellham Messages postés 3 Date d'inscription Statut Membre Dernière intervention -
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 :
Merci d'avance
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
- Fuite données maif - Guide
- Supprimer les données de navigation - Guide
- Trier des données excel - Guide
- Reinstaller windows sans perte de données - Guide
- Sauvegarde des données - Guide
4 réponses
Bonjour,
boite a message avec boutons oui et non
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
Bonjour,
Je n'es pas très bien compris votre répons, pouvez m'éclairssir d'avantage sur votre solution ?
Je n'es pas très bien compris votre répons, pouvez m'éclairssir d'avantage sur votre solution ?
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
J'ai mis des boutons Oui et Non dans la boite a message pour avoir un choix
code:
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
=VbYesca 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)
