RESOLU - Bug dans code

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

castor30

XLDnaute Occasionnel
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.
VB:
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
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

Réponses
10
Affichages
281
Réponses
4
Affichages
461
  • Question Question
Microsoft 365 worksheet_change
Réponses
29
Affichages
479
Réponses
4
Affichages
223
Réponses
2
Affichages
153
Retour