Selection multiple impossible avec un listbox

**jolzeviking** · 30/08/2008, 18h06

Salut j'ai une listbox qui me permet de mettre à jours des dates dans un tableau excel.
J'approvisionne comme suit

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
sub userform_initialize
With Sheets("feuil1").Range("A2")
Me.Listbox1.RowSource = Range(.Cells, .End(xlDown)(1, 5)).Address(External:=True)
End With
end sub

L'approvisionnement est bon jusque là tout va bien. ensuite je selectionne comme suit

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Sub mettreajour_click
With Listbox1
For i = 0 To .ListCount - 1
If .Selected(i) = True Then
   a = i + 1
   Cells(a, 5).Value = datation
   If textbox1.Value <> rien Then
   Cells(a, 11).Value = textbox1.Text
   End If
.Selected(i) = False
End If
Next i
End With
end sub

Lorsque je valide il n'y a que la date de la premiere ligne séléctionnée qui est mise à jour et les autres non. Dans ma ligne initialize je remplace le 5 par 2 cela fonctionne mais je n'ai que 2 colonnes qui apparaissent et j'ai besoin des cinq. Merci de me donner un coup de pouce. Il n'y a pas de trace de ce genre de probleme dans les faqs.

Cordialement.
JZV