Discussion :

[laetitia3921]

Bonjour,
je viens vers vous pour un probleme que je n'arrive pas a resoudre:
j'ai créé une base de données de gestion de stock.
J'ai bien les mouvements d'entrée sortie qui s'effectuent mais je souhaiterais que toutes les sorties s'inscrivent également dans une feuille "sortie" a la validation de mon formulaire sortie et la je seche.

merci d'avance

[Menhir]

J'ai bien les mouvements d'entrée sortie qui s'effectuent mais je souhaiterais que toutes les sorties s'inscrivent également dans une feuille "sortie" a la validation de mon formulaire sortie et la je seche.

Il faut utiliser la même méthode que celle des mouvements mais appliquée à la feuille "sortie".

Bin oui... une demande aussi imprécise ne peut pas conduire à une réponse précise...

[laetitia3921]

oui je sais bien mais la VBA c'est pas encore ma tasse de thé ..... a part mettre mon fichier je ne vois pas ce que je peux faire ......
merci d'avance si vous souhaitez que je le mette pour que vous y jetiez un oeil

[Menhir]

a part mettre mon fichier je ne vois pas ce que je peux faire ......

Tu peux aussi copier le code ou faire des copies d'écran.
Tu sais comment faire... https://www.developpez.net/forums/d1...elles-saisies/

[laetitia3921]

merci
voici première copie ecran la ou sont integrées mes saisies dans mes userform et la feuille dans laquelle je souhaite integrer des données
et voici le code que j'utilise à la saisie de moin userform

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
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
 
Private Sub UserForm_Activate()
Me.date_sortie.Value = Format(Now, "dd/mm/yy")
End Sub
Private Sub personnel_Change()
'copie la valeur dans E38
Sheets("Accueil").Range("E38").Value = Form_sortie.Personnel
End Sub
Private Sub date_sortie_Change()
'copie la valeur dans k37
Sheets("Accueil").Range("k37").Value = Form_sortie.date_sortie
End Sub
Private Sub date_sortie_AfterUpdate()
'
'vérifie la date de sortie saisie
If Sheets("Accueil").Range("M38") <> "OK" Then
MsgBox "date incorrecte"
Me.date_sortie = Format(Now, "dd/mm/yyyy")
End If
End Sub
Private Sub Produit_Change()
'copie la valeur dans E40
Sheets("Accueil").Range("E40").Value = Form_sortie.Produit
End Sub
Private Sub DLC_Change()
'copie la valeur dans E41
Sheets("Accueil").Range("E41").Value = Form_sortie.DLC
End Sub
Private Sub DLC_AfterUpdate()
'vérifie la date DLC saisie
'
If Sheets("Accueil").Range("G42") <> "OK" Then
MsgBox "date incorrecte"
Me.DLC = "01/01/2001"
End If
'copie la valeur dans k42
Me.en_stock = Sheets("Accueil").Range("K42")
End Sub
Private Sub Qté_sortie_Change()
'copie la valeur dans K43
Sheets("Accueil").Range("K43").Value = Form_sortie.Qté_sortie
End Sub
 
Private Sub Qté_sortie_AfterUpdate()
'vérifie que la qté sortie ne soit pas > au stock
If Sheets("Accueil").Range("m42") <> "OK" Then
    Me.Qté_sortie = ""
    Sheets("Accueil").Range("K43") = 0
    End If
End Sub
 
Sub Sortie_produit()
Load Form_sortie
Form_sortie.Show
Unload Form_sortie
End Sub
 
Private Sub valider_Click()
'
'copie la qté à sortir sur la page Recherche
ligne = Sheets("Accueil").Range("E44").Value
'
'copie la nouvelle qté dans stock
Sheets("Stock").Cells(ligne, 3) = Sheets("Accueil").Range("m44").Value
 
Private Sub valide_entree_Click()
'recopie les données de Acceuil vers stock
'
 
'selectionne le bouton fermer
Me.Fermer.SetFocus
End Sub

[Menhir]

En supposant que le renseignement du mouvement soit :

Code :

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

1
2
ligne = Sheets("Accueil").Range("E44").Value
Sheets("Stock").Cells(ligne, 3) = Sheets("Accueil").Range("m44").Value

Pour l'inscrire dans la feuille "sortie", il faut ajouter :

Code :

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

Sheets("Sortie").Cells(ligne, 3) = Sheets("Accueil").Range("m44").Value

[laetitia3921]

Merci bcp je vais tester je vous dis le résultat
merci d'avoir pris le temps
bonne soirée

[laetitia3921]

Parfait ça fonctionne parfaitement
merci encore