Discussion :

[meryn]

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

[casefayere]

Puet-être que je ne comprends pas mais ce code devrait suffire

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 a quoi ça sert ?
'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
MsgBox "Enregistrement créé avec succès"
End Sub

[meryn]

Merci ! vous avez résolu mon problème, c'est vraiment gentils....

[mercatog]

Une adaptation

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
Private Sub Ajout1_Click()
Dim Msg As String
 
'teste si un texte a été entré, si non, le programme averti l'utilisateur et s'arrête
If Me.TextBox1.Text = "" Then
    Msg = "Vous n'avez rien saisi;" & Chr(10) & "Veillez entrer un mail! "
Else
    'insertion de la valeur de la zone de texte (textbox1 représentant le nom de la zone de texte)
    With Worksheets("Feuil1") ' à adapter
        .Cells(.Rows.Count, 1).End(xlUp)(2) = Me.TextBox1.Text
    End With
    Msg = "La donnée à été entrée avec succès"
End If
MsgBox Msg
End Sub