Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

Base de données dans un tableau vers tableau d'une autre forme

Créer une discussion
  • Initiateur de la discussion Initiateur de la discussion MikaTI
  • Date de début Date de début

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
M

MikaTI

XLDnaute Junior
Bonjour à tous,

Je bloque sur la création d'un fichier pour transférer des données d'un tableau "synthèse" d'un onglet, vers d'autres tableaux identiques dans un autre onglet.
Je m'explique, j'ai dans la 1ere feuille, un tableau de synthèse avec plusieurs colonne
J'ajoute des données et ça me fait un tableau avec un certains nombre de lignes... La première colonne, deux catégories sont possible (Accessoires ou Appareil)... (jusque là, rien de compliqué)
Les choses se compliquent ensuite...
Chaque ligne du tableau de synthèse, doit être reportée dans un tableau. (1 ligne = 1 petit tableau qui aura à chaque fois la forme et composition identique)
En fait certaines données de la ligne doivent être reportées dans ce nouveau tableau, qui vise tout simplement à apporter des détails... Et la colonne A qui indique la catégorie, doit déterminer si la ligne est transférée dans un tableau de la feuille 2 ou feuille 3... Et enfin chaque tableau des feuilles 2 ou 3 doivent se suivre tout en ayant un espace entre chaque tableau...

Je me demandais si par le biais d'une macro c'était possible? ou alors bidouiller avec une formule...?
Le tout serait de rendre simple l'utilisation de ce fichier, juste en remplissant la base de donnée qui va générer ensuite des petits tableaux dans les deux autres feuilles, et ainsi pouvoir remplir les cases restantes à remplir (non présentes dans le tableaux synthétique...)

Je vous remercie par avance, pour votre sympathie 🙂
Et bien entendu, si ça n'est pas clair, je peux éventuellement fournir un fichier anonymisé...

Merciiiii
 
Trier par date Trier par votes
Re : Base de données dans un tableau vers tableau d'une autre forme


Merci voici le fichier... Désolé si c'est trop compliqué ...

Merci
 

Pièces jointes

Vote positif 0 Vote négatif
Re : Base de données dans un tableau vers tableau d'une autre forme

Bonjour MikaTI, DoubleZero, Iznogood1, le forum 🙂

Pour la feuille Accessoire, une macro de ce genre.
Restitution en feuille 1.
Pour la feuille Appareil, c'est pratiquement la même macro, je te laisse faire.
VB: 
Option Explicit

Sub test()
Dim a, b(), i As Long, n As Long
    Application.ScreenUpdating = False
    Sheets("Feuil1").Cells.Clear
    a = Sheets("SYNTHESE").Range("A4").CurrentRegion.Value
    n = 6
    For i = 2 To UBound(a, 1)
        If a(i, 1) = "Accessoire" Then
            ReDim b(1 To 4, 1 To 4)
            b(1, 1) = a(1, 2): b(1, 2) = a(i, 2): b(1, 3) = "Réglementation :"
            b(2, 1) = a(1, 4): b(2, 2) = a(i, 4): b(2, 3) = "Périodicité règlementaire (mois) :"
            b(3, 1) = "CMU :": b(3, 3) = "Lieu :"
            b(4, 1) = "Caractéristiques :"
            With Sheets("Feuil1")
                With .Cells(n, 1).Resize(UBound(b, 1), UBound(b, 2))
                    .Value = b
                    .Borders.Weight = 2
                    .Rows(4).Offset(, 1).Resize(, 3).MergeCells = True
                End With
                n = n + 5
            End With
        End If
    Next
    'restitution et mise en forme
    With Sheets("Feuil1")
        With .UsedRange
            .VerticalAlignment = xlCenter
            .Font.Name = "Calibri"
            .Font.Size = 10
            .Columns("a:d").ColumnWidth = Array(17, 12, 30, 20)
        End With
        With .Cells(4, 1)
            .Font.Size = 11
            .Interior.ColorIndex = 42
            .Resize(, 4).MergeCells = True
            .Value = "ACCESSOIRES"
        End With
    End With
    Application.ScreenUpdating = True
End Sub
klin89
 
Vote positif 0 Vote négatif
Re : Base de données dans un tableau vers tableau d'une autre forme

DoubleZero à dit:
Bonjour, MikaTI, Iznogood1, le Forum,

Pour la rubrique "APPAREIL", je n’ai pas su reproduire la numérotation souhaitée.

Une suggestion, malgré tout, en pièce jointe.

A bientôt 🙂
Cliquez pour agrandir...


Bien le bonjour,

Sincèrement, ça répond exactement à mes attentes ^^ merci.

Par contre, j'ai un petit soucis à l'utilisation.

J'ouvre le fichier,
j'efface les données de mon tableau de synthèse pour repartir sur un nouveau tableau vierge, et j'inscris deux nouvelles données (avec toujours les deux même type de catégories)... et quand je clique pour exécuter le module, dans l'onglet appareil, j'ai des bordures qui sont apparues dans la plage K2-L9.

Il n'y pourtant pas de mise en forme conditionnelle... bizarre.
 
