Discussion :

[Didpa]

Bonjour

Voilà je suis débutant et j'aimerais savoir comment a partir de 4 Textbox
TextBox_Reference
TextBox_Designation
TextBox_Stock
TextBox_QteVendue

Dans la premiere je tape une Reference (qui existe déjà dans un tableau)
j'aimerais que dans la seconde et la troisième la Désignation et le stock s'affiche par rapport à la référence tapée, et une fois cela fait, Sachant que j'ai plus de 1000 Référence, donc qu'il trouve la référence correspondante le plus compliqué pour moi dans la textBox_QteVendue, j'inscrit mes ventes cela le déduise de mon stock, dans mon tableau. Merci d'avance

[Persons]

Bonjour,
Ta demande est trop vague et fais des phrases entières si je peux me permettre. Tu stockes des données comment (fichier txt, xml, base de données)?

[Didpa]

Voilà je recherche ce qui fais que mon code ne fonctionne pas. le Voici :

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
Dim Qté As Integer, Code As Long
Dim Recherche
Qté = CInt(TextBox_QuantV)
Reference = TextBox_Reference
 
'Recherche du code dans la colonne A
Set Recherche = Sheets("Produits").Range("A:A").Find(Reference)
If Not Recherche Is Nothing Then  'Trouvé
    'modifier la valeur dans la 2e colonne à la droite du code trouvé
    Sheets("Produits").Range(Recherche.Address).Offset(0, 2) = _
             Sheets("produits").Range(Recherche.Address).Offset(0, 2) - QuantV
Else
    MsgBox "Le code n'existe pas"
End If
 
    UserForm10.Hide
 
End Sub

[Didpa]

Salut

Voila j'ai un tableau avec plusieurs colonnes, dont une avec des référence, une Désignation et une Stock il y a plus de 1000 Références

Dans mon Userform
j'ai mes 4 TextBox

1) TextBox_Reference
2) TextBox_Désignation
3) TextBox_Stock
4) TextBox_Qté_Vendue

Alors j'aimerais quand je tape ma référence, que ma désignation apparaisse ainsi que mon stock, mais le plus compliqué c'est que quand je tape ma quantité vendue et que je valide ma vente cela se déduise dans mon stock sur ma feuille Excel.
Merci d'avance

Voilà ou j'en suis rendu mais rien ne se passe quand je valide sur le CommandButton1.

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
Private Sub CommandButton1_Click()
Dim Recherche
Dim Qté As Integer, Code As Long
Dim Recherche
Qté = CInt(TextBox_QuantV)
Reference = TextBox_Reference
 
'Recherche du code dans la colonne A
Set Recherche = Sheets("Produits").Range("A:A").Find(Reference)
If Not Recherche Is Nothing Then  'Trouvé
    'modifier la valeur dans la 2e colonne à la droite du code trouvé
    Sheets("Produits").Range(Recherche.Address).Offset(0, 2) = _
             Sheets("produits").Range(Recherche.Address).Offset(0, 2) - QuantV
Else
    MsgBox "Le code n'existe pas"
End If
 
    UserForm10.Hide
 
End Sub

[Elstak]

Salut,

n'oublie pas de mettre le tag dasn ton titre ( [VBA-E] car je suppose que tu es sous excel?)

utilise aussi la balise CODE # sinon un modérateur va te taper !

Ragardes ces remarques peut etre que ca t'aidera :

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 CommandButton1_Click()
'pourquoi declares tu 2 fois "Recherche"
Dim Recherche
Dim Qté As Integer, Code As Long
Dim Recherche
Qté = CInt(TextBox_QuantV)
Reference = TextBox_Reference

'Recherche du code dans la colonne A
Set Recherche = Sheets("Produits").Range("A:A").Find(Reference)
If Not Recherche Is Nothing Then 'Trouvé
'modifier la valeur dans la 2e colonne à la droite du code trouvé
Sheets("Produits").Range(Recherche.Address).Offset(0, 2) = _
'pourquoi tu utilise quantv ici et non pas "Qté" ??
Sheets("produits").Range(Recherche.Address).Offset(0, 2) - QuantV
Else
MsgBox "Le code n'existe pas"
End If

UserForm10.Hide

End Sub

utilise des msgbox pour voir les valeur des tes variables et voir si elles correspondent à quoi elles devraient correspondre... (si elles ont bien les valeurs attendues)

[Didpa]

Désolé pour mes erreur je vais faire de mon mieux pour ne pas que cela se reproduise.

Bon voilà ce que cela donne mais mais je n'arrive toujour pas a déduire mon stock.

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
Private Sub CommandButton1_Click()
Dim Recherche
Dim Qté As Integer, Code As Long
Qté = CInt(TextBox_Qté)
Reference = TextBox_Reference
 
'Recherche du code dans la colonne A
Set Recherche = Sheets("Produits").Range("A:A").Find(Reference)
If Not Recherche Is Nothing Then 'Trouvé
'modifier la valeur dans la 2e colonne à la droite du code trouvé
Sheets("Produits").Range(Recherche.Address).Offset(0, 2) = _
Sheets("produits").Range(Recherche.Address).Offset(0, 2) - Qté
Else
MsgBox "Le code n'existe pas"
End If
 
UserForm10.Hide
 
End Sub

[SfJ5Rpw8]

quand tu dis il ne se passe-rien lorsque je clique sur bouton.. c'est vraiment rien..? tu n'as pas renommé le bouton ..?

en mode edition .. doubleclick sur le bouton histoire de voir si tu tombe sur le bon code..!

[Didpa]

Non l s'arrête au niveau "Sheet Produits En Jaune"

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
Private Sub CommandButton1_Click()
Dim Recherche
Dim Qté As Integer, Code As Long
Qté = CInt(TextBox_Qté)
Reference = TextBox_Reference.Value

'Recherche du code dans la colonne A
Set Recherche = Sheets("Produits").Range("A:A").Find(Reference)
If Not Recherche Is Nothing Then  'Trouvé
    'modifier la valeur dans la 2e colonne à la droite du code trouvé
    Sheets("Produits").Range(Recherche.Address).Offset(0, 2) = _
             Sheets("produits").Range(Recherche.Address).Offset(0, 2) - Qté
Else
    MsgBox "Le code n'existe pas"
End If

    UserForm10.Hide

End Sub

[Elstak]

Et qu'est ce qu'il fait? tu as une erreur?

utilise des msgbox entre deux pour voir les valeurs comme je t'ai di ca t'aidera peut etre



Ps : tu as oublié les balises # !!
Ps2 : Le j'aune c'etait pas une bonne idée !

[Didpa]

A quelle niveau j'ai oublié la balise ?

et ok pour pour le jaune pas top