Code erreur VBA range

sylvanu à dit:

Bonjour Patrick,

C'est ce que j'essaie de faire, Maitre.
Mais si le tableau est vide alors votre macro commence en ligne 2, la ligne 1 est ignorée.
Regarde la pièce jointe 1184338

Lorsque j'applique ma macro :

VB:

Private Sub Valider_Click()
Dim ligne As Long, Target As Range, NomImg As String, i%
    If [Tableau1].Item(1, 1) = "" Then ligne = 1 Else ligne = 1 + [Tableau1].ListObject.ListRows.Count
    For i = 1 To 6
        [Tableau1].Item(ligne, i) = UserForm1.Controls("TextBox" & i).Value
    Next i
End Sub

La ligne 1 est bien prise comme référence au début :
Regarde la pièce jointe 1184339

En quoi mon code n'est pas conçu "de la bonne manière" ?

Cliquez pour agrandir...

sylvanu à dit:

Bonjour Patrick,

C'est ce que j'essaie de faire, Maitre.
Mais si le tableau est vide alors votre macro commence en ligne 2, la ligne 1 est ignorée.
Regarde la pièce jointe 1184338

Lorsque j'applique ma macro :

VB:

Private Sub Valider_Click()
Dim ligne As Long, Target As Range, NomImg As String, i%
    If [Tableau1].Item(1, 1) = "" Then ligne = 1 Else ligne = 1 + [Tableau1].ListObject.ListRows.Count
    For i = 1 To 6
        [Tableau1].Item(ligne, i) = UserForm1.Controls("TextBox" & i).Value
    Next i
End Sub

La ligne 1 est bien prise comme référence au début :
Regarde la pièce jointe 1184339

En quoi mon code n'est pas conçu "de la bonne manière" ?

Cliquez pour agrandir...