Incrémentation de stock Suite

Version imprimable

18/12/2013, 13h32
Allentwitwi

1 pièce(s) jointe(s)

Incrémentation de stock Suite

Bonjour,

Pour ceux qui auront vu mon dernier Post celui-ci n'est pas bien différent.

Cette fois ci je voudrais qu'a la place de garder les fiches à 0 je voudrais remplacer 0 par un mot

je veux faire comme manipulation

Dans Menu ---> Stock Mini ---> Commandé ----> faire défiler UNIQUEMENT les fiches avec Com de noté dans quantité de stock sans avoir à faire défiler mes autres fiches

Merci d'avoir de toutes l'aides que vous pouriez m'apporter :)

Un exemple du même genre mais avec comme quantité de stock 0 est consultable dans le Userform nommé Fiche de stock mini (Merci rdurupt pour cela ) je sais que normalement il ne faut pas envoyer le zip en premier message mais je suis vraiment pas doué avec les mots et mes codes perso sont brouillon ... vrai travaille d'amateur ^^'

attention, dans ton exemple, tu as mis Con ce qui l'est un peut :cfou:

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
Private Sub SpinButton1_Change()
Static SaveI As Long
Dim IsIncrement As Boolean
 If SaveI < SpinButton1.Value Then IsIncrement = True
    SaveI = SpinButton1.Value
    i = SpinButton1.Value
    If i < 2 Then
        i = 2
        SpinButton1.Value = i
    End If
 
    If UCase(Feuil1.Cells(i, 5)) <> "COM" Then
        If IsIncrement = True Then
        SpinButton1.Max = SpinButton1.Value + 1
            SpinButton1.Value = SpinButton1.Value + 1
        Else
            SpinButton1.Value = SpinButton1.Value - 1
        End If
        Exit Sub
    End If
    If Feuil1.Cells(i, 5) = "Com" Then 'Si Quantité de stock = Com
        RefProd = Feuil1.Cells(i, 1) 'Ref Prod = cellule 1
        TextBox_Repère = Feuil1.Cells(i, 2) 'Repère = cellule 2
        TextBox_Référence = Feuil1.Cells(i, 3) 'Référence = cellule 3
        TextBox_Description = Feuil1.Cells(i, 4) 'Description = cellule 4
        TextBox_Quantité_Stockage = Feuil1.Cells(i, 5) 'Quantité de stock = cellule 5
        TextBox_Emplacement = Feuil1.Cells(i, 6) 'Emplacement = cellule 6
        TextBox_Quantité_Mini = Feuil1.Cells(i, 7) 'Quantité mini = cellule 7
        TextBox_Machine = Feuil1.Cells(i, 12) 'Machine = cellule 12
        'Cadre Type = Mécanique ou Hydraulique ou Pneumatique ou Electrique
                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 'Si RefProd = 0 alors
        TextBox_Repère = "" 'Pas de repère
        TextBox_Référence = "" 'Pas de référence
        TextBox_Description = "" 'Pas de description
        TextBox_Quantité_Stockage = "" 'Pas de stock
        TextBox_Emplacement = "" 'Pas d'emplacement
        TextBox_Quantité_Mini = "" 'Pas de quantité mini
        TextBox_Machine = "" 'Pas de machine
 
        For Each Ctrl In F_Type.Controls
            Ctrl.Object.Value = True
        Next Ctrl
        'Quantité de stock en gris
        TextBox_Quantité_Stockage.Font.Bold = False
        TextBox_Quantité_Stockage.BackColor = &H8000000F
        Exit Sub
    End If
End Sub

18/12/2013, 16h05
Allentwitwi

Alors je ne pense pas que ce soit con ^^ Con c'est un raccourci pour consultation :p je regarde sa et je te dis mais c'est très sympa de m'aider :D

Il ne me trouve qu'une seule fiche :( Si j'ai plusieurs quantité de stock "COM" in ne m'en affiche qu'une seule et défiler ne change rien

