[VBA-E] Aide sur la fonction recherche

Version imprimable

07/08/2006, 08h41
Didpa

[VBA-E] Aide sur la fonction recherche

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
07/08/2006, 08h59
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)?

Re Aide sur la Fonction Recherche

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

Code:

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

Gestion de Stock

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:

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

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

Ragardes ces remarques peut etre que ca t'aidera :
Code:

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)

ReGestion des Stocks

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:

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

07/08/2006, 10h56
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..!

ReGestion des Stocks

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

Code:

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

07/08/2006, 11h06
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 ! :mouarf:
07/08/2006, 11h10
Didpa

ReGestion des Stocks

A quelle niveau j'ai oublié la balise ?

et ok pour pour le jaune pas top
07/08/2006, 11h13
Elstak

Au niveau de ton code !! (enfin c'est mal utilisé )

Citation:

Code:

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

Tu dois selectionner TOUT ton code avant de cliquer sur le # là tu n'as que ta premeire ligne dans la balise... ;)

sinon pour ma question... tu as une erreur sur ta ligne jaune?

ReGestion des Stocks

OK je viens de Comprendre:oops:
je ne vois pas ou se trouve le problème à moins que je trouve ma valeur en stock et que je la déduise seulement après.

Code:

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

Ok,

Citation:

Envoyé par tu

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

Comment vois tu qu'il s'arrete là, as tu une erreur dans le debuggeur oui ou non??

essaye ce code et regarde les valeur renvoyees par les msgbox (et tu trouvera peut etre ton erreur !)

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
Private Sub CommandButton1_Click()
Dim Recherche
Dim Qté As Integer, Code As Long
Qté = CInt(TextBox_Qté)
msgbox "Qté : " & Qté 
Reference = TextBox_Reference.Value
msgbox "Reference : " & Reference 
 
'Recherche du code dans la colonne A
Set Recherche = Sheets("Produits").Range("A:A").Find(Reference)
 
If Not Recherche Is Nothing Then  'Trouvé
    msgbox "on est entré dans le if"
    '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

07/08/2006, 11h49
Didpa

ReGestion des Stocks

la je m'arr^te après ta MsgBox on est entre dans le if, car il reconnais bien la Qté, La Référence, mais il Bug Après
07/08/2006, 13h13
AlainTech

Code:

Recherche.Offset(0, 2) = Recherche.Offset(0, 2) - Qté

Recherche est déjà un Objet Range!
08/08/2006, 06h51
Didpa

ReGestion des Stocks

Non cela s'arrête toujour au niveau de

Code:

Recherche.Offset(0, 2) = Recherche.Offset(0, 2) - Qté
08/08/2006, 07h35
AlainTech

Quel est le message d'erreur???

On n'est pas devins!!!

Curieusement, chez moi, ce code fonctionne parfaitement:

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
Private Sub CommandButton1_Click()
  Dim Recherche As Range
  Dim Reference As String
  Dim Qté As Integer
  Qté = CInt(TextBox_Qté)
  MsgBox "Qté : " & Qté
  Reference = TextBox_Reference.Value
  MsgBox "Reference : " & Reference
 
  'Recherche du code dans la colonne A
  Set Recherche = Sheets("Produits").Range("A:A").Find(Reference)
 
  If Not Recherche Is Nothing Then  'Trouvé
    MsgBox "on est entré dans le if"
    'modifier la valeur dans la 2e colonne à la droite du code trouvé
    Recherche.Offset(0, 2) = Recherche.Offset(0, 2) - Qté
  Else
    MsgBox "Le code n'existe pas"
  End If
 
'    UserForm10.Hide
 
End Sub

08/08/2006, 07h58
Didpa

ReGestion des Stocks

Vous ëtes géniaux merci encore à tous, dernière petite question quelle ligne dois je rajouter afin que ma désignation apparaisse dans ma TextBox qui se trouve en (0;3) dans mon tableau