Code erreur VBA range

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 !

AMIGOVBA

XLDnaute Nouveau
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

1700542668808.png
 
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.
 
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" ?
je sais d'apres moi c'est la stuctture du tableau de depart avec des conditions de presentaton.
 
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" ?
c'est mon tableau de depart qui genere cette chose la.
 
- 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

Discussions similaires

Réponses
3
Affichages
197
Réponses
12
Affichages
245
Réponses
8
Affichages
331
  • Question Question
Microsoft 365 Erreur UBound
Réponses
4
Affichages
164
Réponses
6
Affichages
181
Retour