Selection multiple impossible avec un listbox
Salut j'ai une listbox qui me permet de mettre à jours des dates dans un tableau excel.
J'approvisionne comme suit
Code:
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:
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
