Pb somme variables

Bonsoir,

En fait, j'ai réalisé un code qui me permet de rechercher une valeur, saisie dans un combo, dans une feuille. Lorsque cette valeur est trouvée(A), il recherche une autre valeur sur la même ligne(B). Une fois cette valeur retrouvé(B), je souhaite ajouté la valeur d'un caption à cette valeur(B) pour me donner une nouvelle valeur(B') à mettre dans la cellule initiale de B.

Mais le code ne fonctionne mal. En effet si dans la cellule il y a "3" et dans le caption "4" j'ai une valeur affichée de "34" au lieu de "7"...

Quelqu'un a-t-il une solution..voici mon 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

Private Sub CommandButton1_Click()   Dim nom As String Dim prod_a_entrer As String Dim stock_actuel As String Dim stock_actuel2 As Integer   L = 2 K = Worksheets("BasedeDonnees").Range("A65536").End(xlUp).Row   If ComboBox1.Value <> "" And SpinButton1.Value <> 0 Then Sheets("basededonnees").Unprotect Worksheets("BasedeDonnees").Activate nom = ComboBox1.Value   For L = 2 To K If Worksheets("BasedeDonnees").Cells(L, 3).Value = nom Then stock_actuel = Worksheets("BasedeDonnees").Cells(L, 10).Value prod_a_entrer = Label7.Caption stock_actuel2 = stock_actuel + prod_a_entrer Worksheets("BasedeDonnees").Cells(L, 10).Value = stock_actuel2 MsgBox (" Vous avez rentré " & prod_a_entrer & " article(s) " & nom & " dans le stock") Unload Entreearticle MenuGeneral.Show End If Next Sheets("basededonnees").Protect End If End Sub

---

Merci

Ac

Bonjour,

Les 2 variables prod_a_entrer et stock_actuel sont déclarées de type string.
Il est donc normal que tu obtiennes : "3" + "4" = "34"
Tu dois convertir ces données en numérique.

Par exemple, remplacer

Code:

---

1 2	Dim stock_actuel2 As Double stock_actuel2 = CDbl(stock_actuel) + CDbl(prod_a_entrer)

---

Cordialement.