Bonjour le forum,
Je galère avec une ListBox.
Comment transposer une ListBox dans une feuille excel avec une recherche dans un tableau.
Voici le code :
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
D'avance, merci
Je galère avec une ListBox.
Comment transposer une ListBox dans une feuille excel avec une recherche dans un tableau.
Voici le code :
VB:
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
Code:
(.List)
D'avance, merci