Automatisation Excel VBA

Version imprimable

02/01/2023, 15h40
bmartin0903

1 pièce(s) jointe(s)

Automatisation Excel VBA

Bonjour,

J'ai regardé plusieurs site mais je n'arrive pas à faire fonctionné mon automatisation ou alors je n'ai pas le bon sens des choses...
Pourriez vous m'aider?

ONGLET DE TRAVAIL
J'ai des onglets de travail où sont indiqués des dates (17.01.23), des lieux (visio, ou clisson) et le type de formation (D2,D3,D41B/D4-1B et BMM) dans le titre de l'onglet. exemple : 17.01.23 VISIO BMM
Ces onglets servent à noter toutes les informations au fur et à mesure de l'avancer vers la date du jour j et après la date.
Certains peuvent être inscrit et se désinscrire au dernier moment, nous souhaitons donc garder une trace des personnes.
Sur ces onglets de travail, est-il possible d'automatiser les colonnes B à D (DATE FORMATION, N° FORMATION, LIEU DE FORMATION) en fonction du titre de l'onglet?

ONGLETS RECAP (en vert)
Je souhaite mettre en place un onglet récap des formations, ces onglets récap seront forcément mis à la fin de tout les onglets (mon VBA est ok)

Dans les onglets récap en colonne Q (N°Certificat), est indiqué une référence et j'aimerai qu'en fonction de cette référence, le code aille chercher dans tous les onglets, les éléments se rapportant à cette référence et en fonction des titres du tableau en ligne 1 (un peu comme une rechercheV ou un DBlire mais sur tous les onglets).
Forcément les ligne où les informations sont barrées ne doivent pas figurer ainsi que les TCD.
Est-il possible de faire ceci?

Merci à tous par avance de votre aide !

PS: je vous joins mon fichier

Bonne et heureuse année 2023 à tous :D
02/01/2023, 16h19
Fab_de_chez_PERFORM

Début de piste
Bonjour,
dans un module, on pourrait mettre ceci
Code:

1 2 3 4 Function nomFeuille() Application.Volatile 'permet la MAJ auto si changement de nom de feuille nomFeuille = ActiveSheet.Name End Function
Dès lors, dans le classeur, la fonction =nomfeuille() renverrait le nom de l'onglet
On pourrait utiliser des fonctions classiques du style =GAUCHE(nomFeuille();8) pour récupérer la date par exemple.

Pour la seconde question, je pense qu'il serait plus simple de lancer l'exécution pour faire la mise à jour et ainsi obtenir le résumé souhaité.
Ex : sur clic, récupérer les infos de tous les feuilles (ne se nommant pas comme les récap) et les copier sur une feuille "recup" puis en extraire les données sur les feuilles récap.

Fab
02/01/2023, 16h44
Fab_de_chez_PERFORM

Erreur
La nouvelle année commence bien avec une belle erreur dans ce que j'ai dit précédemment...
si on utilise la fonction nomfeuille() ca va changer à chaque fois qu'une donnée et réactualisée et donc fausser la donnée...

vaudrait peut etre mieux se pencher sur la mise en place dans ThisWorkbook d'un truc du style :
Code:

1 2 3 Private Sub Workbook_SheetActivate(ByVal Sh As Object) Range("A1").Value = ActiveSheet.Name End Sub
En changeant le A1 par une cellule où on serait sûr qu'il n'y ait rien
02/01/2023, 21h03
Qwazerty

Salut

Citation:

Envoyé par bmartin0903

ONGLET DE TRAVAIL
Sur ces onglets de travail, est-il possible d'automatiser les colonnes B à D (DATE FORMATION, N° FORMATION, LIEU DE FORMATION) en fonction du titre de l'onglet?

Google propose de mettre cette formule dans la cellule A1, elle permet de retourner le nom de la feuille. A partir de là, tu devrais pouvoir extraire les différents éléments qu'il contient.

Code:

=DROITE(CELLULE("nomfichier";A1);NBCAR(CELLULE("nomfichier";A1))-TROUVE("]";CELLULE("nomfichier";A1)))

[Edit]

