Discussion :

[ben59]

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

[jfontaine]

Bonjour

Une solution par code

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

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

[ben59]

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 :

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

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

[ben59]

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

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

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

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

au lieu de

Code :

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

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