Discussion :

[cedill23]

Bonjour,

Comment fait on dans un formulaire pour enregistrer les données qu'on tape depuis un clavier.

J'ai un userform qui s'ouvre des que je clique sur un bouton et qui me propose des champs vides que je remplie en fonction de ce qui m'est demandé mais en fermant par la croix et je reclique sur le bouton il ne m'enregistre pas mes données entrées.

Merci.

[helas]

Bonsoir,
il faut donc sur un événement (clic sur un bouton ou sur Fermeture du formulaire) enregistrer les données

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
 
Private Sub CommandButton1_Click()
 Sheets("Feuil1").Range("B2") = TextBox1.Value
End Sub

[Theze]

Bonjour,

Sur l'évennement "QueryClose" tu enregistre les valeurs de tes différents TextBox à la fermeture de la form. Ici, tu peux empêcher la fermeture de cette dernière si les conditions voulues ne sont pas remplies :

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
16
17
18
19
20
21
22
 
Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
 
 
    'ici ton code d'enregistrement, tu peux interdire
    'la fermeture si tous les champs ne sont pas rempli comme tu veux
    If TextBox1 = "" Then
 
        MsgBox "vous devez remplir le 1er champ !"
        Cancel = True
 
    End If
 
End Sub
 
'Ou alors :
 
Private Sub UserForm_Terminate()
 
    'ici ton code d'enregistrement
 
End Sub

Hervé.

[cedill23]

Bonjour,

Désolé mais je ne comprends pas tout les éléments.

j'ai au moins une centaine de text box pour tous mes onglets de mon formulaire.

Dois-je specifier par le code chaque text box ou y'a til un moyen d'enregistrer d'ou les text box automatiquement sans les spécifier une a une ?

merci

[Theze]

Bonjour,

Hé bien c'est celui que t'as donné hélas (c'est un exemple bien sûr !). Il te faut adapter le code à tes besoins car c'est juste une piste qu'on te donne, il te faut peut être boucler sur tes contrôles afin de vérifier si tous tes TexBox sont remplis ? Ton code d'enregistrement, c'est où tu veux tranférer tes valeurs ! :

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
16
17
 
Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
 
 
    'tu peux interdire
    'la fermeture si tous les champs ne sont pas rempli comme tu veux
    If TextBox1 = "" Then
 
        MsgBox "vous devez remplir le 1er champ !"
        Cancel = True
 
    End If
 
    'ton code d'enregistrement, adapte...
    Sheets("Feuil1").Range("B2") = TextBox1.Value
 
End Sub

Hervé.

[cedill23]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
 
Private Sub CommandButton1_Click()
 Sheets("Feuil1").Range("B2") = TextBox1.Value
End Sub

Par contre le code ci-dessus signifie qu'on stocke les valeurs entrés dans la textbox1 dans la feuil1 cellule B2.

la feuil1 doit correspondre à la feuille courante ou s'ouvre mon formulaire par le biais de mon bouton valider ???

si j'ai 5 textbox, je dois entrer le code suivant par exemple. ai je le droit de stocker mes données dans les même cellules ?

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
Private Sub CommandButton1_Click()
Sheets("Feuil1").Range("B2") = TextBox1.Value
Sheets("Feuil1").Range("B2") = TextBox2.Value
Sheets("Feuil1").Range("B2") = TextBox3.Value
Sheets("Feuil1").Range("B2") = TextBox4.Value
Sheets("Feuil1").Range("B2") = TextBox5.Value
End Sub

merci si vous avez un faq je suis preneur