XL 2019 Automatiser base de données

Bolou · 23 Avril 2021

Bonjour,
Dans la base de données ci joint, je cherche à automatiser la répartition des données des colonnes A & B dans les colonnes de H à .....
En effet l'utilisateur mettra les colonnes A&B à jour et la répartition se fera automatiquement.

Avez vous des idées ? Un solution VBA ?

Merci pour vos retours, bien à vous

Lolote83 · 23 Avril 2021

Salut,
Peut être comme ceci
En H2=SIERREUR(INDEX($B$2:$B$63;PETITE.VALEUR(SI($A$2:$A$63=H$1;LIGNE($A$2:$A$63)-1);LIGNES($1:1)));0) a valider par CTRL+SHIFT+ENTER, puis tirer vers le bas et à droite.
Tout ceci si j'ai bien compris la demande.
@+ Lolote83

Bolou · 23 Avril 2021

Bonjour Lolote83,
Mon problème est résolu!!! Merci beaucoup

Pour pousser un peu plus loin on pourrait imaginer que la ligne de H1 à ... se mettent automatiquement à jour. J'ai utilisé une combinaison d'excel et de vba pour le faire.

1-Ja'i créé une liste sans doublons
2- un pti code VBA pour les récupérer dans la ligne 1 à partir de H1.

Il y a t-il un moyen plus facile ?

Merci

R@chid · 23 Avril 2021

Bonjour @ tous,
je crains que nécessite du VBA si la base de données sera très grande avec le temps.
Deux formules matricielles,
en F1 :

VB:

=SIERREUR(DECALER(Col_Entites;EQUIV(0;NB.SI($E1:E1;Col_Entites);0)-1;;1);"")

@ valider par Ctrl+Maj+Entrée
@ tirer vers la droite

en F2 :

Code:

=SIERREUR(INDEX(Col_Villes;PETITE.VALEUR(SI(Col_Entites=F$1;LIGNE(INDIRECT("1:"&LIGNES(Col_Entites))));LIGNES($2:2)));"")

@ valider par Ctrl+Maj+Entrée
@ tirer vers le bas et vers la droite

Cordialement

R@chid · 24 Avril 2021

Bonjour @ tous,
T'es sous Excel 2019, alors pourquoi ne pas faire avec Power Query?
Après l'ajout de nouvelles données dans le tableau source, fais un clic droit dans le tableau vert puis Actualiser.

Voir PJ

Cordialement

Amilo · 24 Avril 2021

Bonjour,
Une autre proposition Power query
Cordialement

Lolote83 · 24 Avril 2021

Bonjour R@chid, Amilo,
Une fois de plus, vous avez apporté une solution via Power Query.
Donc, toujours dans ma recherche de compréhension et de progression pour PQ, j'ai regardé vos requêtes mais malheureusement, je ne parviens pas à reproduire ces requêtes.
R@chid, comment fais tu pour passer du tableau source à celui de la requête ci-dessous.

J'ai bien essayé de mon coté en utilisant Regrouper par mais je n'arrive pas à aller plus loin, car le résultat ne correspond pas à ce que tu as fait.

Pour le reste, ça devrait aller.

Amilo, même question. Je m'étais dit qu'avec 2 exemples, j'y arriverai mais non.
Merci pour vos explications si cela ne vous dérange pas
@+ Lolote83

R@chid · 24 Avril 2021

Bonjour @ tous,
Salut Lolote83,

La réponse de l'ami Amilo est plus pertinente que la mienne.

Cordialement

Amilo · 24 Avril 2021

Bonsoir R@chid, Lolote83, le forum,

@R@chid, la question posée par Lolote83 concernait le passage de la Source à l'étape suivante dans l'éditeur Power query
Je mets un tuto ci-après pour les manipulations : Vidéo
ou alors vidéo sous cijoint.com à cette adresse : https://www.cjoint.com/c/KDywBLjH5qT

J'ai simulé uniquement les deux 1ères étapes de R@chid en partant d'une nouvelle Source que j'ai renommée par Source2

Pour ma version de Power query, j'avais procédé de la même manière sauf que j'ai ensuite modifié et ajouté toutes les fonctions manuellement dans la barre de formule sans passer par le ruban.

Cela me permet d'apprendre davantage sur les fonctions Power query

P.S : si vous utilisez la commande "Regrouper Par" du ruban, Power query va créer une étape "Lignes groupées" et avec à sa droite une roue dentée qui vous permet par la suite de double cliquer et de voir plus de détail.
Cependant si des modifications manuelles sont apportées dans la barre de formule, la roue dentée disparait alors.

C'est un moyen de savoir si une modification a été apportée ou non dans la formule initiale.

Cordialement

R@chid · 25 Avril 2021

Re,
Salut @Amilo
merci de m'avoir expliqué la question de l'ami Lolote83.

Fais grouper, et fais la somme de la colonne des villes (Oui tu vas obtenir une erreur).

Quand tu cliques sur OK tu vas obtenir cette erreur puisque l'on ne peut pas faire une somme de valeurs textes.

Tu n'as qu'à modifier la fonction List.Sum([Villes]) par Text.Combine([Villes],";")

et voilà que c'est fait.

Cordialement

Amilo · 25 Avril 2021

Re R@chid,

Je viens de voir vos captures, merci de les avoir ajouter car mon tuto sera automatiquement supprimé après 7 jours

Bonnes soirée

Lolote83 · 26 Avril 2021

Bonjour R@chid, Amilo,
Merci pour vos réponses et vos captures d'écran qui vont bien me servir.
Amilo, je regarde de ce pas ton tuto.
J'ai vraiment envie d'apprendre PQ, mais quand je vois la gymnastique que vous mettez en œuvre, je vois qu'il me reste encore pas mal de chemin à parcourir.
1000 mercis à vous deux et à bientôt pour un autre exercice que je piocherais à droite ou à gauche dans ce forum pour continuer à progresser.
@+ Lolote83

Amilo · 26 Avril 2021

Re,

Dans la même idée que le code ci-dessous de l'étape "Lignes groupées dans la proposition de R@chid

Code:

= Table.Group(Source, {"Entités"}, {{"VillesEnLigne", each Text.Combine([Villes],";"), type text}})

On aurait pu également utiliser ce code :

VB:

= Table.Group(Source, {"Entités"}, {{"VillesEnLigne", each [Villes]}})

Cordialement

Lolote83 · 27 Avril 2021

Bonjour à tous.
Amilo, merci pour ce complément d'information.
Je regarde de plus près.
@+ Lolote83

XL 2019 Automatiser base de données

Bolou

XLDnaute Nouveau

Pièces jointes

Lolote83

XLDnaute Barbatruc

Bolou

XLDnaute Nouveau

R@chid

XLDnaute Barbatruc

Pièces jointes

R@chid

XLDnaute Barbatruc

Pièces jointes

Amilo

XLDnaute Accro

Pièces jointes

Lolote83

XLDnaute Barbatruc

R@chid

XLDnaute Barbatruc

Amilo

XLDnaute Accro

R@chid

XLDnaute Barbatruc

Amilo

XLDnaute Accro

Lolote83

XLDnaute Barbatruc

Amilo

XLDnaute Accro

Lolote83

XLDnaute Barbatruc

Discussions similaires