Incrémentation de stock Suite

**Allentwitwi** · 18/12/2013, 13h32

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 ^^'

Invité · 18/12/2013, 16h00

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

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

**Allentwitwi** · 18/12/2013, 16h05

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

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

Invité · 18/12/2013, 17h17

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

**Allentwitwi** · 19/12/2013, 09h34

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

Invité · 19/12/2013, 13h58

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 :

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

SpinButton1.Max = SpinButton1.Value + 1

Code :

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

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

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

Incrémentation de stock Suite [XL-2007]

Macros et VBA Excel

Vue hybride

Discussions similaires

Partager

Partager