j'ai un message "d'erreur d'exécution '2147024809 (80070057) Impossible de lire la propriété Column. argument non valide."que je n'arrive pas à résoudre.
Quand je selectionne dans la listbox une ligne, je peux modifier, supprimer la ligne. Mais quand j'utilise le filtre de recherche des que je clic sur une ligne dans ma
listebox, j'ai le message d'erreur sur:
Private Sub ListBox1_Click()
For c = 1 To NbCol
tmp = Me.ListBox1.Column(c - 1)
If Not IsError(tmp) Then Me("TextBox" & c) = tmp
Next c
Me.Enreg = Me.ListBox1.Column(NbCol)
End Sub
Je joint un fichier exemple
Merci d'avance pour le coup de pouce
Bonjour poussy67
Bonjour le Fil (Roblochon) ,le Forum
peut être aussi
VB:
Private Sub ListBox1_Click()
With Me.ListBox1
For c = 0 To NbCol - 1
tmp = .List(.ListIndex, c)
If Not IsError(tmp) Then Me("TextBox" & 1 + c) = tmp
Next c
Me.Enreg = .List(.ListIndex, .ColumnCount - 1)
End With
End Sub