erreur 438

Le
Cyr73
Bonsoir,

besoin d'aide sur une erreur 438
Provoquée par le click sur une listeox2 se trouvant
sur userform4.multipage1.page2

voici le code

Private Sub ListBox2_Click()

TextBox19.Value = MultiPage1.ListBox2.Column(1)
TextBox20.Value = MultiPage1.ListBox2.Column(2)
TextBox21.Value = MultiPage1.ListBox2.Column(5)
End Sub
--
un grand merci à ceux qui pourront
m''''''''aider
Vidéos High-Tech et Jeu Vidéo
Téléchargements
Vos réponses
Gagnez chaque mois un abonnement Premium avec GNT : Inscrivez-vous !
Trier par : date / pertinence
Daniel.C
Le #17815681
Bonsoir.
With Me.MultiPage1.Pages(1).ListBox2
TextBox19.Value = .List(ListIndex, 0) ' colonne 1
TextBox20.Value = .List(ListIndex, 1) ' colonne 2
' etc.
End With
Cordialement.
Daniel

Bonsoir,

besoin d'aide sur une erreur 438
Provoquée par le click sur une listeox2 se trouvant
sur userform4.multipage1.page2

voici le code

Private Sub ListBox2_Click()

TextBox19.Value = MultiPage1.ListBox2.Column(1)
TextBox20.Value = MultiPage1.ListBox2.Column(2)
TextBox21.Value = MultiPage1.ListBox2.Column(5)
End Sub


Cyr73
Le #17834711
bonjour, Daniel.C

et merci par contre j'ai changer, car cela ne fonctionnait pas,
peut être une infos que je n'ai pas donnée.
mais merci beaucoup cela marche maintenant.

Private Sub ListBox2_Click()
With Me.MultiPage1.Pages(2)
TextBox19.Value = ListBox2.Column(1) ' colonne 1
TextBox20.Value = ListBox2.Column(2)
TextBox21.Value = ListBox2.Column(5)
End With
End Sub
--
Publicité
Poster une réponse
Anonyme