Gestion d'un stock et userform

Version imprimable

23/10/2019, 15h09
Guizmonster

2 pièce(s) jointe(s)

Gestion d'un stock et userform

Bonjour,

Je suis en train de me créer un petit fichier pour "gérer" un petit stock assez simplement. Je souhaite utiliser un userform, objet que je ne connais pas du tout.

J'ai créé un exemple du fichier avec le userform souhaité.

Pièce jointe 512642

Dans un premier temps je voudrais y intégrer 3 listes déroulantes, à savoir le matériel, le type de matériel et l'emplacement de stockage.
Par exemple, si on sélectionne le type (auto), je voudrais que la liste matériel n'affiche que le type auto. Idem si on sélectionne le stockage (1 par exemple).
J'ai regardé, et je vois qu’apparemment il faut utiliser des combobox mais ca reste flou.

Ensuite je voudrais sélectionner si on entre du matériel ou si on en sort ainsi que la quantité et le valider par un des 2 boutons. Le premier permettrait de valider le choix puis de passer sur le suivant alors que le second validerait et fermerait le userform.

Enfin je voudrais savoir s'il est possible de lier 2 lignes de stock ensemble. J'ai surligné les 2 dernières lignes. J'aurais aimé savoir s'il était possible quand on "sort" 1 élément du stock en jaune si on peut créditer automatiquement de "1" le stock en bleu.

Merci d'avance pour les explications.
24/10/2019, 09h53
Thautheme

Bonjour Guizmonster, bonjour le forum,

Pour moi ton UserForm devrait comporter une ComboBox pour les Références. Si tu choisis cardan comme matérial et auto comme type, comment pourras-tu dire que c'est la référence 5220 que tu veux et pas la 222 ?
Avec ton exemple très simplifié difficile d'envisager une solution pour les lignes bleues et jaunes... Combien de couples il y aura ? comment tu comptes relier les uns et les autres ?
24/10/2019, 11h37
Guizmonster

Bonjour Thautheme,

Justement je veux que l'opérateur ait le choix de la référence s'il sélectionne auto et cardan.
Par contre s'il commence par la liste en indiquant la référence, il faudrait que ca sorte sur les autres listes auto et cardan. Et si on part du type auto, faudrait que dans la première liste, j'ai accès à cardan, roulement, bougie y... et que si après je sélectionne un objet dedans, j'ai la ou les références correspondantes. Je ne sais pas si je suis clair.

J'ai parcouru la FAQ sur excel et j'ai lu pas mal de choses sur les combobox du coup. Mais je n'ai réussi qu'à faire un "effet entonnoir" (via des alim combobox si je ne dis pas de bêtise), c'est à dire qu'à partir du matériel, j'ai plus que le choix du type, et dans ce type le choix de la référence.

Pour les couples, il y a un matériel A.N qui a un état neuf. S'il sort du stock, il devient A.U (état usé) et rentre dans le stock A.U. Je pourrais le décliné avec B.N qui devient B.U etc.

C'est parfois difficile à expliquer quand on n'est pas informaticien.
29/10/2019, 08h53
Thautheme

1 pièce(s) jointe(s)

Bonjour Guizmonster, bonjour le forum,

En pièce jointe une proposition avec le code full comment... Deux UserForms. Une pour rechercher une pour agir. Les variables publiques sont déclarées dans le modules [Module 1].
29/10/2019, 09h25
Menhir

Citation:

Envoyé par Guizmonster

Je souhaite utiliser un userform, objet que je ne connais pas du tout.

Pour éviter que ce sujet ne devienne un roman fleuve, je pense que tu devrais commencer par là : https://excel.developpez.com/cours/?page=prog#userform
29/10/2019, 10h02
Guizmonster

Citation:

Envoyé par Menhir

Pour éviter que ce sujet ne devienne un roman fleuve, je pense que tu devrais commencer par là : https://excel.developpez.com/cours/?page=prog#userform

Bonjour Menhir,

Quand je dis ça, c'est ce que comme ne je suis pas dans l'informatique, je pars avec des connaissances glanées ici et là. Avant d'ouvrir le sujet, j'ai consulté la FAQ, regarder des tutos et lu d'autres sujets. Là je vais essayer d'assimiler les infos postées par Thauthème et tenter de les reproduire. J'étais arrivé à faire une fonction recherche avec listbox. Il me manquait la fonction de sélectionner cette liste.

