Bon, je me suis réjouis trop vite.
Je n'arrive pas à modifier le code pour qu'il fonctionne avec mon projet.
Voici le code :
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
Je ne sais pas comment faire pour que le contenue de ma ListBox soit envoyé dans la bonne cellule après recherche.
J'ai un message d'erreur:
Erreur de compilation:
Référence incorrecte ou non qualifiée
Surbrillance sur
(.List)