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...
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Daniel.C
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
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
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
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 --
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
--
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 --