Problème Listbox MultiSelection

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 :

Code:

---

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

---

Mais je ne comprends pas ce qui cloche ?

Bonjour,

Code:

---

Cells(ListBox1.ListIndex + 3, 1) = "T"

---

modifie toujours la même cellule puisque ListIndex ne varie pas ...
Tu utilises une boucle sur i mais ne te sers pas de i !

Donne des précisions exxactes (dans le détail) de ce que tu cherches à faire ...

En fait J'ai une listbox1 qui est alimenté par la colonne B,
je voudrais lorsque je selectionnes des donneés dans cette listbox avoir un T dans la colonne A en face de mes selections ...

A B
Maison
Tableau
Bateau


Listbox1
Maison
Tableau
Bateau

Si Maison et Tableau selectionné avoir


A B
T Maison
T Tableau
Bateau

Bonjour,
La remarque ducfoutu tient toujours. Tu n'utilises pas ta variable i. :aie:

si le test

Code:

---

If ListBox1.Selected(i) = True Then

---

est vrai cela signifie que la ligne i de ta liste box est selecionné. Cette ligne i corespond a une ligne dans ton fichier

Code:

---

cells(i+XX,1)="T"

---

A toi de remplacer XX par la bonne valeur. Si la ligne1 de ta box est un ligne 5 de ton fichier tu met 5.

Maintenant adapte ca a toncode et en cas de souci montre nous ce que cela donne

devrait donc ressembler à ceci, puisque les articles sont dans le même ordre des 2 côtés :

Code:

---

1 2 3 4

ou = 5 ' ici la ligne de début For i = 0 To ListBox1.ListCount - 1 If ListBox1.Selected(i) Then Cells(ou + i, 1) = "T" Next

---

Résolu MERCI BEAUCOUP c'était tellement évident que je ne voyais pas ....


Merci encore.
:ccool: