listbox

Lemidi34 · 2 Mars 2006

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 · 2 Mars 2006

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 · 2 Mars 2006

Merci je vais analyser tout ca

PascalXLD · 2 Mars 2006

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 · 2 Mars 2006

Merci pascal

listbox

Lemidi34

XLDnaute Occasionnel

Pièces jointes

edelweisseric

XLDnaute Occasionnel

Lemidi34

XLDnaute Occasionnel

PascalXLD

XLDnaute Barbatruc

Lemidi34

XLDnaute Occasionnel

Discussions similaires