XL 2013 Ajout de textboxes sur plusieurs lignes d'un tableau selon la parité de la textbox

Créer une discussion
Répondre

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 !

S'inscrire
T

Tubule

XLDnaute Nouveau
Bonjour,

Je cherche à ajouter des textbox issues d'un formulaire dans un tableau. Ces textbox sont numérotées, et je souhaiterais ajouter celles qui sont impaires dans une ligne d'un tableau et celles qui sont paires dans une autre ligne.
J'ai tenté ce code, inspiré de ce forum, mais celui -ci ne fonctionne pas:

VB: 
Dim CTRL As Control
    Dim LO As ListObject
    Dim i As Integer, p As Integer
    Dim ligne As Long
    
   ' ligne = Me.Nom_Dossier.ListIndex + 2
    
    Set LO = Sheets("Feuil1").ListObjects("LO_test")
                
    'La variable i va successivement prendre les valeurs 1, 3, 5
With LO.ListRows.Add(AlwaysInsert:=True) 'Ajout d'une ligne dans les charges
    For i = 1 To 7 Step 2 'Juste les impairs
            For Each CTRL In Me.Controls("TextBox" & i) 'Ajout dans les cases du tableau des dates, selon le numéro du tag
                If Len(CTRL.Tag) Then
                    .Range(1, CLng(CTRL.Tag)) = CTRL.Value
                End If
            Next
    Next i
End With
    
    'For p = 2 To 8 'juste les pairs
            
    Me.Hide
    Unload Me
    
End Sub

J'obtiens le message suivant :"membre de méthode ou donnée introuvable" et ".ListIndex" est surligné. Je ne comprends pas ce qui se passe. Auriez-vous une idée ?
Le fichier est joint
Merci
 

Pièces jointes

Trier par date Trier par votes
Dranreb à dit:
Vous pourriez alors essayer ça :
VB: 
Option Explicit
Private LOtDos As ListObject, LOtVal As ListObject, LCou As Long, TVL()
Private Sub UserForm_Initialize()
   Set LOtDos = Feuil1.ListObjects("TabDos")
   Set LOtVal = Feuil1.ListObjects("TabVal")
   ComboBox1.List = LOtDos.DataBodyRange.Value
   End Sub
Private Sub ComboBox1_Change()
   Dim L As Long, C As Long
   If ComboBox1.MatchFound Then
      LCou = ComboBox1.ListIndex + 1
      TVL = LOtVal.ListRows(2 * LCou - 1).Range.Resize(2).Value
   Else
      LCou = 0
      ReDim TVL(1 To 1, 1 To 4)
      End If
   For L = 1 To 2: For C = 2 To 5
      Me("TextBox" & 2 * (C - 2) + L).Text = TVL(L, C)
      Next C, L
   End Sub
Private Sub Validation_Click() 'Bouton Valider
   Dim L As Long, C As Long, V, Rng As Range
   For L = 1 To 2: For C = 2 To 5
      V = Me("TextBox" & 2 * (C - 2) + L).Text
      If IsNumeric(V) Then TVL(L, C) = CDbl(V)
      Next C, L
   If LCou = 0 Then
      LOtDos.ListRows.Add(AlwaysInsert:=True).Range.Value = ComboBox1.Text
      ComboBox1.List = LOtDos.DataBodyRange.Value
      Set Rng = LOtVal.ListRows.Add(AlwaysInsert:=True).Range
      LOtVal.ListRows.Add AlwaysInsert:=True: Set Rng = Rng.Resize(2)
   Else
      Set Rng = LOtVal.ListRows(2 * LCou - 1).Resize(2)
      End If
   Rng.Value = TVL
   End Sub
Cliquez pour agrandir...

Merci beaucoup pour votre réponse Dranreb.

Ca a l'air super bien codé, par contre je ne comprends pas tout !
J'obtient le message d'erreur suivant : "L'indice n'appartient pas à la sélection", avec cette ligne surlignée :

