Soustraction a partir d'un userform vers une feuille excel

Version imprimable

Re Gestion de Stock

Voilà donc suite d'hier, voilà les codes que vous m'avez fournis fonctionne bien pour une ligne mais si je veus retrer un bon de commande qui lui comprend plusieurs ligne cela se complique, oui car si toutes mes ligne sont remplie cela fonctionne mais si une ligne est vide il BUG sur la soustraction du stock je vous affiche ce que j'ai fais pour les deux premiere ligne, mais il faut que je je répète pour une trentaine de lignes

Et 2ème petit points, quand j'affiche le prix unitaire de vente qui est à virgule lors qu'il l'envoie dans ma feuille excel la virgule disparait, exemple : un prix affiché dans l'userform à 12.35 € réaparait dans ma feuille à 1235 € donc comment faire pour cela Merci

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
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
Private Sub Accepter_Click()
Dim Recherche As Range
Dim Reference As String
 
Worksheets("Facture").Activate 'selectionne la feuille Facture
 If Vendre.TextBox_Contact.Value = "" Then
    MsgBox " Le champ Contact est obligatoire . "
    Exit Sub
    Else
    'Affiche les informations du client
    Cells(8, 2) = valeur
    Cells(9, 2) = Vendre.TextBox_Société.Value
    Cells(10, 2) = Vendre.TextBox_Contact.Value
    Cells(11, 2) = Vendre.TextBox_Adresse.Value
    Cells(12, 2) = Vendre.TextBox_Ville.Value
    Cells(13, 2) = Vendre.TextBox_Pays.Value
    Cells(9, 6) = Date
    Cells(11, 6) = Vendre.TextBox_Code_Client.Value
 
    'Affiche la commande Ligne 1
    Cells(17, 1) = Vendre.TextBox_Ref1.Value
    Cells(17, 2) = Vendre.TextBox_Desig1.Value
    Cells(17, 5) = Vendre.TextBox_Qté_Cdée1.Value
    Cells(17, 6) = Vendre.TextBox_PUV1.Text
    Cells(17, 7) = Vendre.TextBox_Prix_Tot_Lign1.Text
 End If
    'Soustrait du Stock
    Reference = TextBox_Ref1.Value
    Qté = TextBox_Qté_Cdée1
  'Recherche du code dans la colonne A de la fiche Produits
  Set Recherche = Sheets("Produits").Range("A:A").Find(Reference)
  If Not Recherche Is Nothing Then  'Trouvé
   'modifier la valeur dans la 11e colonne à la droite du code trouvé colonne stock
    Recherche.Offset(0, 11) = Recherche.Offset(0, 11) - Qté
 
  'Affiche la commande Ligne 2
    Cells(18, 1) = Vendre.TextBox_Ref2.Value
    Cells(18, 2) = Vendre.TextBox_Desig2.Value
    Cells(18, 5) = Vendre.TextBox_Qté_Cdée2.Value
    Cells(18, 6) = Vendre.TextBox_PUV2.Value
    Cells(18, 7) = Vendre.TextBox_Prix_Tot_Lign2.Value
 End If
    'Soustrait du Stock
    Reference = TextBox_Ref2.Value
    Qté = TextBox_Qté_Cdée2
  'Recherche du code dans la colonne A de la fiche Produits
  Set Recherche = Sheets("Produits").Range("A:A").Find(Reference)
  If Not Recherche Is Nothing Then  'Trouvé
   'modifier la valeur dans la 11e colonne à la droite du code trouvé colonne stock
    Recherche.Offset(0, 11) = Recherche.Offset(0, 11) - Qté

09/08/2006, 18h45
conconbrr

Je suis pas sur d'avoir suivi la première discussion mais si tu veux j'ai un algo super simple et rapide pour effacer les lignes vides d'une plage...

Soustraction a partir d'un userform vers une feuille excel

Voilà donc suite d'hier, voilà les codes que vous m'avez fournis fonctionne bien pour une ligne mais si je veux retrer un bon de commande qui lui comprend plusieurs ligne cela se complique, oui car si toutes mes ligne sont remplie cela fonctionne mais si une ligne est vide il BUG sur la soustraction du stock je vous affiche ce que j'ai fais pour les deux premiere ligne, mais il faut que je le répète pour une trentaine de lignes

Code :

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
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
Private Sub Accepter_Click()
Dim Recherche As Range
Dim Reference As String
 
Worksheets("Facture").Activate 'selectionne la feuille Facture
 If Vendre.TextBox_Contact.Value = "" Then
    MsgBox " Le champ Contact est obligatoire . "
    Exit Sub
    Else
    'Affiche les informations du client
    Cells(8, 2) = valeur
    Cells(9, 2) = Vendre.TextBox_Société.Value
    Cells(10, 2) = Vendre.TextBox_Contact.Value
    Cells(11, 2) = Vendre.TextBox_Adresse.Value
    Cells(12, 2) = Vendre.TextBox_Ville.Value
    Cells(13, 2) = Vendre.TextBox_Pays.Value
    Cells(9, 6) = Date
    Cells(11, 6) = Vendre.TextBox_Code_Client.Value
 
    'Affiche la commande Ligne 1
    Cells(17, 1) = Vendre.TextBox_Ref1.Value
    Cells(17, 2) = Vendre.TextBox_Desig1.Value
    Cells(17, 5) = Vendre.TextBox_Qté_Cdée1.Value
    Cells(17, 6) = Vendre.TextBox_PUV1.Text
    Cells(17, 7) = Vendre.TextBox_Prix_Tot_Lign1.Text
 End If
    'Soustrait du Stock
    Reference = TextBox_Ref1.Value
    Qté = TextBox_Qté_Cdée1
  'Recherche du code dans la colonne A de la fiche Produits
  Set Recherche = Sheets("Produits").Range("A:A").Find(Reference)
  If Not Recherche Is Nothing Then  'Trouvé
   'modifier la valeur dans la 11e colonne à la droite du code trouvé colonne stock
    Recherche.Offset(0, 11) = Recherche.Offset(0, 11) - Qté
 
  'Affiche la commande Ligne 2
    Cells(18, 1) = Vendre.TextBox_Ref2.Value
    Cells(18, 2) = Vendre.TextBox_Desig2.Value
    Cells(18, 5) = Vendre.TextBox_Qté_Cdée2.Value
    Cells(18, 6) = Vendre.TextBox_PUV2.Value
    Cells(18, 7) = Vendre.TextBox_Prix_Tot_Lign2.Value
 End If
    'Soustrait du Stock
    Reference = TextBox_Ref2.Value
    Qté = TextBox_Qté_Cdée2
  'Recherche du code dans la colonne A de la fiche Produits
  Set Recherche = Sheets("Produits").Range("A:A").Find(Reference)
  If Not Recherche Is Nothing Then  'Trouvé
   'modifier la valeur dans la 11e colonne à la droite du code trouvé colonne stock
    Recherche.Offset(0, 11) = Recherche.Offset(0, 11) - Qté