Cellule libre à atteindre

[PAT53]

Je me suis construit une base de données pour gérer mon imposante (3000 titres environ) bibliothèque de DVD (je ne maîtrise pas encore assez ACCESS). Existe-t-il une fonction ou une macro (ou une instruction en VBA) qui permet d’aller directement à la première ligne LIBRE de la base de données. Je sais identifier ladite ligne (via un décompte de lignes avec ESTTEXTE) mais pas y aller automatiquement. Merci de votre éclairageDVD 311220.xlsm (481,9 Ko)

[Mimimathy]

Bonjour,
Tu as déjà sur un de tes module un exemple de première ligne vide

' Pour le bouton CRÉER
'
Private Sub CommandButton1_Click()
    Dim L As Integer
    Dimx1Up As Integer
    If MsgBox("Confirmez-vous l'insertion de ce nouveau titre ?", vbYesNo, "Demande de confirmation d'ajout") = vbYes Then
        L = Sheets("DVD").Range("a1000000").End(X1Up).Row + 1
        Range("A" & L).Value = ComboBox1
        Range("B" & L).Value = ComboBox2
        Range("C" & L).Value = TexBox2
        Range("D" & L).Value = ComboBox4
        Range("E" & L).Value = TexBox1
    End If       
End Sub

Sauf que tu as une erreur sur la recopie, c’est plutôt XLUp au lieu de X1Up (à corriger sur les autres macro également)

L = Sheets("DVD").Range("a1000000").End(XlUp).Row + 1