Je viens de regarder ton fichier.
Les noms d'onglets ne sont pas tous formatés pareil, ça va pas te faciliter la vie (8 ET 09/12/2022).

Je me demande si tu ne ferais pas mieux de prendre le problème à l'envers en mettant toutes les lignes dans un tableau unique.
Ensuite, soit tu gardes ton principe d'onglets multiples et tu extraits dans chaque onglet, les lignes qui correspondent (Date + lieu).
Soit, ce qui à mon avis serait mieux, tu fais des tris sur le tableau principal pour afficher les données souhaitées (directement dans le tableau ou dans un onglet dans lequel tu saisis les valeurs utilisées pour filtrer les données affichées dans un tableau lié au tableau principal.

En fonction de ta version d'excel, tu peux peut-être t'appuyer sur PowerQuery pour faire les extractions.
[/Edit]
++
Qwaz
04/01/2023, 10h34
bmartin0903
Citation:
Envoyé par Fab_de_chez_PERFORM

Bonjour,
dans un module, on pourrait mettre ceci

Code:

1 2 3 4 Function nomFeuille() Application.Volatile 'permet la MAJ auto si changement de nom de feuille nomFeuille = ActiveSheet.Name End Function

Dès lors, dans le classeur, la fonction =nomfeuille() renverrait le nom de l'onglet
On pourrait utiliser des fonctions classiques du style =GAUCHE(nomFeuille();8) pour récupérer la date par exemple.

Pour la seconde question, je pense qu'il serait plus simple de lancer l'exécution pour faire la mise à jour et ainsi obtenir le résumé souhaité.
Ex : sur clic, récupérer les infos de tous les feuilles (ne se nommant pas comme les récap) et les copier sur une feuille "recup" puis en extraire les données sur les feuilles récap.

Fab
Merci beaucoup pour ton aide, je vais voir ce que je peux faire :)
04/01/2023, 10h41
bmartin0903

Citation:

Envoyé par Qwazerty

Salut

Google propose de mettre cette formule dans la cellule A1, elle permet de retourner le nom de la feuille. A partir de là, tu devrais pouvoir extraire les différents éléments qu'il contient.

Code:

=DROITE(CELLULE("nomfichier";A1);NBCAR(CELLULE("nomfichier";A1))-TROUVE("]";CELLULE("nomfichier";A1)))

[Edit]

Je viens de regarder ton fichier.
Les noms d'onglets ne sont pas tous formatés pareil, ça va pas te faciliter la vie (8 ET 09/12/2022).

Je me demande si tu ne ferais pas mieux de prendre le problème à l'envers en mettant toutes les lignes dans un tableau unique.
Ensuite, soit tu gardes ton principe d'onglets multiples et tu extraits dans chaque onglet, les lignes qui correspondent (Date + lieu).
Soit, ce qui à mon avis serait mieux, tu fais des tris sur le tableau principal pour afficher les données souhaitées (directement dans le tableau ou dans un onglet dans lequel tu saisis les valeurs utilisées pour filtrer les données affichées dans un tableau lié au tableau principal.

En fonction de ta version d'excel, tu peux peut-être t'appuyer sur PowerQuery pour faire les extractions.
[/Edit]
++
Qwaz

Merci beaucoup pour ta proposition :)
Nous avons besoin de faire un suivi à la date (par onglet), mais il n'est pas facile de retrouver la dernière référence car il faut chercher le dernier onglet créé... d'où ma demande d'automatisation sur une feuille synthèse... tant pis, je vais quand même tester ta formule :)
Merci pour cette avancée
04/01/2023, 20h04
Qwazerty

Salut

Quelle version d'Excel utilises-tu?

++
Qwaz
05/01/2023, 12h29
bmartin0903

Citation:

Envoyé par Qwazerty

Salut

Quelle version d'Excel utilises-tu?

++
Qwaz

Je travail avec la version suivant: Microsoft*365 MSO (Version 2211 Build 16.0.15831.20098)
05/01/2023, 20h05
Qwazerty

1 pièce(s) jointe(s)

Salut

