Enregistrer les données dans userform

Version imprimable

25/02/2011, 17h32
cedill23

Enregistrer les données dans userform

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.
25/02/2011, 18h53
helas
Bonsoir,
il faut donc sur un événement (clic sur un bouton ou sur Fermeture du formulaire) enregistrer les données
Code:

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

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:

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é.

28/02/2011, 11h35
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

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:

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é.

Code:

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:

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

Re,

C'est plutôt comme ça :

Code:

1
2
3
4
5
6
7
8
9
10
 
Private Sub CommandButton1_Click()
 
    Sheets("Feuil1").Range("B2") = TextBox1.Value
    Sheets("Feuil1").Range("B3") = TextBox2.Value
    Sheets("Feuil1").Range("B4") = TextBox3.Value
    Sheets("Feuil1").Range("B5") = TextBox4.Value
    Sheets("Feuil1").Range("B6") = TextBox5.Value
 
End Sub

car si tu indique toujours la même cellule, tu aura juste, à la fin, la valeur de "TextBox5"
Maintenant, un petit exemple avec une obligation de renseigner tous les textbox. A mettre dans le module de ton formulaire et tester en fermant ce dernier :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
 
Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
 
    Dim Ctrl As Control
 
    'parcour les contrôles du formulaire
    For Each Ctrl In Me.Controls
 
        'si le contrôle est un textbox
        'et qu'il est vide, affiche un message
        'et empèche la fermeture du formulaire
        If TypeName(Ctrl) = "TextBox" Then
 
            If Ctrl.Text = "" Then
                MsgBox "Vous devez renseigner tous les champs !"
                Cancel = True
                Exit Sub
            End If
 
        End If
 
    Next Ctrl
 
    'si le compilateur arrive ici, tous les textbox ont été renseignés
    'donc, enregistre les valeurs dans la feuille "Feuil1" de B2 à B6
    Enregistrer
 
End Sub
 
Sub Enregistrer()
 
    With Sheets("Feuil1")
        .[B2] = TextBox1.Value
        .[B3] = TextBox2.Value
        .[B4] = TextBox3.Value
        .[B5] = TextBox4.Value
        .[B6] = TextBox5.Value
    End With
 
End Sub

Hervé.

1 pièce(s) jointe(s)

Les text box ne doivent pas nécessairement être toutes remplis par contre lorsque je ferme par la croix de mon userform il m'affiche une erreur sur

Code:

With Sheets("Feuil1")

ci-dessous mon code de mon userform
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 Private Sub CommandButton9_Click() Me.Hide End Sub Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer) Enregistrer End Sub Sub Enregistrer() With Sheets("Feuil1") '' LERREUR APPARAIT ICI .[B2] = TextBox1.Value .[B3] = TextBox2.Value .[B4] = TextBox3.Value .[B5] = TextBox4.Value .[B6] = TextBox5.Value End With End Sub
Citation:

Erreur d'exécution 9 lindice n'appartient pas à la selection

Voilà j'ai joins mon fichier Excel ..pouvez corriger directement sur le document ce sera plus simple pour moi. Merci par avance car je rame sur des petites choses qui pour vous j'imagine est facile.

Pour etre plus clair, ce que je voudrais dans l'idéal c'est pour chaque userform la possibilité d'enregistrer les données entrées dans les textbox par le code ca n'a pas l'air de fonctionner c'est pourquoi je vous fournis le fichier. De plus je voudrais un bouton qui ferme mon userform et enregistre dans un autre bouton mes données.

28/02/2011, 17h09
patricktoulon

heu

bonjour
j'ai regardé ton fichier il n'y a pas de "feuil1" c'est pour ca que ca marche pas

au plaisir
28/02/2011, 17h12
cedill23

J'ai changé cette valeur en feuil16 ça n'a pas l'air de fonctionné !!
28/02/2011, 17h36
patricktoulon

re

re

pourquoi "feuil16" elle n'existe pas ???????

tu n'a que "offre contact ou iphone la quel des deux

au plaisir
28/02/2011, 17h41
Theze

Re,

