Bonjour,
il faudrait modifier la procédure permettant d'ajouter un nouvel enregistrement dans la base de donnée'
Private Sub btnAjout_Click()
Dim i As Integer
ctrl = Array("txtNom", "txtPrenom", "txtAdresse", "txtCP", "txtVille", "txtTelephone", "txtMail")
For i = 0 To Me.lbMobilite.ListCount - 1
If Me.lbMobilite.Selected(i) Then
Mobilite = Mobilite & Me.lbMobilite.List(i) & ";"
End If
Next i
For i = 0 To Me.lbCompetence.ListCount - 1
If Me.lbMobilite.Selected(i) Then
Competence = Competence & Me.lbCompetence.List(i) & ";"
End If
Next i
With Sheets("Base de donnée intervenants")
lastRow = .Cells(Rows.Count, 1).End(xlUp).Row + 1
For i = 1 To 6
.Cells(lastRow, i) = Me.Controls(ctrl(i - 1))
Next
.Cells(lastRow, 8) = Competence
.Cells(lastRow, 9) = Mobilite
.Cells(lastRow, 10) = Me.Controls("txtCommentaire")
End With
MsgBox "Votre intervenant a bien été ajouté à votre base de données", vbOKOnly + vbInformation, "Confirmation"
End Sub
edit:
il faut modifier
For i = 1 To 6
par
For i = 1 To 7