Re,
ok. Mais alors dans le fichier de Amigovba on a bien un tableau appelé Tableau1 :
1- Pourquoi votre code pose problème pour la première ligne ?
2- A quelle étape l'utilisateur a commis une erreur ?
Patrick, inutile de remontrer une vidéo déjà présentée. Je l'ai regardée.
La question est quel code mettre dans sa PJ pour que cela marche.
Il a donc deux solutions :
1- Utiliser mon code dans son fichier existant
2- Refaire sa feuille pour remettre son tableau de façon ad hoc.
Donc, à mon avis, il va prendre la première solution.
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
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