Bonjour tout le monde ...
voici mon souci je voudrais à partir d'une listbox alimenter par une colonne B, que mon action soit effectué sur chaque selection et non pas la dernière cliqué.
Voici mon code qui ne fonctionne que sur une seule selection et pas l'ensemble :
Mais je ne comprends pas ce qui cloche ?
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12 Private Sub Valider_Click() Dim i As Integer With Me.ListBox1 For i = 0 To ListBox1.ListCount - 1 If ListBox1.Selected(i) = True Then ActiveSheet.Unprotect ("") Cells(ListBox1.ListIndex + 3, 1) = "T" ActiveSheet.Protect ("") End If Next i End With End Sub
Partager