XL 2016 Impossible de définir la propriété Value.

[fosters]

Bonsoir a tous,

Je me permets de vous contact au sujet d’un UserForm que j’ai trouvé sur le site de Mr Boisgontier , qui par ailleurs est très enrichissant.

J’ai voulu adapter l’adapter mais je rencontre le problème suivant lorsque je clique dans une ligne de la listbox1.

Ça affiche le message suivant : Impossible de définir la propriété Value.

Private Sub ListBox1_Click()
  For i = 1 To NbCol
  Me("textbox" & i) = Me.ListBox1.Column(i - 1)
  Next i
  Me.Enreg = Me.ListBox1.Column(Ncol)
End Sub

Pouvez m’aider à résoudre ce problème ?

Bonne soirée

Cordialement

 

[Lone-wolf]

Bonjour fosters, le Forum

Private Sub ListBox1_Click()
On Error Resume Next
  For i = 1 To 28
     Controls("TextBox" & i) = ListBox1.List(ListBox1.ListIndex, i - 1)
   Next i
  Me.Enreg = Me.ListBox1.Column(Ncol)
End Sub

 

[Dranreb]

Bonsoir.
Oui, mais ça fait pareil.
Apparemment ça tombe sur les #DIV/0 de la colonne P

 

[BOISGONTIER]

Bonjour,

cf PJ

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

JB

 

[fosters]

Bonsoir Lone-wolf, Dranred, Boisgontier , le forum,

Merci d'avoir rendu a ma demande, merci boisgontier c est corriger et cela fonctionne, félicitations pour votre site.

Bonne soirée a tous
Cordialement