Bonjour à tous,
C'est encore moi
Seul le champ en combobox passe pas en ajout de ligne,
savez vous pkoi ?

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
 
'Nouvel enregistrement
Private Sub btnEnregClt_Click()
    Dim i%, lig As ListRow, ws1 As Worksheet
    Set ws1 = Sheets("Clients")
   With [Clts].ListObject
        Set lig = .ListRows.Add  'ajout ligne vierge à la fin du tableau structuré
        i = lig.Index 'indice ligne ajoutée
        .ListColumns("Code client").DataBodyRange(i) = Me.codClt.Value
        .ListColumns("Nom").DataBodyRange(i) = Me.nomClt.Value 'LD
        .ListColumns("Adresse").DataBodyRange(i) = Me.adrClt.Value
        .ListColumns("Code postal").DataBodyRange(i) = Me.CPclt.Value
        .ListColumns("Ville").DataBodyRange(i) = Me.villClt.Value
        .ListColumns("Email").DataBodyRange(i) = Me.mailClt.Value
        .ListColumns("Tel").DataBodyRange(i) = Me.telClt.Value
    End With
forum.xlsm

Merci