Problème source Listbox avec condition

Version imprimable

16/11/2010, 16h34
ben59

Problème source Listbox avec condition

Bonjour le Forum. J'ai besoin d'aide pour mener à bien mon projet.

Déroulement
Tout d'abord je charge mon userform, celui-ci est composé d'un bouton valider, d'un bouton ajouter (Additem de List1 a List2) et de deux listbox.

Le principe de celui ci est d'envoyer des mail via outlook.
Je vais chercher les adresses mail des personnes dans la listbox1 et celle ci vont se mettre dans la list2.
Mon problème est que ma Base est composée de personne ayant un mail et d'autre non.
Je veux donc ne charger dans la list1 que les noms et prénom Colonnes A & B ainsi que l'adresse mail Colonne L des personnes ayant un mail.

Ce que je ne sait pas gérer est le multi colonne.

Espérent avoir de l'aide.
Merci

Bonjour

Une solution par code

on considere que le mail se trouve dans la colonne C
Et commence la recherche ligne 2

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
 
Dim i As Long
 
i = 2
 
With Sheets("Feuil1")
 
    Do While .Range("A" & i).Value <> ""
        If .Range("C" & i).Value <> "" Then
            ListBox1.AddItem .Range("A" & i).Value & " " & .Range("B" & i).Value
        End If
        i = i + 1
    Loop
 
End With

Merci pour ta réponse, ceci me permet de filtrer en Listbox1, par contre étant donné que je transfert de la Listbox1 à la Listbox2 l'adresse mail qui se trouve en colonne L, j' obtient une erreur Argument non valide:

J'utilise:
Code:

1 2 3 4 5 6 7 8 9 10 11 For i = 0 To Me.ListBox1.ListCount - 1 If Me.ListBox1.Selected(i) = True Then p = Me.ListBox2.ListCount Me.ListBox2.AddItem Me.ListBox2.List(p, 0) = Me.ListBox1.List(i, 11) End If Next i For i = Me.ListBox1.ListCount - 1 To 0 Step -1 If Me.ListBox1.Selected(i) = True Then Me.ListBox1.RemoveItem i Next i
Et avec ton code il n'y a pas la valeur mail (Colonne L) dans la deuxième Colonne de la Listbox1.

Peut on y remedier. ;)

D'avance Merci

Re bonjour, j'ai trouvé une solution à mon problème,

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
Dim i As Long
Sheets("Feuil1").Activate
Me.ListBox1.MultiSelect = fmMultiSelectMulti
i = 2
ListBox1.ColumnCount = 2
With Sheets("")
    Do While .Range("A" & i).Value <> ""
        If .Range("L" & i).Value <> "" Then
            ListBox1.AddItem .Range("A" & i).Value & " " & .Range("B" & i).Value
      'J'AI AJOUTE:
            ListBox1.List(ListBox1.ListCount - 1, 1) = .Range("L" & i)
 
        End If
        i = i + 1
    Loop
 
End With

et dans mon code commandbutton1

Code:

Me.ListBox2.List(p, 0) = Me.ListBox1.List(i, 1)

au lieu de

Code:

Me.ListBox2.List(p, 0) = Me.ListBox1.List(i, 11)