Créer une liste de personne disponibles à partir d'une base de donnée

Bonjour,

J'aimerais essayer, à partir d'une base d'une base de donnée où les gens ont donné leurs disponibilités, faire une petite fonction qui me permette, une fois un jour renseigné sur la page d'accueil, qui est disponible.

Là où je suis bloqué, c'est pour faire apparaître le second nom disponible en dessous du premier.

Voilà ce que j'ai essayé de faire (c'est surement pas terrible) :

Sub dispo()
Dim numero As Integer
numero = 2
Do While numero <= 20

If Sheets("Accueil").Range("B4") >= Sheets("Dispos").Cells(numero, 4) Then
If Sheets("Accueil").Range("B4") <= Sheets("Dispos").Cells(numero, 5) Then

If Sheets("Accueil").Range("J5") = "" Then
Sheets("Accueil").Range("J5") = Sheets("Dispos").Range(numero, 1)
Else: Sheets("Accueil").ListObjects(1).ListRows.Add
End If
End If
End If
dln = Sheets("Accueil").Range("J1048576").End(x1Up).Row
Sheets("Acceuil").Cells(dln, 10) = Sheets("Dispos").Cells(numero, 1)

numero = numero + 1
Loop
End Sub

Merci d'avance !

Hello,

Salut

Une proposition a partir de ton code

Sub dispo()
Dim numero As Integer, j%
j = 0
Sheets("Accueil").Range("J5:J100").ClearContents
For numero = 2 To 20
    If Sheets("Accueil").Range("B4").Value >= CDate(Sheets("Dispos").Cells(numero, 4).Value) And Sheets("Accueil").Range("B4").Value <= CDate(Sheets("Dispos").Cells(numero, 5).Value) Then
        Sheets("Accueil").Range("J5").Offset(j, 0).Value = Sheets("Dispos").Cells(numero, 1)
        j = j + 1
    End If
Next numero
End Sub

Merci les gars ca marche très bien !