Private Sub CButton_Enregistrer_Click()
If MsgBox("Voulez-vous enregistrer la modification ?", vbYesNo, "Demande de confirmation") = vbYes Then
End If
Set Ta = ThisWorkbook.Sheets("BD")
Set A = Ta.Range("A:A").Cells.Find(Me.TB_Entreprise, , xlValues, xlWhole) 'recherche rang dans tableau "BD"
If Not A Is Nothing Then
Ta.Cells(A.Row, 3) = TB_Adresse_Potale.Value
Ta.Cells(A.Row, 5) = TB_Adresse_Physique.Value
Ta.Cells(A.Row, 4) = TB_Ville.Value
Ta.Cells(A.Row, 6) = TB_Pays.Value
Ta.Cells(A.Row, 7) = TB_Téléphone.Value
Ta.Cells(A.Row, 8) = ListBox1.Application.Transpose(.List)
End If
End Sub