Variable tableau (Indice n'appartenant pas à la sélection)

Version imprimable

Bonjour à vous
je continue mon autoformation sur les variables tableaux.
mon exercice d'aujourd'hui se porte sur l'enregistrement dans une variable tableau. lors de l'exécution du code
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 Private Sub CommandButton1_Click() Dim Ligne As Integer Dim CompTextbox As Byte, compteur As Integer Dim Tablo(), C() With Worksheets(1) Tablo = .Range("Tableau1").Value 'If Not .ListObjects(1).DataBodyRange Is Nothing Then ReDim C(LBound(Tablo) To UBound(Tablo)) For compteur = 0 To UBound(C) For CompTextbox = 1 To 4 If Me("TextBox" & CompTextbox) <> "" Then C(compteur, CompTextbox - 1) = Me("TextBox" & CompTextbox) End If Next Next 'End If .ListObjects(1).ListRows.Add Ligne = .Cells(.Rows.Count, 1).End(xlUp).Row .Cells(Ligne, CompTextbox) = C End With End Sub
la ligne est surlignée est je reçois le message qui est mentionné dans mon titre: l'indice n'appartient pas à la sélection.

j'ai besoin de votre aide . merci

Bonjour,

Code:

1
2
3
Tablo = .Range("Tableau1").Value 'te renvoi un table qui commence en 1,1!
ReDim C(LBound(Tablo, 1) To UBound(Tablo, 1), LBound(Tablo, 2) To UBound(Tablo, 2))
c(1, 1)="TOTO"

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
Private Sub CommandButton1_Click()
Dim Ligne As Integer
Dim CompTextbox As Byte, compteur As Integer
Dim Tablo(), C()
With Worksheets(1)
      Tablo = .Range("Tableau1").Value
    'If Not .ListObjects(1).DataBodyRange Is Nothing Then
   ReDim C(LBound(Tablo, 1) To UBound(Tablo, 1), LBound(Tablo, 2) To UBound(Tablo, 2))
        For compteur = 1 To UBound(C) 'For compteur =LBound(C) To UBound(C)            For CompTextbox = 1 To 4
                If Me("TextBox" & CompTextbox) <> "" Then
                    C(compteur, CompTextbox) = Me("TextBox" & CompTextbox)
                End If
            Next
        Next
    'End If
.ListObjects(1).ListRows.Add
Ligne = .Cells(.Rows.Count, 1).End(xlUp).Row
.Cells(Ligne, CompTextbox) = C
End With
End Sub

28/10/2022, 19h07
Valtrase

Salut,
J'ai pas trop compris où tu voulais en venir, donc petites questions
Pourquoi passer par Tablo pour avoir tes bornes ? Columns.Count et ListRows.Count de ton TS pourrait très bien faire l'affaire.
Si tu ajoutes une ligne à ton tableau (.ListObjects(1).ListRows.Add) nul besoin de calculer la position (Ligne = .Cells(.Rows.Count, 1).End(xlUp).Row) puisque la ligne sera sélectionnée, mais il vaut mieux l'affecter (Dim lstRow as ListRow : Set lstRow = .ListObjects(1).ListRows.Add)
Ensuite tu peux travailler avec les objets Range de ta ligne lstRow.Range(1).Value = TextBox1.Value