Vote positif 0 Vote négatif
Re : Base de données dans un tableau vers tableau d'une autre forme

klin89 à dit:
Bonjour MikaTI, DoubleZero, Iznogood1, le forum 🙂

Pour la feuille Accessoire, une macro de ce genre.
Restitution en feuille 1.
Pour la feuille Appareil, c'est pratiquement la même macro, je te laisse faire.
Cliquez pour agrandir...

Bonjour

C'est aussi une très bonne piste, je vais essayer d’adapter le code pour l'onglet appareil (je ne maîtrise pas encore très bien le VBA) mais ça n'a pas l'air très compliqué.

Je vous tiens au courant 🙂

Merci merci
 
Dernière édition:
Vote positif 0 Vote négatif
Re : Base de données dans un tableau vers tableau d'une autre forme

Re MikaTI,🙂

Ma compréhension :

La feuille Synthese est le tableau source.
Pour chaque ligne de ce tableau, tu crées un petit tableau dans une feuille de restitution.
Petit tableau que tu peux éventuellement compléter manuellement.
Dans la feuille source, l'ajout de nouveaux enregistrements doit générer autant de nouveaux tableaux sans effacer les tableaux originaux de la feuille de restitution

Dans ce cas, j'ai utilisé un dictionnaire pour tester l'existence des tableaux dans la feuille de restitution.
A tester :
VB: 
Option Explicit

Sub test()
Dim myAreas As Areas, myArea As Range, dico As Object
Dim a, i As Long, n As Long
    Set dico = CreateObject("Scripting.Dictionary")
    dico.CompareMode = 1
    Application.ScreenUpdating = False
    With Sheets("Feuil1")    'la feuille ACCESSOIRE ds ton exemple
        n = .Range("a" & Rows.Count).End(xlUp).Row
        If n > 1 Then
            With .Range("b6", .Range("b" & Rows.Count).End(xlUp))
                On Error Resume Next
                Set myAreas = .SpecialCells(2).Areas
                On Error GoTo 0
            End With
            If Not myAreas Is Nothing Then
                'On determine les cles du dictionnaire
                'soit le N°Interne si j'ai bien compris
                For Each myArea In myAreas
                    dico(myArea(2).Value) = Empty
                Next
            End If
        End If
        a = Sheets("SYNTHESE").Range("A4").CurrentRegion.Value
        If n = 1 Then n = 6 Else n = n + 2
        For i = 2 To UBound(a, 1)
            If a(i, 1) = "Accessoire" Then
                'si le n°interne n'existe pas ds la feuille synthese
                If Not dico.exists(a(i, 4)) Then
                    'On genere un nouveau petit tableau de 4 x 4
                    ReDim b(1 To 4, 1 To 4)
                    b(1, 1) = a(1, 2): b(1, 2) = a(i, 2): b(1, 3) = "Réglementation :"
                    b(2, 1) = a(1, 4): b(2, 2) = a(i, 4): b(2, 3) = "Périodicité règlementaire (mois) :"
                    b(3, 1) = "CMU :": b(3, 3) = "Lieu :"
                    b(4, 1) = "Caractéristiques :"
                    'Restitution et mise en forme du tableau
                    With .Cells(n, 1).Resize(UBound(b, 1), UBound(b, 2))
                        .Value = b
                        .Borders.Weight = 2
                        .Rows(4).Offset(, 1).Resize(, 3).MergeCells = True
                    End With
                    n = n + 5
                End If
            End If
        Next
        Set dico = Nothing
        With .UsedRange
            .VerticalAlignment = xlCenter
            .Font.Name = "Calibri"
            .Font.Size = 10
            .Columns("a:d").ColumnWidth = Array(17, 12, 30, 20)
        End With
        With .Cells(4, 1)
            .Font.Size = 11
            .Interior.ColorIndex = 42
            .Resize(, 4).MergeCells = True
            .Value = "ACCESSOIRES"
        End With
    End With
    Application.ScreenUpdating = True
End Sub
klin89
 
Dernière édition:
Vote positif 0 Vote négatif
Re : Base de données dans un tableau vers tableau d'une autre forme


Bonjour

Merci pour ce nouveau code...
En fait je n'arrive pas à comprendre la différence avec le premier envoyé... ?
Et aussi sur ce nouveau code, lorsque j'exécute la macro une première fois, ok le tableau est bien généré dans le bon onglet, mais lorsque j'apporte une modification dans l'onglet sythèse "source), et lorsque je lance la macro, rien ne se passe, pas de modification dans les tableaux déjà générés... avec le premier code envoyé, je n'ai pas ce soucis.

Quel est la différence entre les deux?

Merci 🙂
 
Dernière édition:
Vote positif 0 Vote négatif
Re : Base de données dans un tableau vers tableau d'une autre forme



Je crois que je viens de comprendre ^^ suivant ta compréhension
Ma compréhension :

