Bonjour a tous je me permet de mettre si dessous un de mes essai
Private Sub BtnModifierRecherche_Click()
Dim z As Long
If Me.LBxRecherche = "" Then
MsgBox "Aucune données a modifier"
Else
With Worksheets("bdd1")
z = LBxRecherche.ListIndex + 2
ModifCommande.TxtBDesignationProduit = .Cells(z, "A")
ModifCommande.TxtBDestinataire = .Cells(z, "B")
ModifCommande.CbBSite = .Cells(z, "C")
ModifCommande.CBFournisseur = .Cells(z, "D")
ModifCommande.CbBEtatlivraison = .Cells(z, "E")
ModifCommande.CbBServiceFait = .Cells(z, "F")
ModifCommande.TxtBNumDA = .Cells(z, "G")
ModifCommande.TxtBDateDA = .Cells(z, "H")
ModifCommande.TxtBDV = .Cells(z, "i")
ModifCommande.TxtBNumBC = .Cells(z, "J")
ModifCommande.TxtBDateBC = .Cells(z, "K")
ModifCommande.TxtDateCc = .Cells(z, "l")
ModifCommande.TxtBDateL = .Cells(z, "M")
End With
ModifCommande.Show
End If
End sub
cela ne sélectionne pas la bonne commande et ne fonctionne pas quand j'enregistre la modification