VB: 
 Me("TextBox" & 2 * (C - 2) + L).Text = TVL(L, C)

Je vous joins le fichier
Auriez-vous une idée ?
Je vous remercie
 

Pièces jointes

Vote positif 0 Vote négatif
Essayez comme ça :
VB: 
Option Explicit
Private LOtDos As ListObject, LOtVal As ListObject, LCou As Long, TVL()
Private Sub UserForm_Initialize()
   Set LOtDos = Feuil1.ListObjects("TabDos")
   Set LOtVal = Feuil1.ListObjects("TabVal")
   ComboBox1.List = LOtDos.DataBodyRange.Value
   ReDim TVL(1 To 1, 1 To 4)
   End Sub
Private Sub ComboBox1_Change()
   Dim L As Long, C As Long
   If ComboBox1.MatchFound Then
      LCou = ComboBox1.ListIndex + 1
      TVL = LOtVal.ListRows(2 * LCou - 1).Range.Resize(2).Value
   Else
      LCou = 0
      ReDim TVL(1 To 2, 1 To 4)
      End If
   For L = 1 To 2: For C = 1 To 4
      Me("TextBox" & 2 * (C - 1) + L).Text = TVL(L, C)
      Next C, L
   End Sub
Private Sub Validation_Click() 'Bouton Valider
   Dim L As Long, C As Long, V, Rng As Range
   For L = 1 To 2: For C = 2 To 4
      V = Me("TextBox" & 2 * (C - 1) + L).Text
      If IsNumeric(V) Then TVL(L, C) = CDbl(V)
      Next C, L
   If LCou = 0 Then
      LOtDos.ListRows.Add(AlwaysInsert:=True).Range.Value = ComboBox1.Text
      ComboBox1.List = LOtDos.DataBodyRange.Value
      Set Rng = LOtVal.ListRows.Add(AlwaysInsert:=True).Range
      LOtVal.ListRows.Add AlwaysInsert:=True: Set Rng = Rng.Resize(2)
   Else
      Set Rng = LOtVal.ListRows(2 * LCou - 1).Range.Resize(2)
      End If
   Rng.Value = TVL
   End Sub
Private Sub Retour_Click() 'Pour le bouton Retour
    'Ajout_Dossier.Show 0 'On retourne au formulaire précédent
   Me.Hide
   Unload Me
   End Sub
 
Dernière édition:
Vote positif 0 Vote négatif
Dranreb à dit:
Essayez comme ça :
VB: 
Option Explicit
Private LOtDos As ListObject, LOtVal As ListObject, LCou As Long, TVL()
Private Sub UserForm_Initialize()
   Set LOtDos = Feuil1.ListObjects("TabDos")
   Set LOtVal = Feuil1.ListObjects("TabVal")
   ComboBox1.List = LOtDos.DataBodyRange.Value
   ReDim TVL(1 To 1, 1 To 4)
   End Sub
Private Sub ComboBox1_Change()
   Dim L As Long, C As Long
   If ComboBox1.MatchFound Then
      LCou = ComboBox1.ListIndex + 1
      TVL = LOtVal.ListRows(2 * LCou - 1).Range.Resize(2).Value
   Else
      LCou = 0
      ReDim TVL(1 To 2, 1 To 4)
      End If
   For L = 1 To 2: For C = 1 To 4
      Me("TextBox" & 2 * (C - 1) + L).Text = TVL(L, C)
      Next C, L
   End Sub
