listbox

[Lemidi34]

Je souhaiterai avoir le code pour rentrer avec un userform des données en ayant au prealable selectionner un listbox.

je veut juste que ma valeur soit mise sur la meme ligne que la donnée de mon listbox

je joins un exemple pour etudier le code apres

MERCI [file name=Classeur1_20060302004409.zip size=6259]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/Classeur1_20060302004409.zip[/file]

 

[edelweisseric]

Bonjour

Il y a certainement plus court, mais il est tôt :

Private Sub CommandButton1_Click()
Range('a4').Select
For i = 1 To 8
If ActiveCell.Value = ListBox1.Text Then
ActiveCell.Offset(0, 1).Value = TextBox1.Text
Exit Sub
End If
ActiveCell.Offset(1, 0).Select
Next i
End Sub

Cordialement

 

[Lemidi34]

Merci je vais analyser tout ca

 

[PascalXLD]

Bonjour

Peut-être en évitant les select

Private Sub CommandButton1_Click()
Dim i as byte
For i = 4 To 11
If Range('A' & i) = ListBox1.value Then
range('B' & i) = TextBox1
Exit For
End If
Next i
End Sub

 

[Lemidi34]

Merci pascal