passer à l'item suivant ds listbox

[Christian]

Bonjour à tous

J'aimerais compléter le code suivant par,
la selection auto de l'item
Càd, une fois le 'for next' terminer
selectionner l'item suivant,s'il y en 1 bien sûr.

With ListBox1
For i = 0 To .ListCount - 1
If .Selected(i) = True Then
.Column(4, i) = TextBox1.Value
End If
Next i
End With

Je passe être passé tout prés mais une nouvelle fois j'ai besoin de votre aide.

merci
bon dimanche

Chritian

 

[bebere]

bonjour Christian,le Forum
.Column(4, i) = TextBox1.Value doit s'écrire
.Column(i, 4) = TextBox1.Value,i est l'index de ligne '.Column(ligne(i),colonne(4))'
à bientôt

 

[Christian]

Re
Je me suis mal fait comprendre, cette partie du code fonctionne bien,s'est la suite que je n'arrivais pas à écrire.Mais tu m'as donnée une idée et j'ai réussi a l'écrire

With ListBox1
For i = 0 To .ListCount - 1
If .Selected(i) = True Then
.Column(4, i) = TextBox36.Value
If .ListIndex = .ListCount - 1 Then Exit Sub
.Selected(i + 1) = True
Exit Sub
End If
Next i
End With

merci

A+
Christian