Private Sub Validation_Click() 'Bouton Valider
   Dim L As Long, C As Long, V, Rng As Range
   For L = 1 To 2: For C = 2 To 4
      V = Me("TextBox" & 2 * (C - 1) + L).Text
      If IsNumeric(V) Then TVL(L, C) = CDbl(V)
      Next C, L
   If LCou = 0 Then
      LOtDos.ListRows.Add(AlwaysInsert:=True).Range.Value = ComboBox1.Text
      ComboBox1.List = LOtDos.DataBodyRange.Value
      Set Rng = LOtVal.ListRows.Add(AlwaysInsert:=True).Range
      LOtVal.ListRows.Add AlwaysInsert:=True: Set Rng = Rng.Resize(2)
   Else
      Set Rng = LOtVal.ListRows(2 * LCou - 1).Range.Resize(2)
      End If
   Rng.Value = TVL
   End Sub
Private Sub Retour_Click() 'Pour le bouton Retour
    'Ajout_Dossier.Show 0 'On retourne au formulaire précédent
   Me.Hide
   Unload Me
   End Sub
Cliquez pour agrandir...

Merci beaucoup ça fonctionne presque ! Sauf que le contenu des TextBoxes 1 et 2 ne s'affichent pas, ce n'est peut-être pas grand chose ..?
Par ailleurs, je viens d’étoffer mon fichier mais je ne parviens pas à adapter le code, car il est vraiment trop compliqué pour moi ..
En effet, je souhaite juste ajouter une liste d'interlocuteurs à côté des dossiers, et à chaque fois indiquer automatiquement dans le tableau 2 rôles différents : pour la première ligne insérée, ça serait "rôle1" (avec les textboxes impaires) et la seconde "role2" (avec les textboxes paires).
je vous joins une proposition que j'ai essayé d'adapter , sans succès. Pouvez-vous me dire ce que vous en pensez s'il vous plaît ?
En tout cas c'est super bien codé, merci et bravo
 

Pièces jointes

Vote positif 0 Vote négatif
Il y a trois colonnes maintenant dans le LOtDos ? Il faut préciser les ListColumn alors !
S'il peut y avoir plusieurs dossiers pour un même interlocuteur je vous conseille l'emploi d'un objet ComboBoxLiées du complément à installer depuis cette ressource.
Sinon il y a encore quelque chose qui ne va pas: il y a un nombre impaire de lignes dans le second tableau alors l'ajout de nouvelles lignes ne se fait pas là où il devrait. Peut être vaudrait-il mieux écrire la Validation_Click comme ça :
VB: 
Private Sub Validation_Click() 'Bouton Valider
   Dim L As Long, C As Long, V, Rng As Range
   If LCou = 0 Then
      LOtDos.ListRows.Add(AlwaysInsert:=True).Range.Value = ComboBox1.Text
      ComboBox1.List = LOtDos.DataBodyRange.Value
      LCou = ComboBox1.ListIndex + 1
      While LOtVal.ListRows.Count < 2 * LCou: LOtVal.ListRows.Add AlwaysInsert:=True: Wend
      End If
   Set Rng = LOtVal.ListRows(2 * LCou - 1).Range.Resize(2)
   For L = 1 To 2: For C = 2 To 4
      V = Me("TextBox" & 2 * (C - 1) + L).Text
      If IsNumeric(V) Then TVL(L, C) = CDbl(V)
      Next C, L
   Rng.Value = TVL
   End Sub
Ne pourriez vous vraiment pas faire un seul tableau simple où vous mettez à jour une seule ligne ? Maintenant je sens déjà que vous voulez pouvoir identifier par quelque chose les lignes 1 et 2. Un objet ComboBoxLiées se débrouille pour trouver une ligne correspondant à des critères spécifiés dans plusieurs ComboBox pour différentes colonnes.
 
Dernière édition:
Vote positif 0 Vote négatif
Bonjour Dranreb,

