cathodique
XLDnaute Barbatruc
Bonsoir,
La listbox n'accepte pas plus de 10 colonnes, or je voudrais transférer 9 textbox et 2 combobox (pour simplifier car dans mon fichier original, j'ai 2 boutons d'option dans une frame).
Pour 10 contrôles c'est bon, le 11ème le code plante. Besoin de votre aide merci.
Bonne soirée.
La listbox n'accepte pas plus de 10 colonnes, or je voudrais transférer 9 textbox et 2 combobox (pour simplifier car dans mon fichier original, j'ai 2 boutons d'option dans une frame).
Pour 10 contrôles c'est bon, le 11ème le code plante. Besoin de votre aide merci.
VB:
Private Sub CommandButton1_Click()
Me.ListBox1.AddItem Me.TextBox1
n = Me.ListBox1.ListCount - 1
Me.ListBox1.List(n, 1) = Me.ComboBox1
Me.ListBox1.List(n, 2) = Me.TextBox2
Me.ListBox1.List(n, 3) = Me.ComboBox2
Me.ListBox1.List(n, 4) = Me.TextBox3
Me.ListBox1.List(n, 5) = Me.TextBox4
Me.ListBox1.List(n, 6) = Me.TextBox5
Me.ListBox1.List(n, 7) = Me.TextBox6
Me.ListBox1.List(n, 8) = Me.TextBox7
Me.ListBox1.List(n, 9) = Me.TextBox8
' Me.ListBox1.List(n, 10) = Me.TextBox9 '*** plante ici
For i = 1 To 9: Me("textbox" & i) = "": Next i
For i = 1 To 2: Me("combobox" & i) = "": Next i
Me.TextBox1.SetFocus
End Sub