Discussion :

[Sitting_bull]

Bonjour à tous, je sollicite un peu (beaucoup) d'aide pour la réalisation de mon code VBA.
J'expose ici dans un premier temps de façon textuelle mon problème. Je dispose d'un formulaire à remplir (merci @Cousinhub pour l'aide).

Voici les noms des objets de mon formulaire
vrflan, vlanlan, descriplan, sublan24 et commfinal3

Je souhaite lorsque je clique sur le bouton createbt, que les valeurs de ses champs soient copiés dans mon tableau structuré "Spines_L3", que j'ai déclaré comme suit
TS_spine As ListObject
Set TS_spine = Range("Spines_L3").ListObject

Valeurs à copier à la suite de la dernière ligne du tableau structuré où la cellule B est libre
en gros si Cellule B est vide dans TS_spine alors je copie:

la valeur du combobox vrflan doit aller colonne B de mon TS_spine

la valeur de vlanlan doit aller colonne M de mon TS_spine

la valeur de descriplan doit aller colonne K de mon TS_spine

la valeur de sublan24 doit aller colonne H de mon TS_spine

la valeur de commfinal3 doit aller colonne E de mon TS_spine

En vous remerciant par avance

Bruno

[deedolith]

Hello,

Il suffit d'écrire après la dernière ligne du TS
Exemple:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
Dim wb As Excel.Workbook
Set wb = ThisWorkbook
 
Dim ws As Excel.Worksheet
Set ws = wb.Worksheets("Feuil1")
 
Dim TS As Excel.Range
Set TS = ws.Range("Tableau1")
 
Dim RowCount As Long
RowCount = TS.Rows.Count
TS.Cells(RowCount + 1, 1) = "fgh"

[Sitting_bull]

Hello merci pour ton retour, j'ai un doute quant à la bonne compréhension que tu t'es faite de ma demande. N'étant pas un expert VBA (ni même un bon débutant) pourrais tu me détailler ce code?

[deedolith]

Je reposte le code agrémenté de commentaires:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
Dim wb As Excel.Workbook
Set wb = ThisWorkbook		'// Reference sur le classeur contenant le code
 
Dim ws As Excel.Worksheet
Set ws = wb.Worksheets("Feuil1")	'// Référence sur la feuille nommée Feuil1 du classeur
 
Dim TS As Excel.Range
Set TS = ws.Range("Tableau1")		'// Référence sur la plage nommée Tableau1 de la feuille
									'// Note: Les tableaux structurés sont aussi des plages nommées.
 
Dim RowCount As Long
RowCount = TS.Rows.Count			'// Recupération du N° de la dernière ligne du tableau structuré
 
TS.Cells(RowCount + 1, 1) = "fgh"	'// Ecrit une valeur quelconque après la dernière ligne du tableau structuré
									'// Ce qui ajoute automatiquement une ligne à ce dernier

[Valtrase]

Salut,
Ne pas hésiter à faire des recherches, ce sujet à déjà été abordé maintes fois.
Voici une fonction de Pierre Fauconnier à coller dans ton module boite à outils.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
' // TS_AddRow Sur une idée de Pierre Fauconnier le : 23/02/2022
' // Ajoute une ligne dans un tableau structuré et la remplie avec les valeurs passées en Array
Function TS_AddRow(TS As Range, Values, Optional Position As Long)
    Dim lstR As ListRow
    Dim lstO As ListObject
    Dim Counter As Long
 
    Set lstO = TS.ListObject
    If Position = 0 Or Position > lstO.ListRows.Count Then Position = lstO.ListRows.Count + 1
    Set lstR = lstO.ListRows.Add(Position)
    For Counter = LBound(Values) To UBound(Values) Step 2
        lstR.Range(lstO.ListColumns(Values(Counter)).index).Value = Values(Counter + 1)
    Next
 
    If Not lstR Is Nothing Then Set lstR = Nothing
    If Not lstO Is Nothing Then Set lstO = Nothing
 
End Function

Et pour l'appel :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
TS_AddRow Range("TS_spine"), VBA.Array("Nom colonne B", cmbvrflan.Value, "Nom colonne M", txtvlanlan.Value, "Nom de colonne K", txtdescripplan.Value & _
                                                 "Nom de colonne H", txtsublan24.Value, "Nom de colonne E", txtcommfinal3.Value)

Donc tu renseignes le nom du tableau, et ensuite un Array qui contient le nom de la colonne ou tu dois écrire les données suivie de la valeur soit d'une zone de texte soit d'une liste déroulante etc.
Rien ne t'empêche de formater exemple : VBA.Array("Nom de colonne", Format(cmbvrflan.Value, "0000"), et pour finir la position de la ligne ajoutée, (en fin de tableau par défaut)

---

Et pour finir des liens incontournables :
Fonctions en VBA pour gérer les Tableaux Structurés d’Excel
VBA - Modélisation des échanges entre un userform et une table de données (tableau structuré)
VBA - Ajouter une ligne dans un tableau structuré et y placer des valeurs

[Sitting_bull]

Merci pour votre aide.