Discussion :

[Allentwitwi]

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

[Invité]

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

Code Formulaire Recherche_RD :

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

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 Bouton de recherche :

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

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

[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

[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

[Invité]

le formulaire est le même juste une fonctionnalité en plus!

[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

[Invité]

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 :

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

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

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