Bonjour !
dans mon userform j'ai une zone de texte qui me permet de saisir une donnée et un bouton qui me permet de l'enregistrer dans ma feuille.

ce que je désire est que à la fin de l'enregistrement il me notifie par un message que la donnée à été entrer avec succès.

je fais appel à votre aide, merci.

Voici donc le code que j' utile pour l'enregistrement de données.

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
Private Sub Ajout1_Click()
'teste si un texte a été entré, si non, le programme averti l'utilisateur et s'arrête
               If UserForm1.TextBox1.Text = "" Then
                        MsgBox "Vous n'avez rien saisi;" & Chr(10) & "Veillez entrer un mail! "
                    Exit Sub
                   End If
For i = 1 To 10000
If Cells(i, 1) = "" Then Exit For
Next
 
'insertion de la valeur de la zone de texte (textbox1 représentant le nom de la zone de texte)
Cells(i, 1) = TextBox1.Text
End Sub