Bonsoir,
J'ai regardé un petit peu, je suis entrain de construire une base donée avec un ID des salariés de ma boite, Je peux te fournir un code, mais il fonctionne avec un ID (numéro de ligne)
Voir avec les pros du forum comment l'adapter pour toi
Ton tableau de base devient un tableau au sens listobjects : ton rowsource de ta LBxFournisseur devient Tableau1
Ta listbox devient :
Private Sub LBxFournisseur_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
Dim Line As Long
On Error Resume Next
Line = Me.LBxFournisseur.ListIndex
Me.TxtBEntreprise = Me.LBxFournisseur.Column(1, Line)
Me.TxtBMailEntreprise = Me.LBxFournisseur.Column(2, Line)
Me.TxtBTelephone = Me.LBxFournisseur.Column(3, Line)
Me.TxtBPortabl = Me.LBxFournisseur.Column(4, Line)
Me.TxtBSiteWeb = Me.LBxFournisseur.Column(5, Line)
Me.TxtBRue = Me.LBxFournisseur.Column(6, Line)
Me.TxtBCodePostal = Me.LBxFournisseur.Column(7, Line)
Me.TxtBVille = Me.LBxFournisseur.Column(8, Line)
Me.TxtBPays = Me.LBxFournisseur.Column(9, Line)
Me.Ref = Me.LBxFournisseur.Column(0, Line) 'Ligne
ThisWorkbook.RefreshAll
End Sub
Ton bouton modifier devient :
Private Sub BtnModifF_Click()
If Me.TxtBEntreprise = "" Then
MsgBox "Aucune data modifier"
Else
With Sheets("bdd2")
.ListObjects(1).DataBodyRange(Me.Ref, 2) = Me.TxtBEntreprise
.ListObjects(1).DataBodyRange(Me.Ref, 3) = Me.TxtBMailEntreprise
.ListObjects(1).DataBodyRange(Me.Ref, 4) = Me.TxtBTelephone
.ListObjects(1).DataBodyRange(Me.Ref, 5) = Me.TxtBPortabl
.ListObjects(1).DataBodyRange(Me.Ref, 6) = Me.TxtBSiteWeb
.ListObjects(1).DataBodyRange(Me.Ref, 7) = Me.TxtBRue
.ListObjects(1).DataBodyRange(Me.Ref, 8) = Me.TxtBCodePostal
.ListObjects(1).DataBodyRange(Me.Ref, 9) = Me.TxtBVille
.ListObjects(1).DataBodyRange(Me.Ref, 10) = Me.TxtBPays
End With
Me.TxtBEntreprise = ""
Me.TxtBMailEntreprise = ""
Me.TxtBTelephone = ""
Me.TxtBPortabl = ""
Me.TxtBSiteWeb = ""
Me.TxtBRue = ""
Me.TxtBCodePostal = ""
Me.TxtBVille = ""
Me.TxtBPays = ""
ThisWorkbook.RefreshAll
ThisWorkbook.Save
End If
End Sub