Je continue de penser que tu devrais faire le travail inverse.
L'idéal serait de travailler avec un Userform, à chaque saisi, tu passes par le UserForm dans lequel tu sélectionnes les données indiquant de quelle formation il s'agit et l'opération à effectuer (annulation d'un participant). De là les données devraient être déversée dans un tableau structuré commun.

En parallèle, tu pourrait avoir un bouton permettant de créer un formation. Ici un UserForm te demande les renseignements caractérisant la formation, le code créerait l'onglet correspondant avec un tableau issu de ton tableau principal, et filtré pour ne conserver que les données lié à la formation en question.

[Edit]
Je dirais même qu'il faudrait organiser les données de la sorte (bien sûr pas de tableau les uns en dessous des autres)
Pièce jointe 631954
J'ai ajouté une info date d'annulation, cette info peut être utilisée pour mettre en place un MFC (Mise En Forme Conditionnelle) afin de rayer la ligne.
Ces tableaux seraient importés dans Power Query (c'est du temps réel, à ne faire qu'une fois). De là, dans Power Query tu fais les jointures de données.
[/Edit]

Si tu veux persister dans le sens inverse, regarde du coté de Power Query, tu y a accès avec ta version d'Excel. il peut te permettre de récupérer tes données dans chaque feuille pour ensuite les agréger dans un seul tableau.
Les données qui sont dans les différents onglet doivent être placées dans des tableaux structurés (Menu insertion... Tableau). Puis dans l'onglet Données... "A partir d'un tableau ou d'une plage". Par contre, va falloir coder en M pour mettre un routine qui récupère le contenu des onglets, tu ne pourras pas faire la manip pour chaque onglet, il faut que le code boucle tout seul sur les onglets.
09/01/2023, 14h20
bmartin0903

Citation:

Envoyé par Qwazerty

Salut

Je continue de penser que tu devrais faire le travail inverse.
L'idéal serait de travailler avec un Userform, à chaque saisi, tu passes par le UserForm dans lequel tu sélectionnes les données indiquant de quelle formation il s'agit et l'opération à effectuer (annulation d'un participant). De là les données devraient être déversée dans un tableau structuré commun.

En parallèle, tu pourrait avoir un bouton permettant de créer un formation. Ici un UserForm te demande les renseignements caractérisant la formation, le code créerait l'onglet correspondant avec un tableau issu de ton tableau principal, et filtré pour ne conserver que les données lié à la formation en question.

[Edit]
Je dirais même qu'il faudrait organiser les données de la sorte (bien sûr pas de tableau les uns en dessous des autres)
Pièce jointe 631954
J'ai ajouté une info date d'annulation, cette info peut être utilisée pour mettre en place un MFC (Mise En Forme Conditionnelle) afin de rayer la ligne.
Ces tableaux seraient importés dans Power Query (c'est du temps réel, à ne faire qu'une fois). De là, dans Power Query tu fais les jointures de données.
[/Edit]

Si tu veux persister dans le sens inverse, regarde du coté de Power Query, tu y a accès avec ta version d'Excel. il peut te permettre de récupérer tes données dans chaque feuille pour ensuite les agréger dans un seul tableau.
Les données qui sont dans les différents onglet doivent être placées dans des tableaux structurés (Menu insertion... Tableau). Puis dans l'onglet Données... "A partir d'un tableau ou d'une plage". Par contre, va falloir coder en M pour mettre un routine qui récupère le contenu des onglets, tu ne pourras pas faire la manip pour chaque onglet, il faut que le code boucle tout seul sur les onglets.

Bonjour,

Merci pour cette nouvelle possibilité, je vais regarder et approfondir ceci.

pour information, j'essaye de mettre au gout du jour des informations qui sont utilisé depuis longtemps et comme je viens d'arriver dans l'entreprise, je ne peux pas bousculer toutes les habitudes de tous et de la personne en arrêt maladie comme je le souhaite c'est pour cela que je souhaite garder cette base "inverse" dans un premier temps pour ensuite passé sur le bon sens...

J'aime bien ton idée, et ne connaissant pas, je vais m'y intéresser de plus prêt.

Merci beaucoup pour tous ceci :)