Merci beaucoup pour votre réponse 😀. Je viens de copier votre code et de le modifier un peu, selon vos indications, à savoir :
1-Création d'un seul tableau
2-Nombre pair de lignes (j'ai indiqué dans le tableau le contenu que je voudrais précisément).

En soit, je pourrais ajouter et mettre à jour une seule ligne, mais j'ai sollicité ce forum pour ajouter deux lignes, car sinon, je saurais faire ! Voilà pourquoi j'insiste un peu 🙂
J'ai modifié votre code avec la fusion dans un seul tableau LOtDos. Par ailleurs, j'ai enlevé le tableau TVL, je n'ai pas compris à quoi il servait ; sûrement à lier les données puisque nous avions 2 tableaux ...?)

J'ai regardé les combobox liées ; si j'ai bien compris, cette application est utile lorsque l'on souhaite qu'une combobox soit mise à jour selon une autre combobox modifiée précédemment ; c'est astucieux ! Mais je ne pense pas que ceci soit utile dans mon cas (néanmoins, je serai curieuse de savoir faire !)

Lorsque je tente d'exécuter la macro, le message "L'indice n'appartient pas à la sélection" avec le module "Formulaire.Show 0" surligné en jaune qui apparaît : ainsi, on en peut pas vraiment savoir d'où vient la véritable erreur !
J'ai commenté le code (en pièce jointe) ; pourriez-vous y jeter un oeil s'il vous plaît ?
Merci beaucoup par avance
 

Pièces jointes

Vote positif 0 Vote négatif
Non, TVL servait à accueillir toutes les valeurs de la ligne.
Le ComboBoxLiée permet d'isoler une ligne ou un groupe de lignes ayant en commun les valeurs dans différentes colonnes spécifiées dans plusieurs ComboBox.
Le tableau s'appelle "Tab_Dos" au lieu de "TabDos". Supprimez le "_" dans son nom.
Dans Outils, Options…, Général, Récupération d'erreurs, cochez "Arrêt dans le module de classe"
 
Vote positif 0 Vote négatif
Merci pour votre réponse. Je viens de lire beaucoup de tutos pour les combobox liées, et je viens de faire un essai avec des "projets" hypothétiques, mais je n'y arrive pas... Je pense que mon niveau en VBA est beaucoup trop faible.
Par ailleurs, votre astuce "Arrêt dans le module de classe" est super, car ça me montre bien où est l'erreur ! La ligne suivante est surlignée :

Set Rng = LOtDos.ListRows(2 * LCou - 1).Range.Resize(2)

Je pense que votre code est beaucoup trop complexe pour moi 😕. Qu'est-ce que LCou??!
Je ne comprends pas non plus tout ce paragraphe :

VB: 
Set Rng = LOtDos.ListRows(2 * LCou - 1).Range.Resize(2) 'Je ne comprends pas cette ligne
   For L = 1 To 2: For C = 2 To 4
      V = Me("TextBox" & 2 * (C - 1) + L).Text
      If IsNumeric(V) Then TVL(L, C) = CDbl(V)
      Next C, L
   Rng.Value = TVL

Je n'ai pas non plus compris ce paragraphe, dans "Combobox1_Change :

VB: 
Else 'Si on ajoute un nouveau dossier
      LCou = 0 'Si on ne trouve pas le nom du dossier , la ligne est la numéro 0 donc la dernière
      ReDim TVL(1 To 2, 1 To 4) 'Redimensionnement ?
      End If
   For L = 1 To 2: For C = 1 To 4
      Me("TextBox" & 2 * (C - 1) + L).Text = TVL(L, C) 'Je n'ai pas compris cette ligne ..?
      Next C, L


Pourriez-vous développer en commentant les lignes s'il vous plaît ?
Vous trouverez le classeur ci-joint...merci 🙂
 

Pièces jointes

Vote positif 0 Vote négatif
LCou est généralement le nom que je donne à une variable As Long globale Private destinée à contenir le numéro dans un tableau de la ligne courante en cours de mise à jour.
Set Rng = LOtDos.ListRows(2 * LCou - 1).Range.Resize(2)
définit la variable Rng comme devant représenter la plage couverte par une ligne du tableau dont le numéro est le double de LCou diminué de 1, et rectifié à 2 lignes de haut. J'aime de moins en moins ce système de traitement de 2 lignes à la fois. Je crois que je vais me désabonner de cette discussion.
Ça va être fait tout de suite après cette Édit. Désabonné ! Décidément trop con …
 
Vote positif 0 Vote négatif
Rejoins nos membres "Supporter XLD" et booste ton expérience Excel !
- 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

K
  • Résolu(e)
XL 2016 Affichage TextBox
Réponses
6
Affichages
614
KRUG WOO
K
Nicolas JACQUIN
  • Question Question
XL 2019 Gérer la descente d'une cellule colorer selon un timer
2 3 4
Réponses
56
Affichages
2 K
Rheeem
R
N
  • Résolu(e)
Microsoft 365 Recherche dans un tableau structuré à partir d'une TextBox
Réponses
11
Affichages
738
NONO14
N
N
  • Résolu(e)
Microsoft 365 Transfère de données d'un Userform vers un tableau structuré d'une feuille de calcul
Réponses
4
Affichages
401
NONO14
N
piga25
  • Résolu(e)
XL 2016 En VBA, Automatiser la réponse en fonction de l'état d'une cellule.
Réponses
7
Affichages
641
piga25
piga25
Lu76Fer
  • Question Question
XL 2016 XLS - Comment déterminer les zones présentent au niveau d'une cellule ?
Réponses
2
Affichages
607
Lu76Fer
Lu76Fer
C
  • Question Question
XL 2010 Trier des lignes par nombre de mots pertinent
Réponses
3
Affichages
827
crocrocro
C
P
  • Résolu(e)
XL 2016 VBA Insérer une date dans le nom de fichiers PDF publipostés via WORD à partir d"excel
Réponses
3
Affichages
509
PHIL37
P
N
  • Résolu(e)
Microsoft 365 Rechercher la dernière cellule saisie dans un TS et ajouter l'heure système
18 19 20
Réponses
297
Affichages
70 K
NONO14
N
patricktoulon
  • Question Question
Autres la fonction similaire
Réponses
11
Affichages
764
patricktoulon
patricktoulon
E
  • Résolu(e)
XL 2019 inserer une valeur textbox dans la dernière cellule vide horizontalement
Réponses
7
Affichages
769
escudo
E
N
  • Résolu(e)
Microsoft 365 Supprimer de la liste d'une Combo les données déjà présentes dans une colonne d'un TS
2
Réponses
18
Affichages
911
NONO14
N
B
  • Résolu(e)
Microsoft 365 affecter des valeurs dans un tableau de noms de variable
Réponses
4
Affichages
937
bérylion
B
cathodique
  • Résolu(e)
XL 2010 Mauvaise utilisation de la fonction InStr
Réponses
11
Affichages
829
jurassic pork
jurassic pork
J
  • Question Question
Microsoft 365 macro qui ouvre des fichiers excel de type "analyze in excel" généré par power bi et met à jour un filtre "mois" sur plusieurs tcd
Réponses
0
Affichages
562
JJ69
J
oguruma
EXCEL :: Les Tableaux Structurés :: Une classe VBA - V1.05 - Evolutions majeures exports CSV, XML, XML UTF-8, JSON, HTML, PDF, JPG, JPEG, BMP, EXCEL
Réponses
10
Affichages
912
oguruma
oguruma
A
  • Résolu(e)
XL 2016 Alimentation d'un fichier selon données sélectionnées via une ComboBox
Réponses
3
Affichages
636
Aldonanou
A
Lu76Fer
Corriger les problèmes d'utilisation de certains symboles ASCII
Réponses
10
Affichages
1 K
Lu76Fer
Lu76Fer
B
  • Question Question
XL 2021 Insertions de plus de 10 textbox et combobox dans listbox
Réponses
9
Affichages
1 K
cp4
cp4
Y
  • Question Question
Microsoft 365 récupérer données de tableau structuré sur une plage
Réponses
2
Affichages
638
jpb388
jpb388
Retour