Merci Thauthème !
29/10/2019, 10h06
Guizmonster

Citation:

Envoyé par Thautheme

Bonjour Guizmonster, bonjour le forum,

En pièce jointe une proposition avec le code full comment... Deux UserForms. Une pour rechercher une pour agir. Les variables publiques sont déclarées dans le modules [Module 1].

Merci pour le full comment. Ca va me permettre de comprendre ce qui ne va pas avec le stock. En effet, même si le stock est supérieur au stock mini, il est impossible de sortir quoi que ce soit.

Bonjour,

Encore merci, j'ai adapté certaines choses et ça donne un super résultat.

Je reviens sur la recherche "inclus dans" qui est super mais qui ne prend pas en compte les majuscules. Pour l'instant tout mon inventaire est écrit en minuscule.

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
Me.ListBox1.Clear 
If Me.TextBox1.Value = "" Then Exit Sub 
Select Case OP
    Case "ID" 
        For I = 2 To NL 
            For J = 1 To 9
                If InStr(1, TV(I, J), Me.TextBox1.Value) <> 0 Then 
                    With Me.ListBox1 
                        .AddItem 
                        .Column(0, .ListCount - 1) = I 
                        For L = 1 To 8 
                            .Column(L, .ListCount - 1) = TV(I, L) 
                        Next L 
                    End With 
                    Exit For 
                End If 
            Next J 
        Next I

Y-a-t-il la possibilité d'inclure un UCase ou une autre fonction qui permettrait de s'affranchir du distinguo maj/min dans la recherche?

Cdlt

14/11/2019, 13h49
Thautheme

Bonjour le fil, bonjour le forum,

Pas sûr d'avoir bien compris mais peut-être tout simplement avec :

Code:

Select case Ucase(OP)
14/11/2019, 14h28
Guizmonster

Salut Thautheme,

Dans le userform de recherche, quand tu sélectionnes "inclus dans", la recherche ne va fonctionner que si l'on respecte la casse majuscule minuscule. Tu trouveras "cardan" en tapant "cardan" mais pas en tapant "Cardan". A contrario, avec l'option "Commençant par", tu trouveras "cardan" que tu tapes "cardan" ou "Cardan".
Du coup j'aurais aimé savoir si pour l'option "inclus dans" on pouvait s'affranchir de ce problème de Maj/min? J'ai recherché et je pense que la solution pourrait être un Ucase. J'espère être plus clair.

Edit: j'ai la solution!

Code:

If InStr(1, UCase(TV(I, J)), UCase(Me.TextBox1.Value)) <> 0 Then

Merci encore pour tout Thautheme
27/01/2020, 17h22
Qwazerty

Salut

Solution plus "correcte"

Code:

If InStr(1, TV(I, J), Me.TextBox1.Value,vbTextCompare) <> 0 Then

++
Qwaz

Citation:

Envoyé par Thautheme

Bonjour Guizmonster, bonjour le forum,

En pièce jointe une proposition avec le code full comment... Deux UserForms. Une pour rechercher une pour agir. Les variables publiques sont déclarées dans le modules [Module 1].

Bonjour,

Je réouvre le sujet car après avoir utiliser le fichier pendant 6 mois, j'aurais voulu savoir s'il était possible de faire 3 améliorations pour faciliter l'utilisation au quotidien:

1) La possibilité de s'affranchir des accents et des majuscules.
Pour les accents j'ai trouvé ce code mais je ne vois pas où l'insérer dans le moteur de recherche:
Code:

1 2 3 4 5 6 7 8 9 10 11 Function sansAccent(chaine) codeA = "éèêëàâçùôûïîÉÈÊËÔ" codeB = "eeeeaacuouiiEEEEO" temp = chaine For I = 1 To Len(temp) p = InStr(codeA, Mid(temp, I, 1)) If p > 0 Then Mid(temp, I, 1) = Mid(codeB, p, 1) Next sansAccent = temp End Function
2) la 2ème chose ça serait de pouvoir de la recherche multichamps c'est à dire de pouvoir taper plusieurs mots (séparés d'un espace) dans le moteur. Par exemple si j'ai 2000 cardan, je commence à taper Card (espace) et le début de ma référence par exemple 25 et que le moteur me montre que les champs où il retrouve card et 25.

3) Enfin est-il possible d'agrandir une colonne du moteur de recherche pour pouvoir voir l'ensemble des mots quand la colonne contient plus de mots?

En tout cas encore merci Thautheme