La feuille Synthese est le tableau source. Oui ok
Pour chaque ligne de ce tableau, tu crées un petit tableau dans une feuille de restitution. oui ok
Petit tableau que tu peux éventuellement compléter manuellement. oui ok
Dans la feuille source, l'ajout de nouveaux enregistrements doit générer autant de nouveaux tableaux sans effacer les tableaux originaux de la feuille de restitution En fait la modification dans le tableau apporte la modification dans les tableaux générés... Par exemple si dans ligne 1 du tableau je modifie le nom de la désignation, la désignation du tableau généré doit aussi être modifié... Mais quand j'apporte des modifications dans le tableau sources, et que j'ai déjà remplis des cellules manuellement dans le tableau généré (ex: marque, CMU etc...) si c'est possible, ces cellules que l'ont peut remplir manuellement doivent rester remplies...
 
Dernière édition:
Vote positif 0 Vote négatif
Re : Base de données dans un tableau vers tableau d'une autre forme

Re MikaTI,

Dans un premier temps, peux-tu supprimer dans les posts #8 #10 et #11, la réédition de mes codes, c'est inutile cela encombre le fil qui en devient illisible.

Sinon tu te compliques vraiment la vie, une simple base de données avec tous les renseignements souhaités que tu modifierais à ta guise ferait l'affaire.
Dans ton cas, tu modifies à la fois la feuille source et la feuille cible, on ne sait même plus ce qu'il faut générer/garder suite aux différentes modifications de ces 2 feuilles.

J'appelle cela du bidouillage.😛
Sur ce, j'arrête.

klin89
 
Vote positif 0 Vote négatif
Re : Base de données dans un tableau vers tableau d'une autre forme


Voilà c'est fait.

En effet une base de donnée serait nettement plus simple, mais j'ai besoin que la présentation soit faite comme dans le fichier...
Avec ton code j'ai réussi à faire ce que je voulais, super! J'arrive à générer tous les tableaux pour les deux catégories, donc merci bien 🙂

Je dois juste maintenant travailler la mise en page finale, car des ces tableaux générés dans les deux onglets, je dois sortir une impression... Donc je travaille dessus et je posterai une nouvelle discussion si besoin ^^

Merci bien en tout cas, ça m'a été très utile!
 
Vote positif 0 Vote négatif
Identifiez-vous ou inscrivez-vous pour participer.
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

F
  • Question Question
XL 2016 Tableau de bord Excel 2016
Réponses
0
Affichages
235
Finix
F
  • Résolu(e)
XL 2021 tableau de données
Réponses
9
Affichages
225
AtTheOne
M
  • Question Question
XL 2016 pb création de tableau par macro
Réponses
10
Affichages
120
ChTi160
F
  • Question Question
Microsoft 365 Tableau Excel mettre une couleur
Réponses
11
Affichages
153
chris
  • Résolu(e)
XL 2016 copier la même ligne sur la dernière ligne vierge d'un tableau
Réponses
8
Affichages
119
eastwick
Y
  • Question Question
XL 2019 macro pour dupliquer un tableau
Réponses
3
Affichages
343
Yogean
Y
T
  • Question Question
XL 2019 dans un tableau ( mise en forme de tableau), 2 couleur pour 1 tableau
Réponses
4
Affichages
248
tuti
T
O
  • Question Question
XL 2016 transférer les données d'un tableau brut, dans un autre format pour analyse.
Réponses
12
Affichages
453
ORL
O
S
  • Question Question
Microsoft 365 Transfert de données sur une autre tableau
Réponses
2
Affichages
167
stefane26
S
C
  • Question Question
Microsoft 365 Problème de tableau structuré
2
Réponses
24
Affichages
447
TooFatBoy
M
  • Question Question
XL 2019 Transposer des données d'une feuille vers une autre sous forme de synthèse
Réponses
8
Affichages
501
mromain
J
  • Question Question
Microsoft 365 Naviguer dans un tableau pour copier des données dans un modèle et copier l'un derrière l'autre
Réponses
11
Affichages
283
AtTheOne
D
  • Question Question
Microsoft 365 faire un tableau de suivi d'activité sur la base d'un TCD avec filtre
Réponses
0
Affichages
118
Daniel200666
D
P
  • Question Question
XL 2016 Macro VBA remplissage tableau de synthèse % déchet ligne de production
Réponses
4
Affichages
178
vgendron
N
  • Question Question
Microsoft 365 Créer une fenêtre de vente qui alimentera un cumul dans un tableau
Réponses
2
Affichages
178
job75
  • Résolu(e)
Microsoft 365 [FORMULES] Tableau de synthèse avec SOMMEPROD, sans TCD, ni VBA
2
Réponses
18
Affichages
415
ralph45
  • Résolu(e)
Microsoft 365 Extraire les données d'une ligne d'un tableau dynamique piloté par un segment
Réponses
2
Affichages
136
ralph45
  • Question Question
Microsoft 365 MFC dans tableau
Réponses
2
Affichages
224
pompaero
P
  • Question Question
XL 2019 Macro VBA appliquer un filtre lors d'une importation de données
Réponses
1
Affichages
203
fanch55
P
  • Question Question
XL 2019 Créer des formules dans un tableau croisé dynamique
Réponses
10
Affichages
378
merinos-BernardEtang
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…