Discussion :

[Bab06]

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 :

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

Mais je ne comprends pas ce qui cloche ?

[ucfoutu]

Bonjour,

Code :

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

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 ...

[Bab06]

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

[Krovax]

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

si le test

Code :

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

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 :

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

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

[ucfoutu]

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

Code :

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

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

[Bab06]

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


Merci encore.