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

fosters · 9 Avril 2018

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.

VB:

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 · 10 Avril 2018

Bonjour fosters, le Forum

VB:

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 · 10 Avril 2018

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

BOISGONTIER · 10 Avril 2018

Bonjour,

cf PJ

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

JB

fosters · 10 Avril 2018

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

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

fosters

XLDnaute Occasionnel

Pièces jointes

Lone-wolf

XLDnaute Barbatruc

Dranreb

XLDnaute Barbatruc

BOISGONTIER

XLDnaute Barbatruc

Pièces jointes

fosters

XLDnaute Occasionnel

Discussions similaires