Vous utilisez un navigateur obsolète. Il se peut que ce site ou d'autres sites Web ne s'affichent pas correctement. Vous devez le mettre à jour ou utiliser un navigateur alternatif.
Boostez vos compétences Excel avec notre communauté !
Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force.
Apprenez, échangez, progressez – et tout ça gratuitement !
👉 Inscrivez-vous maintenant !
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
- Navigue sans publicité - Accède à Cléa, notre assistante IA experte Excel... et pas que... - Profite de fonctionnalités exclusives Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel. Je deviens Supporter XLD