Code erreur VBA range

[AMIGOVBA]

Bonjour, j'ai créé un formulaire pour remplir un fichier Excel, dont voici le code et j'ai cette erreur.

J'aimerais votre avis merci à tous

 

[sylvanu]

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 ?

 

[patricktoulon]

re
je le montre dans la vidéo sylvanu
allez je le remontre

 

[sylvanu]

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.

 

[patricktoulon]

re
non il fait un click droit sur la ligne et suppr c'est tout
et il code ces operations de facon ad hoc

 

[patricktoulon]

Tableaux structurés Excel

Tableaux structurés Excel

fauconnier.developpez.com

Fonctions en VBA pour gérer les Tableaux Structurés d’Excel

Fonctions en VBA pour gérer les Tableaux Structurés d’Excel

laurent-ott.developpez.com

 

[AMIGOVBA]

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 :

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" ?

je sais d'apres moi c'est la stuctture du tableau de depart avec des conditions de presentaton.

 

[AMIGOVBA]

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 :

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" ?

c'est mon tableau de depart qui genere cette chose la.

 

[patricktoulon]

re
Bonjour
oui
si tu regarde bien la 2d vidéo tu comprends tout de suite pourquoi