Tu as une erreur car "Feuil1" n'existe pas dans la collection de feuilles du classeur, "Feuil1" est généralement pris en exemple par défaut dans les réponses faites ici si on a pas plus de précision, il en est de même pour les cellules.
Il faut que tu change "Feuil1" par le nom de la feuille où tu veux enregistrer tes valeurs et l'objet Feuil16 du VBE fait référence à ta feuille "iPhone" donc, tu doit changer Feuil1 par iPhone.
28/02/2011, 17h44
cedill23

Il me stocke bien la valeur dans la celulle b2 par contre si je ferme completement le fichier et je l'ouvre une seconde fois puis je clique sur le bouton valider les champs sont vides, je suis perdu.

Merci de m'aider .
28/02/2011, 20h37
Theze

Bonsoir,

Si tu enregistre ton classeur avant de fermer, il n'y a pas de raison que les valeurs soient perdues ?
Surtout, ne prends pas mal ce que je vais te dire mais je ne sais pas si c'est un classeur que tu as récupéré ou si c'est toi qui la fais malgré tout, il va falloir que tu l'épure car tu as une multitude de modules inutiles et les Userforms ne sont-ils pas tous les mêmes ? Comment as-tu fais pour avoir autant d'objets Thisworkbook ??? (Ils portent des noms de feuilles !!!).
Tu as ajouté des modules de classe mais je crois que tu n'en a pas encore besoin au stade où tu en es !
Evite d'encombrer le VBE inutilement, se sera plus facile pour toi.

Ne t'es tu pas lancé dans un projet un peu ambitieux ?

Hervé.
28/02/2011, 21h24
patricktoulon

re

allons on va pas le decourager

effectivement il ya plein de module vide qui servent a rien

quand au userform identiques pourquoi pas n'en laisser qu'un seul et l'ouvrir avec condition
peut etre dans un boucle ou avec un sub bardée de select case

enffin il est vrai que l'on comprend difficilement le but (tout le monde ne bosse pas a telecom :aie::mouarf::mouarf::mouarf:

au plaisir

Les userforms doivent être quelques peu différents je n'ai pas eu le temps de les modifier.

Code:

1
2
3
4
5
6
7
8
9
UserForm1.TextBox1.Value = Sheets("Feuil1").Range("B2").Value
UserForm1.TextBox2.Value = Sheets("Feuil1").Range("B3").Value
UserForm1.TextBox3.Value = Sheets("Feuil1").Range("B4").Value
UserForm1.TextBox4.Value = Sheets("Feuil1").Range("B5").Value
UserForm1.TextBox5.Value = Sheets("Feuil1").Range("B6").Value
UserForm1.TextBox6.Value = Sheets("Feuil1").Range("B7").Value
UserForm1.TextBox7.Value = Sheets("Feuil1").Range("B8").Value
UserForm1.TextBox8.Value = Sheets("Feuil1").Range("B9").Value
UserForm1.TextBox9.Value = Sheets("Feuil1").Range("B10").Value

Avez vous une façon d'écrire ce code en un code plus simple et plus court ?

merci

Code:

1
2
3
4
5
6
7
8
9
UserForm1.TextBox1.Value = Sheets("Feuil1").Range("B2").Value
UserForm1.TextBox2.Value = Sheets("Feuil1").Range("B3").Value
UserForm1.TextBox3.Value = Sheets("Feuil1").Range("B4").Value
UserForm1.TextBox4.Value = Sheets("Feuil1").Range("B5").Value
UserForm1.TextBox5.Value = Sheets("Feuil1").Range("B6").Value
UserForm1.TextBox6.Value = Sheets("Feuil1").Range("B7").Value
UserForm1.TextBox7.Value = Sheets("Feuil1").Range("B8").Value
UserForm1.TextBox8.Value = Sheets("Feuil1").Range("B9").Value
UserForm1.TextBox9.Value = Sheets("Feuil1").Range("B10").Value

oui ya plus simple

Code:

1
2
3
4
 
for i = 1 to 9
UserForm1.control("TextBox"&i).Value = Sheets("Feuil1").Range("B"&i+1).Value
next

au plaisir