Aide sur listbox

Version imprimable

Aide sur listbox

Bonjour,

J'ai commencé à faire un nouvel userform

Ce que je souhaite faire :
Lorsque je clique sur le bouton "plan classe 6" une listbox parait qui correspond à B4 : D300
Et j'aimerais que lorsque je clic sur une case à cocher il y a un "X" qui se met dans la colonne D en fonction du code choisi.

A l'heure actuelle mon code fonctionne, mais lorsque je ré-ouvre l'userform les croix s'efface
Comment faire pour conserve les "X" dans la colonne D.
Merci de votre aide.

Ci-joint le code
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 Private Sub UserForm_Initialize() ListBox1.Clear End Sub Public Sub CommandButton_classe_6_Click() ListBox1.ColumnCount = 3 ListBox1.ColumnWidths = "30;250;50" ListBox1.List = Sheets("Plan_compta").Range("B4:D300").Value End Sub Private Sub ListBox1_Change() Dim c Dim val As String Dim i As Long 'boucle mise a X For i = ListBox1.ListCount - 1 To 0 Step -1 If ListBox1.Selected(i) Then val = ListBox1.List(i) For Each c In Sheets("Plan_compta").Range("B4:B300") If c <> "" Then If c = val Then c.Offset(0, 2) = "X" End If End If Next End If Next 'boucle suppression X For i = ListBox1.ListCount - 1 To 0 Step -1 If ListBox1.Selected(i) Then Else val = ListBox1.List(i) For Each c In Sheets("Plan_compta").Range("B4:B300") If c <> "" Then If c = val Then c.Offset(0, 2) = "" End If End If Next End If Next End Sub

Bonjour,
à première vue, en enlevant cette partie

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
'boucle suppression X
For i = ListBox1.ListCount - 1 To 0 Step -1
  If ListBox1.Selected(i) Then
  Else
  val = ListBox1.List(i)
  For Each c In Sheets("Plan_compta").Range("B4:B300")
   If c <> "" Then
   If c = val Then
   c.Offset(0, 2) = ""
   End If
  End If
  Next
 
    End If
Next

03/02/2015, 08h53
tiralarc03

Bonjour,
Merci pour la réponse mais si je supprime cette partie cela ne fonctionne pas correctement.
Parce que cette partie sert à enlever le "X" lorsque je décoche la case à cocher dans la listbox

Bonjour,
du vite fait

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
Private Sub ListBox1_Change()
Dim c As Range
Dim val As String
Dim i As Long
 
'boucle mise a X
For i = ListBox1.ListCount - 1 To 0 Step -1
  If ListBox1.Selected(i) Then
    val = ListBox1.List(i)
    For Each c In Sheets("Plan_compta").Range("B4:B300")
      If c <> "" And c = val Then
        c.Offset(0, 2) = "X"
      Else
        c.Offset(0, 2) = ""
      End If
  End If
Next
 
End Sub

03/02/2015, 09h26
tiralarc03

cela ne fonctionne pas non plus:(

code incorrect car j'ai le message If sans EndIf?
:calim2:

je t'ai ecris que c'était du vite fait, il y a surement une ligne mal placée, tu devrais la voir, mais j'y regarde
essayes, il manquait un next

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
Private Sub ListBox1_Change()
Dim c As Range
Dim val As String
Dim i As Long
 
'boucle mise a X
For i = ListBox1.ListCount - 1 To 0 Step -1
  If ListBox1.Selected(i) Then
    val = ListBox1.List(i)
    For Each c In Sheets("Plan_compta").Range("B4:B300")
      If c <> "" And c = val Then
        c.Offset(0, 2) = "X"
      Else
        c.Offset(0, 2) = ""
      End If
    Next c
  End If
Next i
 
 
End Sub

03/02/2015, 12h02
tiralarc03

Bonjour,

ton code ne fonctionne pas mais mon code de départ fonctionne bien, mais le problème ce n'est pas de mettre les croix quand on coche, c'est de conserve les croix ou elles sont mises quand on ferme userform.

Mon code est le même que le tien à part ça

Code:

1
2
3
4
5
....
Else
        c.Offset(0, 2) = ""
      End If
....

regardes bien le tien d'origine, avec l'évènement "Change"
1ere partie

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
Private Sub ListBox1_Change()
Dim c
Dim val As String
Dim i As Long
 
'boucle mise a X
For i = ListBox1.ListCount - 1 To 0 Step -1
  If ListBox1.Selected(i) Then
  val = ListBox1.List(i)
  For Each c In Sheets("Plan_compta").Range("B4:B300")
   If c <> "" Then
   If c = val Then
   c.Offset(0, 2) = "X"
   End If
  End If
  Next
 
    End If
Next

2eme partie, aussitôt tu annules ce que tu viens de faire

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
...
 
'boucle suppression X
For i = ListBox1.ListCount - 1 To 0 Step -1
  If ListBox1.Selected(i) Then
'que manque t'il ici
  Else
  val = ListBox1.List(i)
  For Each c In Sheets("Plan_compta").Range("B4:B300")
   If c <> "" Then
   If c = val Then
   c.Offset(0, 2) = ""
   End If
  End If
  Next

03/02/2015, 15h22
tiralarc03

1 pièce(s) jointe(s)

oui c'est bien cela mais cette partie marche sans probleme.

Le problème ce n'est pas de mettre les croix quand on coche ou decoche, c'est de conserver les croix ou elles sont mises quand on ferme et re-ouvre userform.

ci-joint une explication

à moins que je ne comprenne rien mais ce code devrait suffire

Code:

1
2
3
4
5
6
7
8
Private Sub ListBox1_Change()
If ListBox1.Selected(ListBox1.ListIndex) Then
  Range("D" & ListBox1.ListIndex + 4) = "X"
Else
  Range("D" & ListBox1.ListIndex + 4) = ""
End If
 
End Sub

04/02/2015, 14h50
tiralarc03

Merci super
04/02/2015, 15h30
casefayere

Citation:

Envoyé par tiralarc03

Merci super

alors lis ma signature.......