Salut Le Forum,

Je bosse sur un usf de saisie qui viens compléter ma feuille BDD sur la dernière ligne (ou la première ligne non vide)

Tous les texbox, listbox (.controls) ..... sont tagés avec les numéros des colonnes de destination.

J'ai un doute où placer la variable LastLigne

Qqn aurait une idée ?

PS 1 : ce code me sert à ouvrir mon usf en chargant les données de la BDD
PS 2 : Je n'ai pas encore fais de fichier test ...

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
 
 
Private Sub FIN_Click()
 
Dim lig As Long
Dim LastLigne as integrer
 
    If MsgBox("Ajouter une nouvelle ligne ? ", vbYesNo, " Demande de confirmation d’ajout ") = vbYes Then
 
LastLigne = Sheets("BDD").Range("a65536").End(xlUp).Row + 1
 
    Dim c, x&
    If lig = 0 Or lig = "" Then Exit Sub
    For Each c In Me.Controls
        If c.Tag <> "" Then
            x = c.Tag
            If IsDate(c.Value) Then
                FEUILLE2.Cells(lig, x).Value = CDate(c.Value)
            Else
                FEUILLE2.Cells(lig, x).Value = c.Value
            End If
        End If
    Next
 
    End If
 
UserForm_Initialize
 
End If
End Sub