Discussion :

[onyirimba]

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 propos

[Philippe Tulliez]

Bonjour,

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

[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

[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 :

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

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

• Apprendre à utiliser les tableaux structurés Excel : création, manipulations et avantages(1)
• Utiliser les variables tableaux en VBA Excel
• La gestion des boucles dans Excel

[onyirimba]

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

Cordialement

[onyirimba]

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 :

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