Discussion :

[MrCMTueurx]

Bonjour à tous !

Merci par avance de votre aide !

Je vous explique mon problème,

J'ai une liste d'article avec plusieurs quantité, fournisseur, prix.

Par exemple pour ce qui ne veulent pas télécharger le fichier,

A	B	C	D
N°d'article	Quantité	Fournisseur	Prix / U
Ord1010-1	3	0010	25€
Ord1010-1	1	0052	30€
Ord1010-1	5	0064	20€
Ord2020-1	5	0021	15€
Ord2020-1	3	0064	20€
Ord2020-1	1	0010	35€

Il y a 3 fois le même articles dans la colonne A, mais la colonne B,C,D sont différente !

J'ai créé un userform comme ceci



Dans la première colonne après " Quantité par 1 : " j'aimerais avoir le prix et la seconde colonne le fournisseur

J'aimerais quand je tape le numéro d'article j'aimerais que les 3 articles se range correctement dans l'userform

Si vous avez des questions n'hésitez pas,

Merci encore par avance de votre aide

Cordialement

[MarcelG]

Bonjour,

Il faudrait gérer l'évènement Exit sur la zone de texte correspondant au code article.

Cet évènement génèrerait l'alimentation des zones de textes (ou peut être libellés (label)) correspondantes.
Pour ce faire, on peut envisager la création de 3 types de variables prédéfinies.

Par exemple, pour la quantité 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
Option Explicit
 
Public Type Q1
        fournisseur As String
        prix As Integer
 End Type
 
Public Function karac(codarticle As String) As Q1
 
Dim derligne As Long
Dim i As Long
 
With Worksheets(1)
        derligne = .Cells(.Rows.Count, 1).End(xlUp).Row
        For i = 1 To derligne
                If .Cells(i, 1) = codarticle And .Cells(i, 2) = 1 Then
                        With karac
                                .fournisseur = Cells(i, 3).Value
                                .prix = Cells(i, 4).Value
                        End With
                End If
        Next i
End With
End Function
 
Sub essai_q1()
Debug.Print karac("Ord1010-1").fournisseur
'Retourne 52
Debug.Print karac("Ord1010-1").prix
'Retourne 30
End Sub

Ainsi, les 2 premiers contrôles retourneraient les 2 éléments de la fonction "karac" affectée à la zone de texte code article

Idem pour les types Q2 et Q3.

Certes, on pourrait créer un seul type pour les 3 quantités. Mais voilà l'idée.

A mon avis, ce processus procurerait une certaine souplesse d'utilisation.

[MarcelG]

Une variante pour les 3 quantités en une seule déclaration.
La quantité est intégrée à la fonction.

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
Option Explicit
 
Public Type four_prix
        fournisseur As String
        prix As Integer
 End Type
 
Public Function karac(codarticle As String, quot As Byte) As four_prix
 
Dim derligne As Long
Dim i As Long
 
With Worksheets(1)
        derligne = .Cells(.Rows.Count, 1).End(xlUp).Row
        For i = 1 To derligne
                If .Cells(i, 1) = codarticle And .Cells(i, 2) = quot Then
                        With karac
                                .fournisseur = Cells(i, 3).Value
                                .prix = Cells(i, 4).Value
                        End With
                End If
        Next i
End With
End Function

Ainsi:

Code :

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

Debug.Print karac("Ord1010-1", 1).fournisseur

Retourne 52

Code :

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

Debug.Print karac("Ord1010-1", 5).prix

Retourne 20

[MrCMTueurx]

Merci de ta réponse,

Je débute dans le VBA, mais je ne sais pas trop ou mettre le code,

Code :

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

1
2
3
4
5
6
Option Explicit
 
Public Type four_prix
        fournisseur As String
        prix As Integer
 End Type

Ceci tout en haut du module ?

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
Public Function karac(codarticle As String, quot As Byte) As four_prix
 
Dim derligne As Long
Dim i As Long
 
With Worksheets(1)
        derligne = .Cells(.Rows.Count, 1).End(xlUp).Row
        For i = 1 To derligne
                If .Cells(i, 1) = codarticle And .Cells(i, 2) = quot Then
                        With karac
                                .fournisseur = Cells(i, 3).Value
                                .prix = Cells(i, 4).Value
                        End With
                End If
        Next i
End With
End Function

Ceci dans le TextBox Numéro d'article en évènement Exit ?


Merci de ton aide,

Cordialement

[MarcelG]

Salut,

Avant tout, mieux vaut, pour toi, comprendre la démarche soumise.
Pour ce faire, tu peux consulter le tutoriel de Silkyroad au sujet des variables.

Ceci dans le TextBox Numéro d'article en évènement Exit ?

Tout le code que je t'ai soumis (le plus récent) sera intégré à un module standard.

Comme je te l'ai signifié, c'est l'évènement Exit de la Textbox relatif au code article qui génèrera l'information des 6 TextBox
Ceci en considérant les 3 valeurs 1,3 et 5 pour la fonction.

Exemple

Code :

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

1
2
3
4
5
Private Sub Txt_CodeArticle_Exit(ByVal Cancel As MSForms.ReturnBoolean)
Txt_fournisseur_1.Text = karac(Txt_CodeArticle.Text, 1).fournisseur
Txt_prix_5.Text = karac(Txt_CodeArticle.Text, 5).prix
'etc...
End Sub

S'il s'agit de labels, alors c'est leur propriété Caption qu'il faudra modifier. A voir.

Je te laisse adapter avant de te proposer une boucle pour ce code.

Au préalable, prends bien garde, comme toujours, à bien nommer les contrôles, comme je l'ai fait
1 - Préfixe Txt(ou Lb)
2 - Nature de l'information (fournisseur, prix)
3 - Indice (1,3,5)
Ainsi les noms de contrôles seront Txt_fournisseur_1, Txt_prix_5, etc
(ou Lb_...)

Cette précaution est fondamentale si l'on souhaite procéder par boucle.

[MrCMTueurx]

Merci pour ton aide !

J'ai compris le principe en lisant le tuto !
tout fonctionne !


Problème résolu !

Merci beaucoup

Cordialement