Discussion :

[simond1]

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 :

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

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.

[JackOuYA]

Bonsoir,


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

[simond1]

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

Code :

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

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

[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 :

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

1
2
 
if ListBoxAtcdChir.List(i) <> "" Then ListBox2.AddItem ListBoxAtcdChir.List(i)

[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 :

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

1
2
3
4
5
Me.ListBox2.AddItem Sheets("Feuil1").Range("A1")
 
Me.ListBox2.AddItem TextBoxAutresAtcdChirurgicaux.Text
 
Me.ListBox2.AddItem TextBoxAutresAtcdFamiliaux.Text

[JackOuYA]

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

ben c'est le même principe non ?

[simond1]

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

[JackOuYA]

Re,

Code :

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

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

[simond1]

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