Voir le flux RSS

joe.levrai

[VBA-EXCEL]Redimensionner un Tableau (ListObject) pour y injecter un Array

Noter ce billet
par , 08/11/2016 à 21h29 (889 Affichages)
Bonjour,

discussion initiale : http://www.developpez.net/forums/d16...trows-tableau/

Via un array unidimensionnel (hard codé pour l'exemple), on redimensionne l'unique tableau de la feuille active et on injecte les éléments en bas, sur la première colonne du Tableau

Code VBA : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
Option Base 1
Sub toto()
Dim Tableau: Tableau = Array("toto", "titi", "tata")
    With ActiveSheet.ListObjects(1)
        .Resize .Range.Resize(.Range.Rows.Count + UBound(Tableau), .Range.Columns.Count)
        .Range.Cells(.Range.Rows.Count - UBound(Tableau) + 1, 1).Resize(UBound(Tableau), 1).Value = Application.Transpose(Tableau)
    End With
End Sub


Application fun : dupliquer les éléments de la colonne
Code VBA : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
Sub toto()
Dim Tableau
    With ActiveSheet.ListObjects(1)
        Tableau = Application.Transpose(.DataBodyRange.Value)
        .Resize .Range.Resize(.Range.Rows.Count + UBound(Tableau), .Range.Columns.Count)
        .Range.Cells(.Range.Rows.Count - UBound(Tableau) + 1, 1).Resize(UBound(Tableau), 1).Value = Application.Transpose(Tableau)
    End With
End Sub


Bonne adaptation, le passage en à un tableau de dimension 2 n'est pas compliqué

Envoyer le billet « [VBA-EXCEL]Redimensionner un Tableau (ListObject) pour y injecter un Array » dans le blog Viadeo Envoyer le billet « [VBA-EXCEL]Redimensionner un Tableau (ListObject) pour y injecter un Array » dans le blog Twitter Envoyer le billet « [VBA-EXCEL]Redimensionner un Tableau (ListObject) pour y injecter un Array » dans le blog Google Envoyer le billet « [VBA-EXCEL]Redimensionner un Tableau (ListObject) pour y injecter un Array » dans le blog Facebook Envoyer le billet « [VBA-EXCEL]Redimensionner un Tableau (ListObject) pour y injecter un Array » dans le blog Digg Envoyer le billet « [VBA-EXCEL]Redimensionner un Tableau (ListObject) pour y injecter un Array » dans le blog Delicious Envoyer le billet « [VBA-EXCEL]Redimensionner un Tableau (ListObject) pour y injecter un Array » dans le blog MySpace Envoyer le billet « [VBA-EXCEL]Redimensionner un Tableau (ListObject) pour y injecter un Array » dans le blog Yahoo

Mis à jour 17/08/2017 à 14h13 par Malick (Ajout balises code)

Catégories
Sans catégorie

Commentaires