poussy67
XLDnaute Occasionnel
Bonjour/Bonsoir
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
Cdt Poussy67
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
Cdt Poussy67