Boucler pour effacer des lignes dans une listbox à sélection multiple

Version imprimable

01/08/2008, 21h42
simond1

Boucler pour effacer des lignes dans une listbox à sélection multiple
Bonjour. Ca fait un mois que j'ai commencé à programmer en VBA pour un userform dans excel et là je calle.
J'ai une listbox à sélection multiple qui me sert à récupérer le contenu de beaucoup d'autres listbox et zones de text, le problème c'est que j'ai des lignes vides qui apparaissent et que j'aimerai effacer, j'ai cherché partout (vraiment) et je n'ai réussi qu'a effacé qu'une ligne, comment toute les effacer ?

Voici mon code :
Code:

1 2 3 4 5 Dim z As IntFor z = 0 To ListBox2.ListCount - 1 If ListBox2.Selected(z) Then LstResult.RemoveItem (0) End If Next
Merci d'avance.
01/08/2008, 21h46
JackOuYA

Bonsoir,

par curiosité, comment remplit tu ta liste .. pourquoi y mettre des lignes vides ?

Voici une partie de mon code, les lignes vides ne sont pas voulues, c'est pourquoi je veux les enlever.

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
Private Sub Ajouter_Click()
ListBox2.Clear   ' vider la liste d'affichage pour la sélection courante
Me.ListBox2.AddItem Sheets("Feuil1").Range("A1")
Dim i As Integer
    For i = 0 To ListBoxAtcdChir.ListCount - 1
        If ListBoxAtcdChir.Selected(i) Then
            ListBox2.AddItem ListBoxAtcdChir.List(i)
    End If
    Next
Me.ListBox2.AddItem TextBoxAutresAtcdChirurgicaux.Text
Dim i1 As Integer
    For i1 = 0 To ListBoxAtcdMedicaux.ListCount - 1
        If ListBoxAtcdMedicaux.Selected(i1) Then
            ListBox2.AddItem ListBoxAtcdMedicaux.List(i1)
    End If
    Next
Me.ListBox2.AddItem TextBoxAutresAtcdMedicaux.Text
Dim i2 As Integer
    For i2 = 0 To ListBoxAtcdNeuroCardio.ListCount - 1
        If ListBoxAtcdNeuroCardio.Selected(i2) Then
            ListBox2.AddItem ListBoxAtcdNeuroCardio.List(i2)
    End If
    Next
Dim i3 As Integer
    For i3 = 0 To ListBoxAtcdFamiliaux.ListCount - 1
        If ListBoxAtcdFamiliaux.Selected(i3) Then
            ListBox2.AddItem ListBoxAtcdFamiliaux.List(i3)
    End If
    Next
Me.ListBox2.AddItem TextBoxAutresAtcdFamiliaux.Text

01/08/2008, 21h53
JackOuYA
Re,

Ben le plus simple c'est quand même de ne pas les mettre ainsi pas besoin de les enlever .

un truc du genre
Code:

1 2 if ListBoxAtcdChir.List(i) <> "" Then ListBox2.AddItem ListBoxAtcdChir.List(i)
01/08/2008, 22h00
simond1
Ce n'est pas quand j'ajoute les listbox dans la lixbox2 mais c'est quand j'ajoute une cellule ou une textbox qui est restée vide qu'une ligne vide apparait :
Code:

1 2 3 4 5 Me.ListBox2.AddItem Sheets("Feuil1").Range("A1") Me.ListBox2.AddItem TextBoxAutresAtcdChirurgicaux.Text Me.ListBox2.AddItem TextBoxAutresAtcdFamiliaux.Text
01/08/2008, 22h02
JackOuYA

Citation:

Envoyé par simond1

Ce n'est pas quand j'ajoute les listbox dans la lixbox2 mais c'est quand j'ajoute une cellule ou une textbox qui est restée vide qu'une ligne vide apparait :

Me.ListBox2.AddItem Sheets("Feuil1").Range("A1")

Me.ListBox2.AddItem TextBoxAutresAtcdChirurgicaux.Text

Me.ListBox2.AddItem TextBoxAutresAtcdFamiliaux.Text

:koi: ben c'est le même principe non ?
01/08/2008, 22h10
simond1

J'ai essayé mais je n'arrive pas à programmer un code qui marche avec une cellule ou un textbox.

Re,

Code:

1
2
3
4
5
6
 
if  Sheets("Feuil1").Range("A1") <> "" then Me.ListBox2.AddItem Sheets("Feuil1").Range("A1")
 
if extBoxAutresAtcdChirurgicaux.Text <> "" then Me.ListBox2.AddItem TextBoxAutresAtcdChirurgicaux.Text
 
if TextBoxAutresAtcdFamiliaux.Text <> "" then Me.ListBox2.AddItem TextBoxAutresAtcdFamiliaux.Text

si cela ne marche pas il faudra envisager le cas ou tes textbox ou cellule contiennent des caractéres invisibles ..

01/08/2008, 22h25
simond1

Merci pour tout, ça marche parfaitement, et c'est beaucoup plus simple que ce que je voulais faire.
Merci encore.