Incrémentation de stock

Version imprimable

18/12/2013, 08h58
Allentwitwi

1 pièce(s) jointe(s)

Incrémentation de stock

Bonjour,

Je créé pour mon projet de stage un gestionnaires de stock qui fonctionne bien à 2/3 détails pret,
J'ai un bouton Stock Mini qui me permet soit :
De voir mes fiches
De voir les fiches en consultation
De voir les fiches commandé
Lorsque je regarde mes fiches en faisant défiler, mon programme fais l'incrémentation de toutes mes fiches même celles dont le stock est supérieur au stock mini

Pour exemple et pour être plus claire
Ma 100ème fiche a un stock mini de 2 et un stock réél de 1 et les autres ont toutes un stock réél supérieur au stock mini je dois alors cliquer 100 fois pour retrouver ma fiche en stock réél inférieur au stock mini

Quelqu'un peut-il m'aider ? merci d'avance je cherche depuis un moment :cry:
Disponible pour la moindre petite question ou explication car j'ai du mal a me faire comprendre :s

bonjour,

pourquoi ne rajoutes tu pas un bouton rechercher qui t'envoies sur un formulaire?

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
Public Function Rechercher(Quoi As String) As Long
Select Case Quoi
   Case "Stock"
    'tu resiègne ta liste
    Case "Forunisseur"
    Case "Facture"
End Select
Me.Show vbModal
Rechercher = Num_Linge
End Function
Private Sub Button_Valider_Click()
     me.Hide
End Sub

Code:

1
2
3
4
Private Sub Button_Recherche_Click()
lingneStock = Recherche_RD.Rechercher("Stock")
unload Recherche_RD
End Sub

18/12/2013, 09h48
Allentwitwi

Bonjour,

Je veux vraiment que la forme sois la même car c'est très pratique pour mon utilisation il faudrais juste que l'incrémentation se fassent uniquement avec les stock réél inférieur au stock mini

PS: je répond au message avant de regarder votre solution mais je vais quand même regarder :)
18/12/2013, 09h51
Allentwitwi

Arreter moi si je me trompe mais votre solution ce fais par rapport au quel de mes boutons ? Fournisseurs ? car mon problème ne se trouve pas la mais dans le 2ème boutons du menu Stock mini puis Voir fiche(s) ensuite faites défiler avec les fléches plusieurs fois on s'aperçoit vite du problème
18/12/2013, 09h55
Invité

1 pièce(s) jointe(s)

le formulaire est le même juste une fonctionnalité en plus!
18/12/2013, 10h10
Allentwitwi

Oui oui sa j'ai compris mais on parle pas du même bouton ! :)

Ou c'est moi qui comprend pas dans ce cas je m'en excuse sa arrive souvent --'

Dans tous les cas sa ne marche pas pas ^^' je dois mal faire quelque chose ou la version d'excel n'est peut être pas la même je sais pas

en effet, je pensais que tu voulais te placer sur un enregistrement plus rapidement sans avoir à clicker 100 fois.

hors tu veux si là j'ai bien compris passer les lignes ou le stock est plus grand que le stock min?

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 SpinButton1_Change()
    'Bouton de défilement (Voir UserForm précédent pour détails)
Reprise:
 
    i = SpinButton1.Value
    If i < 2 Then
'....
if Feuil1.Cells(i, 7)>Feuil1.Cells(i, 10) then
   if Increment=true then
      i=i+1
   else
     i=i-1
  end if
SpinButton1.Value = i
goto Reprise
end if
 For Each Ctrl In F_Type.Controls
            If Feuil1.Cells(i, 13) = Ctrl.Object.Caption Then
                Ctrl.Object.Value = True
                Exit For
            End If
        Next Ctrl

ça ces une idée reste à définir comment je sais si j'incrémente ou je dé incrémente je cherche en sauvegardant sans doute la dernière valeur de la barre de défilement.

Code:

1
2
3
4
5
6
7
8
Private Sub SpinButton1_Change()
Static SaveI As Long
Dim Increment As Boolean
    'Bouton de défilement (Voir UserForm précédent pour détails)
If SpinButton1.Value > SaveI Then Increment = True
     SaveI =SpinButton1.Value
Reprise:
     i = SpinButton1.Value

