RESOLU - Bug dans code

[castor30]

Bonjour le forum,
J'ai un bug dans ce début de code (j'ai du faire une bourde) car la Listbox ne se remplit pas.
En vous remerciant de m'éclairer.

Sub Valider_Click()
Dim f As Worksheet
Dim r As Range
Dim c As Range
Dim a As String

malist = Range("Noms")
Me.ListBox1.List = malist

   Application.ScreenUpdating = False
  'Chercher le nom et le prénom dans la base de données
  With Worksheets("Base")
    Set r = .Range("A2", .Range("A" & .Rows.Count).End(xlUp))
  End With
  Set c = r.Find(What:=ListBox1.Value, LookIn:=xlValues, lookat:=xlWhole)
  If Not c Is Nothing Then a = c.Address
  Do While Not c Is Nothing
  'Vérifier le prénom
  If c.Offset(0, 1).Value = ListBox1.List(ListBox1.ListIndex, 1) Then Exit Do
  Set c = r.FindNext
  If c.Address = a Then Set c = Nothing
  Loop

 

[Iznogood1]

Bonjour,

peux-tu joindre ton fichier ?

 

[castor30]

Bonjour Iznogood1,
Je te remercie, mais j'ai trouvé, cela venait de ces lignes qui n'avaient pas leurs place.
malist = Range("Noms")
Me.ListBox1.List = malist