VBA qui crée des tableaux en fonction d'une liste de données

Version imprimable

10/03/2022, 17h31
onyirimba

3 pièce(s) jointe(s)

VBA qui crée des tableaux en fonction d'une liste de données

Bonjour,

Est-il possible d'obtenir une programmation VBA qui crée des tableaux en fonctions d'une liste de données (22001ATU1...) ?

Les tableaux sont à crées dans l'onglet " détail des heures " selon le même modèle que les tableaux existants en fonction du nombre de données (22001ATU1...) situées en colonne A de l'onglet "PFA 01 2022"

=> chaque nouveau tableau de l'onglet "détail des heures" crée doit être mis à jour en colonne A avec les données de la colonne A de l'onglet "PFA 01 2022"

=> Sachant que la liste de données en colonne A de l'onglet "PFA 01 2022" peut être plus importante ou moins importante (elle peut se terminer en ligne 25, 30, ou 45)

=> Par conséquent : si il y a 8 données en colonne A de l'onglet "PFA 01 2022" => il doit y avoir 8 tableaux dans l'onglet " détail des heures "
si il y a 12 données en colonne A de l'onglet "PFA 01 2022" => il doit y avoir 12 tableaux dans l'onglet " détail des heures "

J'ai joint un fichier qui illustre mes proposPièce jointe 615117 Pièce jointe 615118
10/03/2022, 18h00
Philippe Tulliez

Bonjour,

Citation:

Est-il possible d'obtenir une programmation VBA qui crée des tableaux en fonctions d'une liste de données (22001ATU1...) ?

Oui, c'est possible.

Pour le reste, votre demande ressemble furieusement à un cahier des charges
10/03/2022, 19h32
onyirimba

Bonjour,

est-ce que je pourrai obtenir uniquement cette partie ?

Est-il possible d'obtenir une programmation VBA qui crée des tableaux en fonctions d'une liste de données (22001ATU1...) ?

Merci d'avance

Cordialement
10/03/2022, 19h46
Philippe Tulliez
Bonjour,
Ce forum est un club d'entraide donc pourriez vous nous indiquer où vous avez un problème par rapport à ce que vous avez écrit comme code ?
Si vous voulez savoir comment lire l'ensemble des éléments de la liste et en supposant que cette liste se trouve dans un tableau structuré avec une seule colonne, le code est
Code:

1 2 3 4 5 6 7 8 Sub t() Dim t As Variant Dim e As Integer t = Application.Transpose(Range("t_Project").Value) For e = LBound(t) To UBound(t) MsgBox t(e) Next End Sub
La variable tableau nommée t contient la liste des éléments contenus dans l'unique colonne d'un tableau structuré nommé "t_Project" et la boucle est prête pour créer vos tableaux.

[EDIT]
Quelques tutoriels à lire éventuellement
10/03/2022, 20h00
onyirimba

Je vous remercie beaucoup
Je vous réponds dans la soirée

Cordialement

1 pièce(s) jointe(s)

Bonjour,

Merci de votre aide !
Finalement je n'ai qu'une seule question => dans le codage ci-après Est-ce que la liste des données prise en compte par programmation VBA peut s'arrêter à la dernière données en bleu précédent une cellule vide (dans le cas ici présent c'est 2200TRRDF ) => donc dans ce cas les données qui suivent la 1ère cellule vide ne doivent pas être prises en compte ("provisions" et "2200OPOR" "2200 RISKS" ne doivent pas être prise en compte pour la création des tableaux)

Faut il ajouter " exit for emply cell " dans le codage ?????

Merci beaucoup

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
Sub Macro1()
Dim OM As Worksheet 'déclare la variable OM (Onglet Modèle)
Dim OP As Worksheet 'déclare la variable OP (Onglet PFA 01 2022)
Dim OD As Worksheet 'déclare la variable OD (Onglet Détail des heures)
Dim DL As Integer 'déclare la variable DL (Dernière Ligne)
Dim TV As Variant 'déclare la variable TV (Tableau des Valeurs)
Dim PL As Range 'déclare la variable PL (PLage)
Dim DEST As Range 'déclare la variable DEST (cellule de DESTination)
 
Application.ScreenUpdating = False 'masque les rafraîchissements d'écran
Set OM = Worksheets("Modèle") 'définit l'onglet OM
Set PL = OM.Range("A8:K19") 'définit la plage PL
Set OP = Worksheets("PFA 01 2022") 'définit l'onglet OP
DL = OP.Cells(Application.Rows.Count, "A").End(xlUp).Row 'définit la dernière ligne éditée DL de la colonne A de l'onglet OP
Set OD = Worksheets("Détail des heures") 'définit l'onglet OD
OD.Rows(8 & ":" & Application.Rows.Count).Delete 'efface les anciennes données de l'onglet OD
TV = OP.Range(OP.Cells(17, "A"), OP.Cells(DL, "A")) 'définit le tableau des valeurs TV
Set DEST = OD.Range("A8") 'initialise la cellule de destination DEST
For I = 1 To UBound(TV, 1) 'boucle sur toutes les ligne I du tableau des valeurs
    PL.Copy DEST 'copie la plage PL dans la cellule de destination DEST
    DEST.Resize(11, 1).Value = TV(I, 1) 'copie la donnée ligne I colonne 1 de TV dans la cellue de destination DEST redimensionnée
    Set DEST = DEST.Offset(13, 0) 'redéfinit la cellule de destination DEST
Next I 'prochaine ligne de la boucle
Application.ScreenUpdating = True 'affiche les rafraîchissements d'écran
OD.Activate 'active l'onglet OD
MsgBox "Boards are completed !" 'message
End Sub

Pièce jointe 615174

11/03/2022, 11h51
Philippe Tulliez

Bonjour,
Il est évidemment possible de s'arrêter lorsqu'une cellule est vide mais c'est une mauvaise utilisation des listes de données qui justement doivent être remplies tout au moins dans la colonne contenant les données de références

Deux cas peuvent exister.
Soit au traite toutes la liste, soit on ne traite qu'une partie selon critères et alors pour ce second cas on créera une liste temporaire avec seulement les éléments répondant aux critères.
Pour effectuer ce travail, on utilisera soit PowerQuery soit la méthode AdvancedFilter de l'objet Range