RechercheV sous condition en VBA

Version imprimable

29/03/2019, 09h57
MrCMTueurx

2 pièce(s) jointe(s)

RechercheV sous condition en VBA

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

Pièce jointe 462127

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

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€

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:

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.

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

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

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

Retourne 52

Code:

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

Retourne 20

Merci de ta réponse,

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

Code:

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:

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

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.

Citation:

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:

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.

29/03/2019, 14h32
MrCMTueurx

Merci pour ton aide !

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

Problème résolu ! :mouarf1::resolu:

Merci beaucoup

Cordialement
29/03/2019, 15h21
MrCMTueurx

Je réouvre le sujet,

Certainement fois je vais avoir des prix avec des virgules, ex: 14,78€.

Avec le code qui fonctionne parfaitement bien j'ai afficher 15€

Est il possible d'afficher 14,78€ dans le textbox ?

Merci pour votre aide

Cordialement
01/04/2019, 10h28
MarcelG
Salut,

Citation:

Est il possible d'afficher 14,78€ dans le textbox ?

Oui, en gérant l'évènement Exit du contrôle.

(à adapter)
Code:

1 2 3 4 5 Private Sub Txt_code_Exit(ByVal Cancel As MSForms.ReturnBoolean) With Txt_code .Text = Format(.Text, "# ##0.00 €") End With End Sub
A noter.
Dans le code, le "." figure, tandis que la saisie s'effectuera par une ",".

Bonjour,

il faudra déclarer Prix en Single ou Double aussi

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
Option Explicit
 
Public Type four_prix
        fournisseur As String
        prix As Integer
 End Type
 
'devient
 
Public Type four_prix
        fournisseur As String
        prix As Single
 End Type

01/04/2019, 11h08
MarcelG

Merci, Igloobel.
J'avais zappé.
01/04/2019, 11h38
Igloobel

tu avais fait quasiment tout le travail

un petit oubli est plus que pardonnable (tout le monde en fait moi le premier :twisted: )
03/04/2019, 20h35
MrCMTueurx

Super ! tout est fonctionnel !

Merci a vous 2 pour votre aide !

Cordialement