18/12/2013, 11h38
Allentwitwi

Erreur avec GoTo Reprise étiquette non défini as-tu une solution ?

Sinon tu as compris,
Mon spinButton fonctionne avec comme valeur i = i + 1
Et je voudrais qu'il fonctionne en i = Feuil1(i, 5) < Feuil1(i, 7)
Grosso modo c'est sa en français sa donnerais :

Changement de fiche tous les (Stock réél < Stock mini) en éliminant les autres fiches sans les supprimer Juste sauter les lignes pour faire en ligne direct est-ce clair ? :s 1 click = 1 fiche plutot que x click = 1 fiche

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
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
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
Private Sub SpinButton1_Change()
Static SaveI As Long
Dim Increment As Boolean
    'Bouton de défilement (Voir UserForm précédent pour détails)
 
    'Bouton de défilement (Voir UserForm précédent pour détails)
If SpinButton1.Value > SaveI Then Increment = True
     SaveI = SpinButton1.Value
 
     i = SpinButton1.Value
 
    If i < 2 Then
        i = 2
        SpinButton1.Value = i
    End If
 
    If i > 1 Then
        RefProd = Feuil1.Cells(i, 1)
        TextBox_Repère = Feuil1.Cells(i, 2)
        TextBox_Référence = Feuil1.Cells(i, 3)
        TextBox_Description = Feuil1.Cells(i, 4)
        TextBox_Quantité_Stockage = Feuil1.Cells(i, 5)
        ComboBox_Emplacement = Feuil1.Cells(i, 6)
        TextBox_Quantité_Mini = Feuil1.Cells(i, 7)
        TextBox_Commander = Feuil1.Cells(i, 8)
        TextBox_Prix_Achat = Feuil1.Cells(i, 10)
        RefFrn = Feuil1.Cells(i, 9)
        TextBox_Délai = Feuil1.Cells(i, 11)
        ComboBox_Machine = Feuil1.Cells(i, 12)
        If Feuil1.Cells(i, 7) > Feuil1.Cells(i, 5) Then
            If Increment = True Then
                i = i + 1
            Else
                i = i - 1
            End If
            SpinButton1.Value = i
            Exit Sub
        End If
        For Each Ctrl In F_Type.Controls
            If Feuil1.Cells(i, 13) = Ctrl.Object.Caption Then
                Ctrl.Object.Value = True
                Exit For
            End If
        Next Ctrl
    End If
 
    If RefProd = 0 Then
        TextBox_Repère = ""
        TextBox_Référence = ""
        TextBox_Description = ""
        TextBox_Quantité_Stockage = ""
        ComboBox_Emplacement = ""
        TextBox_Quantité_Mini = ""
        TextBox_Commander = ""
        TextBox_Prix_Achat = ""
        TextBox_Nom_Fournisseur = ""
        TextBox_Numéro_Fournisseur = ""
        RefFrn = 0
        TextBox_Délai = ""
        ComboBox_Machine = ""
        If Feuil1.Cells(i, 7) > Feuil1.Cells(i, 5) Then
            If Increment = True Then
                i = i + 1
            Else
                i = i - 1
            End If
            SpinButton1.Value = i
            Exit Sub
    End If
        For Each Ctrl In F_Type.Controls
            Ctrl.Object.Value = False
        Next Ctrl
 
        TextBox_Quantité_Stockage.Font.Bold = False
        TextBox_Quantité_Stockage.BackColor = &H8000000F
        Exit Sub
    End If
 
    'Affiche si stock égale zéro
    If TextBox_Quantité_Stockage = 0 Then
        TextBox_Quantité_Stockage.Font.Bold = True
        TextBox_Quantité_Stockage.BackColor = vbRed
    Else
        TextBox_Quantité_Stockage.Font.Bold = False
        TextBox_Quantité_Stockage.BackColor = &H8000000F
    End If
 
    'Affiche le nom du fournisseur
        j = 2
    While Feuil6.Cells(j, 1) <> ""
        If Feuil6.Cells(j, 1) = RefFrn Then
            TextBox_Nom_Fournisseur = Feuil6.Cells(j, 2)
        End If
        j = j + 1
   Wend
 
    Button_Valider.Visible = False
    Button_Créer.Visible = True
 
