RESOLU - Listbox EC ne reprend pas le dernier Nom

[castor30]

Bonjour à tous, le forum,
Je viens de m'apercevoir que le Listbox EC ne reprend pas le dernier nom, pouvez-vous corriger ce "bug"
En vous remerciant.

 

[Chris24]

Bonjour

Dands la procédure UserForm_Initialize

' indique le nombre de noms
With Sheets("Base")
NbC = .Range("A" & .Rows.Count).End(xlUp).Row -1
End With

enlève le -1

Bonne journée

 

[Brice G]

Bonjour,
je crois que cela fonctionne dorénavant.
Il y avait une petite erreur dans le code, ici :

Private Sub UserForm_Initialize()
'Définit le nombre de colonnes des ListBox's
Me.ListBox_body.ColumnCount = 2
Me.ListBox_header.ColumnCount = 2
Dim I As Byte, J As Byte
Dim NbC As Integer

'Définit la largeur des colonnes d'une ListBox:
ListBox_body.ColumnWidths = "75;75"
' indique le nombre de noms
With Sheets("Base")
NbC = .Range("A" & .Rows.Count).End(xlUp).Row
End With
For I = 2 To NbC
'Ajoute une ligne et insère une donnée dans la colonne de gauche
ListBox_body.AddItem Worksheets("Base").Range("a" & I).Value
'Ajoute des données dans les colonnes de droite
For J = 1 To 2
ListBox_body.List(ListBox_body.ListCount - 1, J) = Worksheets("Base").Range("b" & I).Value 'i & j
Next J
Next I
End Sub



Où il y avait un "-1".


Edit : Super, je crois que nous sommes d'accord alors Chris.

 

[Papou-net]

Bonjour Castor30, Chris24, Brice G, le Forum,

Autre façon de charger ListBox_Body sans utiliser de boucle:

Private Sub UserForm_Initialize()
'Définit le nombre de colonnes des ListBox's
Me.ListBox_body.ColumnCount = 2
Me.ListBox_header.ColumnCount = 2
Dim I As Byte, J As Byte
Dim NbC As Integer

'Définit la largeur des colonnes d'une ListBox:
ListBox_body.ColumnWidths = "75;75"

'Charge ListBox_Body avec les données des colonnes A:B
ListBox_body.List = Feuil3.Range("A2:B" & Rows.Count).SpecialCells(xlCellTypeConstants).Value
End Sub
​

Bonne journée à tous.

Cordialement.

 

[Brice G]

Au passage, il me semble qu'il manquait un End With avant le dernier end sub.

 

[castor30]

Bonjour et un grand merci à vous tous.