[VBA-E] Aide sur la fonction recherche

**Didpa** · 07/08/2006, 08h41

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** · 07/08/2006, 08h59

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** · 07/08/2006, 09h28

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** · 07/08/2006, 10h04

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** · 07/08/2006, 10h15

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** · 07/08/2006, 10h51

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** · 07/08/2006, 10h56

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** · 07/08/2006, 11h03

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** · 07/08/2006, 11h06

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** · 07/08/2006, 11h10

A quelle niveau j'ai oublié la balise ?

et ok pour pour le jaune pas top

**Elstak** · 07/08/2006, 11h13

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

Code :

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

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?

**Didpa** · 07/08/2006, 11h24

OK je viens de Comprendre

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 :

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
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** · 07/08/2006, 11h42

Ok,

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 :

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

**Didpa** · 07/08/2006, 11h49

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

**AlainTech** · 07/08/2006, 13h13

Code :

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

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

Recherche est déjà un Objet Range!

**Didpa** · 08/08/2006, 06h51

Non cela s'arrête toujour au niveau de

Code :

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

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

**AlainTech** · 08/08/2006, 07h35

Quel est le message d'erreur???

On n'est pas devins!!!

**AlainTech** · 08/08/2006, 07h46

Curieusement, chez moi, ce code fonctionne parfaitement:

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

**Didpa** · 08/08/2006, 07h58

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

[VBA-E] Aide sur la fonction recherche

Macros et VBA Excel

Discussions similaires

Partager

Partager