Discussion :

[RicardoBxl]

Bonjour,

Me revoilà encore.

J'ai créer un UserForm dans lequel une ListBox fait apparaître des noms (emails dans le futur). Cette ListBox est initialisé au chargement du UserForm en allant récupérer les données se trouvant dans une feuille Contacts. Les données sont les unes en dessous des autres. Pas de soulignement les séparant.

Ma question est:

Pourquoi ai-je ces lignes entre chaque nom ?

Il est à noter que si je clique avec la souris sur un des noms et tire vers le bas les lignes disparaissent.

D'avance merci de vos idées ou et solutions.

Bien à vous,

Ricardo

Code de l'initialisation du UserForm (Contacts_Emails)

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
Private Sub Contacts_Emails_Initialize()
 
Dim R As Range
 
Set R = Sheets("Contacts").[A1].CurrentRegion
 
'--- vire la ligne de titres ---
Set R = R.Offset(1, 0).Resize(R.Rows.Count - 1, R.Columns.Count)
'---
var = R
With ListBox_Contacts
  .ColumnCount = UBound(var, 2)
  .MultiSelect = fmMultiSelectMulti
  .List = var
End With
 
Set R = Nothing
 
End Sub