Discussion :

[Mr l'Ashanti]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[Thumb down]

Bonjour,

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[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