Résultat d'un calcul dans un textbox

[Cougar]

Bonjour le forum,

Voici mon problème. En A j'ai le # d'une pièce, en B son poids. Dans le Userform, je sélectionne la pièce avec à l'aide d'une Combobox. Lorsque j'entre une quantité dans le textbox1 le résultat dans le textbox2 est la multiplication du poids de la pièce qui se trouve en B * le textbox1.

Private Sub TextBox1_Change()
Dim Ligne As Long
Dim Pièce As String
Dim Cell As Range
Dim Poids As Variant

If ComboBox1.Value <> "" Then
With Sheets("Sheet1")
Ligne = .Range("a65536").End(xlUp).Row
If Me.ComboBox1.ListIndex <> -1 Then
Poids = Cell.Offset(, 1)
TextBox2.Value = TextBox1 * Poids
End If
End With

TextBox1 = ""
TextBox2 = ""
ComboBox1 = ""
End If
End Sub

Où est mon erreur.

Merci de m'aider.

 

[roro69]

Re : Résultat d'un calcul dans un textbox

Bonsoir
Peut etre à voir :
Enlever textBox2=""
A++

 

[kjin]

Re : Résultat d'un calcul dans un textbox

Bonsoir,
On ne sait pas comment tu alimentes la combo, mais essaie

...
Poids = Cells(ComboBox1.ListIndex + 1, 2)
...

Sinon fichier indispensable
A+
kjin

 

[Cougar]

Re : Résultat d'un calcul dans un textbox

Bonsoir à vous 2,

Voici un exemple du fichier.

Merci

 

[kjin]

Re : Résultat d'un calcul dans un textbox

Re,
Comme je ne savais pas que les données commencer à la ligne 2 🙄

Private Sub TextBox1_Change()
Dim Ligne As Long
Dim Pièce As String
Dim Cell As Range
Dim Poids As Variant

If ComboBox1.Value <> "" Then
    With Sheets("Sheet1")
        Ligne = .Range("a65536").End(xlUp).Row
        If Me.ComboBox1.ListIndex <> -1 Then
                Poids = Cells(ComboBox1.ListIndex [COLOR="Blue"]+ 2[/COLOR], 2)
                TextBox2.Value = Val(TextBox1) * Poids
        End If
    End With
End If
End Sub

A+
kjin

 

[Cougar]

Re : Résultat d'un calcul dans un textbox

Merci pour ton aide kjin.