End Sub

18/12/2013, 12h03
Allentwitwi

Merci beaucoup c'est presque sa !!!!

J'ai juste un problème pour la première fiche si elle n'est pas = à 0 sa la marque tout de même :/ je regarde sa et je te redemande si j'ai besoin mais merci beaucoup en attendant de m'avoir aider j'adore ! :D

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
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
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
Private Sub SpinButton1_Change()
Static SaveI As Long
Dim Increment As Boolean
    'Bouton de défilement (Voir UserForm précédent pour détails)
 
    'Bouton de défilement (Voir UserForm précédent pour détails)
If SpinButton1.Value > SaveI Then Increment = True
     SaveI = SpinButton1.Value
 
     i = SpinButton1.Value
 
    If i < 2 Then
        i = 2
        SpinButton1.Value = i
    End If
 
    If i > 1 Then
        RefProd = Feuil1.Cells(i, 1)
        TextBox_Repère = Feuil1.Cells(i, 2)
        TextBox_Référence = Feuil1.Cells(i, 3)
        TextBox_Description = Feuil1.Cells(i, 4)
        TextBox_Quantité_Stockage = Feuil1.Cells(i, 5)
        ComboBox_Emplacement = Feuil1.Cells(i, 6)
        TextBox_Quantité_Mini = Feuil1.Cells(i, 7)
        TextBox_Commander = Feuil1.Cells(i, 8)
        TextBox_Prix_Achat = Feuil1.Cells(i, 10)
        RefFrn = Feuil1.Cells(i, 9)
        TextBox_Délai = Feuil1.Cells(i, 11)
        ComboBox_Machine = Feuil1.Cells(i, 12)
 
        If Feuil1.Cells(i, 5) >= Feuil1.Cells(i, 7) Then
            If Increment = True Then
                i = i + 1
            Else
                i = i - 1
            End If
            SpinButton1.Value = i
            Exit Sub
        End If
        For Each Ctrl In F_Type.Controls
            If Feuil1.Cells(i, 13) = Ctrl.Object.Caption Then
                Ctrl.Object.Value = True
                Exit For
            End If
        Next Ctrl
    End If
 
    If RefProd = 0 Then
        TextBox_Repère = ""
        TextBox_Référence = ""
        TextBox_Description = ""
        TextBox_Quantité_Stockage = ""
        ComboBox_Emplacement = ""
        TextBox_Quantité_Mini = ""
        TextBox_Commander = ""
        TextBox_Prix_Achat = ""
        TextBox_Nom_Fournisseur = ""
        TextBox_Numéro_Fournisseur = ""
        RefFrn = 0
        TextBox_Délai = ""
        ComboBox_Machine = ""
        If Feuil1.Cells(i, 7) > Feuil1.Cells(i, 5) Then
            If Increment = True Then
                i = i + 1
            Else
                i = i - 1
            End If
            SpinButton1.Value = i
            Exit Sub
    End If
        For Each Ctrl In F_Type.Controls
            Ctrl.Object.Value = False
        Next Ctrl
 
        TextBox_Quantité_Stockage.Font.Bold = False
        TextBox_Quantité_Stockage.BackColor = &H8000000F
        Exit Sub
    End If
 
    'Affiche si stock égale zéro
    If TextBox_Quantité_Stockage = 0 Then
        TextBox_Quantité_Stockage.Font.Bold = True
        TextBox_Quantité_Stockage.BackColor = vbRed
    Else
        TextBox_Quantité_Stockage.Font.Bold = False
        TextBox_Quantité_Stockage.BackColor = &H8000000F
    End If
 
    'Affiche le nom du fournisseur
        j = 2
    While Feuil6.Cells(j, 1) <> ""
        If Feuil6.Cells(j, 1) = RefFrn Then
            TextBox_Nom_Fournisseur = Feuil6.Cells(j, 2)
        End If
        j = j + 1
   Wend
 
    Button_Valider.Visible = False
    Button_Créer.Visible = True
 
End Sub

18/12/2013, 12h45
Allentwitwi

Finalement la solution n'étais pas si compliquer ^^'

Merci beaucoup pour ton aide et si jamais j'ai encore besoin j'espere que tu m'aideras à nouveau :p

à Bientot et encore merci :)