transfert de listbox dans textbox (xls 97)

[xavier]

bonjour a tous et toutes

il s'emblerais que j'ai encor un problème insurmontable pour moi (sa fais plusieurs jour que je cherche)

j'explique

j'ai dans un USF une listbox dans laquelle j'affiche toutes les information contenus dans une colonne se trouvant sur une feuille (chaques info contient un code article).

a partir de là je voudrais en cliquant sur le bouton ajouter (après avoir séléctionné l'information voulue dans la listbox) que cette information et le code qui lui est associé sur le feuille s'affiche directement dans un textbox. a savoir que j'ai plusieur textbox et que l'info doit s'fficher dans selui qui serait vide

c pas très bien si c clair mais j'ai une pièce jointe comme exemple

merci d'avance

@++ xavier

 

[Zon]

Salut,

Si j'ai bien compris ce que tu veux faire colles ces 2 fonctions dans un module standard ou le module de ton USF;

'permet de savoir le 1 er textbox vide
Function TxtB() As Byte
Dim I As Byte
For I = 7 To 81 Step 5 'textbox7 à textbox81
If Controls("Textbox" & I) = "" Then TxtB = I: Exit Function
Next I
End Function
'I est le N) de ligne, J le N° de controle
Sub RempTxtB(I&, J As Byte, NomF$)
On Error Resume Next
With Sheets(NomF)
Controls("Textbox" & J) = .Range("F" & I) 'Article
Controls("Textbox" & J + 1) = .Range("D" & I) 'code Article
Controls("Textbox" & J + 4) = .Range("J" & I) 'prix HT
End With
End Sub

'ensuite
Private Sub CommandButton1_Click() 'Ajouter
With ListBox1
If .ListIndex = -1 Then Exit Sub
RempTxtB .ListIndex + 4, TxtB, "Liste" ' 4 car ta plage commence en ligne 4
End With
End Sub


A+++

 

[xavier]

salut Zon

je suis pas super fort en vba mais je croit que sa devrait faire l'affaire.

je mis met de suite

merci bcp

@++ xavier

 

[xavier]

re salut noz

j'ai installé le code sa marche impécable

merci

@++ xavier