Vider un formulaire pour nouvelles saisies

Version imprimable

Bonjour,

je me permets de vous solliciter. J'arrive à la fin de ma création d'une base de données de gestion de stock et je n'arrive pas a trouver la façon dont je pourrais faire en sorte que lorsque je valide mon entrée en stock par le biais de mon formulaire (userform) celui_ci se vide afin que je puisse faire une nouvelle entrée sans quittez le formulaire.

voici ma macro pour l'entrée en stock
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 Private Sub valide_entree_Click() 'recopie les données de Acceuil vers stock ' Dim derligne As Integer derligne = Sheets("Stock").Range("A10000").End(xlUp).Row + 1 Sheets("Stock").Cells(derligne, 1) = Sheets("Accueil").Range("E27") 'produit Sheets("Stock").Cells(derligne, 2) = Sheets("Accueil").Range("E25") 'catégorie Sheets("Stock").Cells(derligne, 3) = Sheets("Accueil").Range("E29") 'qté Sheets("Stock").Cells(derligne, 4) = Sheets("Accueil").Range("k29") 'colisage Sheets("Stock").Cells(derligne, 5) = Sheets("Accueil").Range("k23") 'date entrée Sheets("Stock").Cells(derligne, 6) = Sheets("Accueil").Range("E31") 'DLC Sheets("Stock").Cells(derligne, 7) = Sheets("Accueil").Range("k25") 'stockage Sheets("Stock").Cells(derligne, 8) = Sheets("Accueil").Range("k31") 'Prix Sheets("Stock").Cells(derligne, 9) = Sheets("Accueil").Range("E23") 'personnel 'selectionne le bouton fermer Me.fermer.SetFocus End Sub
merci a ceux qui pourront m'aider.

15/04/2019, 11h28
unparia

Bonjour
Je ne vois rien dans ce code qui utilise ou modifie des objets de ton userform ...
15/04/2019, 11h31
MarcelG

Bonjour,

Tout d'abord, tu peux rendre ton code plus lisible en le balisant par le bornes #.

Je ne vois la gestion d'aucun contrôle dans celui-ci.

Une piste,

Après action
- Valeurs de Textbox à ""
- Listindex de Combobox à -1
15/04/2019, 11h40
laetitia3921

1 pièce(s) jointe(s)

les infos

Déja merci d'avoir lu mon post

je suis novice en VBA je me suis"dépatouillée" avec le forum en lisant des discussions.

je vous joins mon fichier
15/04/2019, 11h47
MarcelG

Salut Laetitia,

Citation:

je vous joins mon fichier

Pas tout de suite.

As-tu essayé, éventuellement suite à recherches, d'adapter ton code en fonction des méthodes que je t'ai reportées?
Dans l'affirmative, pourrais-tu retourner le code lié au formulaire.
18/04/2019, 08h37
laetitia3921

merci

Bonjour
désolée pour mon temps de réponse mais je n'ai pâs pu retravailler sur le projet avant.

j'ai bien mis en place votre suggestion et ça marche.

Merci beaucoup

1 pièce(s) jointe(s)

Bonjour,

Procédure qui raz tous les contrôles d'un formulaire.
Dans l'exemple joint, si on clique sur le bouton fiche vierge, tous les contrôles sont remis à 0.

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
Sub raz()
  Dim c As Control
  For Each c In Me.Controls
    Select Case TypeName(c)
       Case "TextBox"
          c.Value = ""
       Case "CheckBox"
          c.Value = False
       Case "ComboBox"
          c.ListIndex = -1
       Case "Frame"
          For Each b In c.Controls
            If TypeName(b) = "OptionButton" Then b.Value = False
          Next b
       Case "ListBox"
          nom_control = c.Name
          For j = 0 To Me(nom_control).ListCount - 1: Me(nom_control).Selected(j) = False: Next j
     End Select
   Next c
End Sub

Boisgontier