PB listbox

bonjour

j'aimerai faire apparaitre le résultat de ma listbox dans la colonne B, mais je ne suis pas arriver sa fait des heure que je galere

une solution merci

Bonjour

Dans la mesure où tu n'as qu'une ligne dans la ListBox

Modifies ton code

 fVTE.Cells(ligne, 1) = CDbl(Me.TextBox7)
 fVTE.Cells(ligne, 2) = Me.ListBox1.List(0, 0)          '.Value

merci super,

si je souhaite que sa commerce a la ligne15, on fait sa comment svp?

Bonsoir

Modifies

 'ligne = fVTE.[A65000].End(xlUp).Row + 1
 ligne = Application.Max(15, fVTE.[A65000].End(xlUp).Row + 1)
 fVTE.Cells(ligne, 1) = CDbl(Me.TextBox7)
 fVTE.Cells(ligne, 2) = Me.ListBox1.List(0, 0)          '.Value

Merci

Mais à chaque fois que je valide userform, il écrase les données de la ligne 15

Comment ajouter a partir de la ligne 15 mais donné les une en dessous des autres

Merci de votre aide

Bonjour

pascal.59 a écrit :

Mais à chaque fois que je valide userform, il écrase les données de la ligne 15

Pas ce souci

Fournis le fichier en cause

dessole mais la solution marche dans le classeur,mais ne marche pas dans mon fichier original car il sont integre dans un tableau"Détailsfacture"

donc voici la formule VBA

Private Sub b_ok_Click()

Set fVTE = Sheets("MODELE")

If Me.TextBox7 = "" Then

MsgBox "saisir une qte!"

Me.TextBox7.SetFocus

Exit Sub

End If

Set pos = fBD.[F:F].Find(what:=lot)

If IsNumeric(Me.TextBox7) Then fBD.Cells(pos.Row, "d") = fBD.Cells(pos.Row, "d") - CDbl(Me.TextBox7)

'ligne = fVTE.[A65000].End(xlUp).Row + 1

ligne = Application.Max(15, fVTE.[A65000].End(xlUp).Row + 1)

fVTE.Cells(ligne, 2) = CDbl(Me.TextBox7)

fVTE.Cells(ligne, 3) = Me.ListBox1.List(0, 0)

raz

Me.ListBox1.Clear

End Sub

comment faire pour integre le resustat de mon userform dans un tableau

merci

Bonjour

Tu ne sais peut-être pas le mot "bonjour" n'est pas une insulte et le dire au moins une fois par jour est une marque de politesse

Sinon tu te bases sur la colonne A pour trouver la première ligne vide mais tu écris en colonne B

Modifies la ligne correspondante

ligne = Application.Max(15, fVTE.[B65000].End(xlUp).Row + 1)

désole pour une erreur et veuillez m'excuser" BONJOUR A TOUS"