?? test!

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
Private Sub SpinButton1_Change()
Static SaveI As Long
Dim IsIncrement As Boolean
 If SaveI < SpinButton1.Value Then IsIncrement = True
    SaveI = SpinButton1.Value
    i = SpinButton1.Value
    If i < 2 Then
        i = 2
        SpinButton1.Value = i
    End If
 
    If UCase(Trim("" & Feuil1.Cells(i, 5))) <> "COM" Then
        If IsIncrement = True Then
        SpinButton1.Max = SpinButton1.Value + 1
            SpinButton1.Value = SpinButton1.Value + 1
        Else
            SpinButton1.Value = SpinButton1.Value - 1
        End If
        DoEvents
        Exit Sub
    End If
    If UCase(Trim("" & Feuil1.Cells(i, 5))) = "COM" Then  'Si Quantité de stock = Com
        RefProd = Feuil1.Cells(i, 1) 'Ref Prod = cellule 1
        TextBox_Repère = Feuil1.Cells(i, 2) 'Repère = cellule 2
        TextBox_Référence = Feuil1.Cells(i, 3) 'Référence = cellule 3
        TextBox_Description = Feuil1.Cells(i, 4) 'Description = cellule 4
        TextBox_Quantité_Stockage = Feuil1.Cells(i, 5) 'Quantité de stock = cellule 5
        TextBox_Emplacement = Feuil1.Cells(i, 6) 'Emplacement = cellule 6
        TextBox_Quantité_Mini = Feuil1.Cells(i, 7) 'Quantité mini = cellule 7
        TextBox_Machine = Feuil1.Cells(i, 12) 'Machine = cellule 12
        'Cadre Type = Mécanique ou Hydraulique ou Pneumatique ou Electrique
                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 'Si RefProd = 0 alors
        TextBox_Repère = "" 'Pas de repère
        TextBox_Référence = "" 'Pas de référence
        TextBox_Description = "" 'Pas de description
        TextBox_Quantité_Stockage = "" 'Pas de stock
        TextBox_Emplacement = "" 'Pas d'emplacement
        TextBox_Quantité_Mini = "" 'Pas de quantité mini
        TextBox_Machine = "" 'Pas de machine
 
        For Each Ctrl In F_Type.Controls
            Ctrl.Object.Value = True
        Next Ctrl
        'Quantité de stock en gris
        TextBox_Quantité_Stockage.Font.Bold = False
        TextBox_Quantité_Stockage.BackColor = &H8000000F
        Exit Sub
    End If
End Sub

19/12/2013, 09h34
Allentwitwi

Bonjour ! désoler de te dérangeais à nouveau ,

Hélas toujours pas ! merci de tous tes efforts mes lorsque je recopie le code il m'affiche page vierge le défilement permet de voir qu'une seule fiche !
Si tu as autre chose a me proposer je suis preneur :)

Bonjour,

comme dans la propriété du contrôle tu as mis Max=100 je devais le gérer!
ce qui réduisait à zéro le possibilités de défilement du curseur d'enregistrement.

Code:

SpinButton1.Max = SpinButton1.Value + 1

Code:

If SpinButton1.Max < SpinButton1.Value + 1 Then SpinButton1.Max = SpinButton1.Value + 1

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
Private Sub SpinButton1_Change()
Static SaveI As Long
Dim IsIncrement As Boolean
 If SaveI < SpinButton1.Value Then IsIncrement = True
    SaveI = SpinButton1.Value
    i = SpinButton1.Value
    If i < 2 Then
        i = 2
        SpinButton1.Value = i
    End If
 If UCase(Trim("" & Feuil1.Cells(i, 5))) = "" Then
    SpinButton1.Value = SpinButton1.Value - 1
 End If
    If UCase(Trim("" & Feuil1.Cells(i, 5))) <> "COM" Then
        If IsIncrement = True Then
        If SpinButton1.Max < SpinButton1.Value + 1 Then SpinButton1.Max = SpinButton1.Value + 1
            SpinButton1.Value = SpinButton1.Value + 1
        Else
            SpinButton1.Value = SpinButton1.Value - 1
        End If
        DoEvents
        Exit Sub
    End If
    If UCase(Trim("" & Feuil1.Cells(i, 5))) = "COM" Then  'Si Quantité de stock = Com
        RefProd = Feuil1.Cells(i, 1) 'Ref Prod = cellule 1
        TextBox_Repère = Feuil1.Cells(i, 2) 'Repère = cellule 2
        TextBox_Référence = Feuil1.Cells(i, 3) 'Référence = cellule 3
        TextBox_Description = Feuil1.Cells(i, 4) 'Description = cellule 4
        TextBox_Quantité_Stockage = Feuil1.Cells(i, 5) 'Quantité de stock = cellule 5
        TextBox_Emplacement = Feuil1.Cells(i, 6) 'Emplacement = cellule 6
        TextBox_Quantité_Mini = Feuil1.Cells(i, 7) 'Quantité mini = cellule 7
        TextBox_Machine = Feuil1.Cells(i, 12) 'Machine = cellule 12
        'Cadre Type = Mécanique ou Hydraulique ou Pneumatique ou Electrique
                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 'Si RefProd = 0 alors
        TextBox_Repère = "" 'Pas de repère
        TextBox_Référence = "" 'Pas de référence
        TextBox_Description = "" 'Pas de description
        TextBox_Quantité_Stockage = "" 'Pas de stock
        TextBox_Emplacement = "" 'Pas d'emplacement
        TextBox_Quantité_Mini = "" 'Pas de quantité mini
        TextBox_Machine = "" 'Pas de machine
 
        For Each Ctrl In F_Type.Controls
            Ctrl.Object.Value = True
        Next Ctrl
        'Quantité de stock en gris
        TextBox_Quantité_Stockage.Font.Bold = False
        TextBox_Quantité_Stockage.BackColor = &H8000000F
        Exit Sub
    End If
End Sub

19/12/2013, 14h14
Allentwitwi

Fais ce qui te parait le moins compliqué si le résultat est le même dans ce cas la
Par contre maintenant sa plante je lance et il reste en exécution en cours pendant 1 minutes et plante
Rectification ton programme est parfait merci beaucoup pour tout tu as été génial !