XL 2016 modification avec listbox

[poussy67]

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

 

[Hasco]

Bonjour,

Le premier paramètre de Column doit être un entier compris entre 0 et le nombre de colonnes moins 1 :

Me.Enreg = Me.ListBox1.Column(NbCol - 1)

Cordialement

 

[ChTi160]

Bonjour poussy67
Bonjour le Fil (Roblochon) ,le Forum
peut être aussi

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

jean marie

 

[poussy67]

Bonjour Roblochon et ChTi60

Impect ça marche nickel

Merci beaucoup bonne journée

 

[BOISGONTIER]

Bonsoir,

Exemple:

http://boisgontierjacques.free.fr/fichiers/Formulaire/FormFiltreAutoEnsembleVBA3crit.xls

Boisgontier