Re
Normalement, avec cette toute petite modif (parties en gras), ça devrait fonctionner comme tu le souhaites :
Private Sub ButtonAjouter_Click()
Dim lif As Long 'déclare la variable Lif
'définit la variable Lif (dernière ligne du tableau)
lif = Worksheets('Données').Range('A65536').End(xlUp).Row + 1
'place les données des TextBoxes dans le tableau
With Sheets('Données')
For i = 1 To 11
.Cells(lif, i) = Me.Controls('textbox' & i).Value
Next i
.Cells(
lif, 13) = iif(Me.CheckBox1, 'OUI', 'NON') ' colonne M
.Cells(
lif, 13) = iif(Me.CheckBox2, 'OUI', 'NON') ' colonne N
.Cells(
lif, 13) = iif(Me.CheckBox3, 'OUI', 'NON') ' colonne L
End With
MsgBox 'Enregistrement ajouté'
Unload Me 'vide et ferme l'Userforum1
UserForm1.Show 'affiche l'Userform1
End Sub
A+
Edition
J'ai oublié pour le 'oui' et le 'non' dans la première procédure, mais tu fais de la même manière que dans celle-ci
Message édité par: Charly2, à: 12/01/2006 01:31