Comment obtenir automatiquement différents tableaux de synthèse de données, à partir des lignes et des colonnes d'un seul tableau de données

Bonjour Alice,

ton fichier en retour : https://www.cjoint.com/c/MHdoYk1Qja0

* regarde la feuille "A donner" ; sous la ligne 3 des en-têtes, c'est vide.

* va sur la feuille "A partager" ; c'est idem : sous la ligne 3, c'est vide.

* va sur la feuille "A porter seul" ; idem : sous la ligne 3, vide aussi.

* va sur la feuille "Données" ; fais Ctrl d (d pour dispatch).

vérifie très attentivement tous les résultats.  :)

attention : l'actualisation des résultats n'est pas automatique : tu dois d'abord
faire tous les changements nécessaires sur la feuille "Données", puis ensuite
faire Ctrl d.

tu n'auras pas besoin d'effacer au préalable les anciens résultats car c'est fait
automatiquement par la macro.

- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -

le code VBA est correct, et il fait ce qu'il faut ; cependant, tu vas peut-être
découvrir qu'il y a une anomalie dans les données de ta feuille "Données" ;
voici un  indice : « combien y a-t-il de costumes ? » ; il faudra modifier le
tableau (ajout de lignes), puis il faudra modifier le code VBA.

j'espère que tu trouveras ce qui ne va pas ; à te lire pour la suite.  :)

rhodo

Bonjour Rhodo,

Merci beaucoup pour votre réponse et pour votre aide !

Je regarde votre fichier pour comprendre votre message et vous revient vite.

Alice

Bonsoir Rhodo,

J'ai bien lancé votre Macro et j'ai également testé une modification => cela fonctionne parfaitement !
Difficile en revanche de tout vérifier tant cela fait de lignes. Mais j'ai fait quelques vérifications qui sont toutes bonnes.

Je n'y connais rien en Macros alors je serai incapable de la coder par moi-même.

Je pensais imposer dans la feuille "Données" (mais aussi dans les feuilles précédentes non incluses dans le fichier transmis) :
- Maximum 10 costumes
- Maximum 10 actions possibles / costume
- Maximum 10 sous-actions possibles / action

Je me rends compte que c'est probablement trop en voyant les tableaux complétés !
Je pense que je devrais imposer aux personnes qui complèteront la feuille "Données" :
- Maximum 5 actions possibles/costume
- Maximum 5 sous-actions possibles/action
Je ne sais pas ce que cela changerait dans votre Macro ?

Pour l'anomalie :
En effet, le costume n°6 n'apparaît pas dans la feuille "Données".
Il ne s'agit pas d'une anomalie en soi.
C'est en fait que dans mon exemple, ce costume n°6 a été "jeté" dans une étape précédente de mon fichier Excel complet.

Ainsi ce costume n°6 n'apparaît pas dans le tableau automatique qui remonte uniquement les costumes "A garder" (issu d'une fonction : Transpose) = ligne 3 à 13 dans la feuille "Données".

Et donc ce même costume n°6 n'apparaît pas dans le tableau qui débute à la ligne 35 de cette même feuille "Données".
Mais cela aurait pu être seulement les costumes n°1, 3, et 8 qui apparaissent par exemple.
Il pourrait y avoir entre 1 et 10 costumes.

Mais cela veut dire que la plage suivante dans votre code est insuffisante si jamais les 10 costumes sont "gardés" :

 T = [D36:M242]

Ainsi il faudrait ajouter 23 lignes en plus j'imagine ?
 T = [D36:M265]

Ai-je bien compris ?

Merci beaucoup,

Alice

Bonjour Alice,

bravo, tu as bien trouvé quelle est l'anomalie :

« le costume n° 6 n'apparaît pas dans la feuille "Données". »

même si, pour toi, ce n'est pas une anomalie en soi, il faut quand même que ton
tableau haut comporte la place nécessaire pour 10 costumes.

il faut donc ajouter une ligne pour le tableau haut, et bien sûr, ça décale d'une ligne
tout ce qui est en dessous.

évidemment, pour le tableau bas, il faut aussi ajouter 23 lignes pour le costume 6 ;
ce que tu as bien compris, puisque tu as écrit :

« Ainsi il faudrait ajouter 23 lignes en plus j'imagine ? »

il y aura 2 fichiers (versions v1 et v2) ; pour v1 et v2, il y a 10 costumes ; pour v1,
il y a 10 actions et 10 sous-actions ; pour v2, il y a 5 actions et 5 sous-actions.

ci-dessous, on va voir les 2 versions v1 et v2 l'une après l'autre.

----------------------------------------------------------------------------------------------------------------

voici la version v1 : https://www.cjoint.com/c/MHfdcWSsy70

comme avant, tu peux voir sur la feuille "A donner" que sous la ligne 3, c'est vide ;
idem sur les 2 feuilles précédentes : "A partager" et "A porter seul".

va sur la feuille "Données", mais ne fais pas déjà Ctrl d.

note que sur la ligne 9, j'ai ajouté ton costume n° 6 ; lis bien toutes les infos de
cette ligne 9 ; j'espère que tu ne m'en voudras pas d'avoir dévoilé tes activités
secrètes.  ;)

les costumes n° 7 à 10 se retrouvent en lignes 10 à 13 ; dessous, tes infos
de la seule colonne B se retrouvent en lignes 17 à 31 ; dessous encore,
ton tableau bas avec 10 actions est en B36:M266.

note que les 23 lignes ajoutées pour le costume n° 6 sont en lignes 152 à 174.

fais Ctrl d, puis regarde les résultats.  :)

----------------------------------------------------------------------------------------------------------------

voici la version v2 : https://www.cjoint.com/c/MHfdCDK5sy0

comme avant, tu peux voir sur la feuille "A donner" que sous la ligne 3, c'est vide ;
idem sur les 2 feuilles précédentes : "A partager" et "A porter seul".

va sur la feuille "Données", mais ne fais pas déjà Ctrl d.

comme il n'y a plus que 5 actions, la dernière colonne du tableau haut est O ;
le tableau bas est maintenant en B36:H166 (avec 13 lignes par costume, et
5 sous-actions par action).

pour le tableau bas : j'ai supprimé les 5 colonnes i à M ➯ la dernière colonne
est H ; en passant à 5 actions, ça a réduit le tableau bas de 5 colonnes ; puis
en passant à 5 sous-actions, ça a réduit le tableau bas de 100 lignes : H166
au lieu de M266 (dernière cellule du tableau bas).

fais Ctrl d, puis regarde les résultats.  :)

----------------------------------------------------------------------------------------------------------------

pour le code VBA de chaque version v1 et v2, j'ai bien sûr fait les adaptations
nécessaires ; en comparant les codes VBA, tu verras les différences.  ;)

à te lire pour avoir ton avis.  :)

----------------------------------------------------------------------------------------------------------------

dis-moi quelle version tu as préféré (la v1 ou la v2) ; attention : ensuite,
j'ai déjà prévu de te fournir une 3ème version : la v3.

cette version v3 sera comme la v2, avec une petite différence en plus
qui devrait bien te plaire.  :)

rhodo

@Alice : je viens d'ajouter un petit texte à mon post précédent,
alors relis la fin (sous la dernière ligne de tirets).

@Rhodo : merci beaucoup pour ces versions !

J'ai bien rigolé en lisant les actions du rôle n°6 !

J'ignore quelle sera la 3ème version.

Je vais regarder en détail les 2 versions pour voir quelle est celle qui conviendra le mieux. Je vous reviens rapidement !

Alice

@Rhodo : je suis en train de finaliser le fichier complet que je souhaite pour pouvoir vous le transmettre.

Je préfère la version v2, moins dense et moins complexe :).

Je vous renvoie le fichier complet au plus vite. Sans doute demain. Ainsi vous aurez vraiment la vision d'ensemble et le tableau final auquel je souhaite arriver :).

Je vous remercie mille fois encore pour votre aide.

Alice

Bonjour Rhodo,

Voici ci-joint une version complète du fichier Excel complet :

https://www.cjoint.com/c/MHithkbzHqy

Les onglets suivants ne nécessitaient pas de Macro donc je me suis débrouillée comme j'ai pu pour automatiser le maximum de choses :) :

1- "Vos 9 piliers de vie"
2- "Objectif SMARTER"
3- "Etapes vers objectif"
4- "Liste costumes actuels"
5- "Utile vs inutile"
6- "Costumes à jeter"
7- "Synthèse 1" = rapporte tous les "rôles-costumes" à garder.

Suite :

8- "Préciser et trier" = l'onglet "Données" dans mes fichiers transmis précédemment.

Je n'arrive pas à grouper les lignes : 5 à 17, et les lignes 19 à 33 => savez-vous pourquoi ?
Est-ce dû à la Macro ?

Questions concernant votre Macro version 2 :
Je me demandais si votre macro prévoit les situations dans lesquelles il y a seulement 1, 2, 3, ou 4 sous actions de renseignées = lignes laissées vides dans le tableau de B37 à H167 dans l'onglet "Préciser et trier" ?
 
J'ai copié votre Macro version 2 dans ce fichier mais comme je ne comprends pas vraiment tout le code je n'ai pas réussi à adapter le code pour que la macro fonctionne.
Donc elle ne fonctionne pas dans ce fichier :(

Les 3 onglets verts suivants :
1- "A porter seul"
2- "A partager"
3- "A donner"
=> sont complétés grâce à votre Macro = version 2.

Note : j'ai ajouté à ces onglets des colonnes qui seront à compléter manuellement = colonnes G à O, de couleur jaune pale.
Alors que les données sous les colonnes vertes de C à F remontent automatiquement grâce à votre macro.

Suite des onglets/feuilles :

Les 2 onglets :
- "Aporterseul"
- "Apartager"
sont des onglets qui me servent pour la requête dont on retrouve les résultats dans l'onglet : "Synthèse 2" => qui regroupe toutes les lignes des données des 2 onglets : "A porter seul" et "A partager" (qui ont les mêmes intitulés de colonnes).
Je masquerai plus tard ces 2 onglets qui servent uniquement pour la requête.

L'onglet "Synthèse 2" permet d'avoir une vision de toutes les actions et sous actions à réaliser seul ou à partager avec d'autres personnes, par rôle-costume.

L'onglet en rouge "Synthèse 2 essai" sera certainement supprimé.
De même que je supprimerai les essais de formules dans les colonnes A et B des onglets :
"A porter seul"
"A partager"

L'onglet "24 forces de caractère" est uniquement informatif. Il sert aussi à ramener des données dans l'onglet "Forces".

Les 3 onglets :
- "Forces"
- "Talents"
- "Qualités"
seront à compléter manuellement.

Dans l'onglet "Synthèse 3" j'aimerais rapporter des données à extraire des 3 onglets :
- "Forces"
- "Talents"
- "Qualités"
=> cela donnera les forces, les talents et les qualités à développer pour chaque rôle-costume.
Je ne sais pas comment faire cela.

Et enfin dans l'onglet "Synthèse finale", j'aimerais rapporter des données extraites des onglets suivants :
- "Synthèse 1"
- "Synthèse 2"
Je ne sais pas faire cela.

J'espère que tout est clair.
N'hésitez pas si vous avez des questions ou des remarques.

Mes derniers points de blocages sont :

1) Quoi modifier dans votre code pour que votre Macro fonctionne à nouveau afin de compléter les 3 feuilles suivantes dans leur format actuel :
1- "A porter seul"
2- "A partager"
3- "A donner"

2) Quelle Macro ou requête est nécessaire pour rapporter les bonnes données dans l'onglet "Synthèse 3" à partir de la cellule B9, dans les colonnes B à G.
Selon les données des feuilles :
- "Forces"
- "Talents"
- "Qualités"

3) Quelle formule, Macro ou requête est nécessaire pour rapporter les bonnes données dans l'onglet "Synthèse finale", pour les colonnes B à Q, à partir de la ligne 20.
Selon les données des feuilles :
- "Synthèse 1"
- "Synthèse 2"

J'aimerais comprendre votre Macro pour être capable de la modifier au besoin mais cela dépasse mes compétences actuelles :(.

Je vous remercie mille fois pour votre aide,

Alice

Bonjour Alice,

tu as demandé beaucoup trop de choses en même temps ! regarde déjà tout
ce qui est dans ce post ; pour les choses auxquelles je n'ai pas répondu, on
verra plus tard. (note : demain, je serai absent pour affaires persos, alors ne
t'étonne pas si je te répondrai avec beaucoup de retard)

------------------------------------------------------------------------------------------------------------

tu as écrit : « De même que je supprimerai les essais de formules dans
les colonnes A et B des onglets : "A porter seul" ; "A partager" »

c'est pourquoi dans ce post, il y a deux versions v3 et v4.

dans v3, pour les 2 premières feuilles de résultat "A porter seul" et "A partager",
j'ai laissé tes 2 colonnes A et B d'essais de formules, mais ça a dû compliquer
le code VBA.

dans v4, j'ai supprimé les colonnes d'essais de formules sus-mentionnés
➯ pour les 3 feuilles de résultats, la colonne "Costume n°" est la colonne B
➯ j'ai pu simplifier le code VBA (qui est donc différent de celui de v3).

à part ça, ça fait la même chose pour v3 et v4 (utilisation identique).

------------------------------------------------------------------------------------------------------------

voici la version v3 : https://www.cjoint.com/c/MHjgjR06sv0

regarde la feuille "A donner" ; puis "A partager" ; puis "A porter seul" ; va sur
la feuille "Préciser et trier" ; fais Ctrl d, puis regarde les résultats.

- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -

va sur la feuille "Préciser et trier" ; supposons que tu veux jeter le costume n° 3
"Partenaire commercial (à l'externe)" ; juste à gauche du 3, donc en A9, saisis
un « x » (X minuscule) ; ça signifie : « sauf le costume n° 3 » ; fais Ctrl d, puis
regarde les résultats ; tu verras que le costume n° 3 n'y est plus.

on va maintenant le remettre : va sur "Préciser et trier" ; efface le « x » de A9
avec la touche Suppression, et fais Ctrl d ➯ les résultats sont comme avant,
avec 10 costumes, car le costume n° 3 est de nouveau présent.

- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -

va sur la feuille "Préciser et trier" ; regarde le texte des 3 cellules D19:D21 ;
en D21, sélectionne "sans" ; fais Ctrl d ➯ dans les résultats, il n'y a plus
les lignes dont une sous-action commence par le texte de 12 caractères
"A compléter " (espace final compris).

* sur "A porter seul" : 3 lignes pour "Leader" et 1 ligne pour "Dormeur".
* sur "A partager" : 3 lignes pour "Leader" et 1 ligne pour "Père".
* sur "A donner" : 1 ligne pour "Leader".

juste pour info : pour une sous-action donnée, si la cellule est vide,
alors la sous-action n'apparaîtra pas dans les résultats.

- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -

va sur la feuille "Préciser et trier" ; laisse "sans" en D21 ; saisis « x » en A11
et en A15 ; fais Ctrl d ; comme on a jeté les 2 costumes "Père" et "Dormeur",
il n'y a plus que le costume "Leader" dans les résultats.

ça te montre que tu peux combiner « x » pour jeter un costume et "sans"
pour éviter les lignes de résultats dont une sous-action commence par
"A compléter " (espace final compris).

juste pour info : tu peux aussi combiner « x » pour jeter un costume
et des cellules de sous-actions vides.

- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -

va sur la feuille "Préciser et trier" ; en D21, sélectionne "avec" ; fais Ctrl d ➯
il y a tous les résultats, sauf ceux des costumes n° 5 et 9 ; normal, car on
n'a pas supprimé les « x » de A11 et A15.

juste pour info : en D21, si au lieu de sélectionner "avec" tu avais appuyé
sur la touche Suppression pour effacer l'item "sans" (donc cellule D21
vide), faire Ctrl d produit les mêmes résultats que pour l'item "avec".

- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -

va sur la feuille "Préciser et trier" ; pour récupérer les costumes n° 5 et 9,
supprime le « x » de A11 et A15 ; fais Ctrl d ➯ mêmes résultats qu'au
tout début (à l'ouverture du fichier).

------------------------------------------------------------------------------------------------------------

voici la version v4 : https://www.cjoint.com/c/MHjhvB5qL80

fais toutes les mêmes manips que celles indiquées pour v3.

------------------------------------------------------------------------------------------------------------

tu as écrit : « Je n'arrive pas à grouper les lignes : 5 à 17, et les lignes 19 à 33
=> savez-vous pourquoi ? Est-ce dû à la Macro ? »

non, ce n'est pas dû à la macro ; et oui, je sais pourquoi ; va sur la feuille
"Préciser et trier" ; menu Fichier / Options / Options avancées ; côté droit,
fais défiler vers le bas jusqu'à voir la rubrique "Options d'affichage de la
feuille de calcul :" ; dessous, tu as cette option :

☐ Afficher les symboles du plan si un plan est appliqué

coche la case pour avoir :

☑ Afficher les symboles du plan si un plan est appliqué

en bas, clique sur le bouton OK.

en fait, j'avais masqué le plan pour alléger la présentation de la feuille.  ;)

------------------------------------------------------------------------------------------------------------

donne-moi déjà ton avis sur tout ça ; on verra plus tard pour tes 2 onglets
"Synthèse 3" et "Synthèse finale".

rhodo

Bonjour Rhodo,

Merci beaucoup pour vos nouvelles versions !

Je suis en train de faire toutes les manipulations que vous m'indiquez :)
Je vous fais un retour très vite.

Alice

Bonjour Rhodo,

J'ai bien regardé vos versions 3 et 4.
Les manipulations fonctionnent.

Dans la version 3 : il y a un décalage dans la remontée des données pour les 2 feuilles "A porter seul" et "A partager".
Les données apparaissent dans les colonnes B à E, au lieu des colonnes C à F.

Mais cela n'a pas d'importance car je préfère la version 4 = dans laquelle le format des 3 feuilles :
"A porter seul"
"A partager"
"A donner" sont les mêmes = remontée des données de la Macro dans les colonnes B à E = parfait :)

Dans la feuille "Préciser et trier" :
J'aime bien la possibilité de jeter un costume grâce au "x" dans la colonne A, entre A7 et A16.
J'aime aussi la possibilité "avec" et "sans" les lignes qui n'ont pas été complétées.
C'est très bien aussi que :
1) en D21, si au lieu de sélectionner "avec" tu avais appuyé
sur la touche Suppression pour effacer l'item "sans" (donc cellule D21
vide), faire Ctrl d produit les mêmes résultats que pour l'item "avec".

2) pour une sous-action donnée, si la cellule est vide, alors la sous-action n'apparaîtra pas dans les résultats.

=> Merci pour ces précisions !

Logiquement les costumes jetés seront jetés dans la feuille "Utile vs inutile" : c'est ici que les personnes qui rempliront ce document Excel détermineront les rôles-costumes qu'elles veulent jeter = ligne 14 du tableau à compléter.

Ensuite les rôles-costumes jetés apparaîtront alors uniquement dans la feuille "Costumes à jeter".
Et la feuille "Synthèse 1" rapporte normalement uniquement les rôles-costumes indiqués comme "A GARDER" dans la feuille "Utile vs inutile", ligne 14.

Ensuite, dans la feuille "Préciser et trier" :
-> Le tableau de données entre B6 et O16 = fonction TRANSPOSE utilisée à partir des données du tableau 'Synthèse 1'!$A$9:$K$22
=> ainsi normalement les rôles-costumes jetés auparavant n'apparaîtront pas dans ce tableau automatique.

Et seuls apparaissent les rôles-costumes "A GARDER" dans le tableau à compléter : lignes 37 à 167.
Certaines lignes dans la colonne B seront vides en bas de ce tableau si 1 ou plusieurs rôles-costumes sont jetés.

Voici ci-joint le dernier fichier = sur la base de votre version 4.
https://www.cjoint.com/c/MHkkiAgreUy

Mes conclusions :
Votre Macro fonctionne très bien :)
C'est vraiment super !
Je comprends juste qu'il ne faudra pas changer la structure et l'emplacement des tableaux présents dans les 4 feuilles :
"Préciser et trier"
"A porter seul"
"A partager"
et
"A donner"
sinon la Macro ne fonctionnera plus.

De même : ma requête qui permet d'obtenir les données de la feuille "Synthèse 2" semble toujours fonctionner.

J'ai encore cherché des solutions pour compléter automatiquement les feuilles "Synthèse 3", et "Synthèse finale" mais cela dépasse mes compétences.

Merci encore pour votre aide et vos précisions !

Alice

Bonjour Alice,

je vais te répondre en plusieurs posts successifs ; commençons par ceci :

tu as écrit : «
Dans la version 3 : il y a un décalage dans la remontée des données pour
les 2 feuilles "A porter seul" et "A partager". Les données apparaissent
dans les colonnes B à E, au lieu des colonnes C à F. »

je n'ai pas compris, car sur mon PC : c'est correct : il n'y a pas de décalage.

à l'ouverture du fichier v3, pour les 2 feuilles "A porter seul" et "A partager" :
c'est vide sous la ligne 6, colonnes A et B incluses, car j'ai volontairement
supprimé TOUTES les formules de A et B ; c'est la macro qui va mettre
les données de A et B (en plus des données des autres colonnes).

après exécution de la macro (donc après avoir fait Ctrl d) :

* copie d'écran de la feuille "A porter seul" (extrait) :

https://www.cjoint.com/c/MHlgUuoy170

* copie d'écran de la feuille "A partager" (extrait) :

https://www.cjoint.com/c/MHlgVKNeFk0

sur les 2 feuilles : le n° du costume est dans sa bonne colonne « Costume n° » ;
le nom du rôle-costume endossé est dans sa bonne colonne « Nom du rôle-
costume » ; une action est dans sa bonne colonne « Actions » ; une sous-action
est dans sa bonne colonne « Sous-actions » ; et comme déjà indiqué plus haut,
c'est la macro qui a écrit les données des colonnes A et B (en plus des autres).

sur les 2 feuilles : les résultats sont bien en colonnes C à F ; et pas en B à E ➯
c'est OK ; car SINON, si les résultats avaient été en colonnes B à E, ça aurait
écrasé les infos de ta 2ème colonne d'essais de formules : la colonne B !  :(

sur ton PC, si ça a écrit en B à E au lieu de C à F, je ne comprends vraiment
pas POURQUOI puisque ça fait ce qu'il faut sur mon PC ! aurais-tu modifié
mon code VBA ?  ;)

- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -

(même si j'ai mis une ligne de tirets, la suite va rester en lien avec ce que je viens
d'écrire plus haut : c'est la suite de ce qui précède)

c'est volontairement que je ne t'ai pas parlé des colonnes que tu as ajouté à droite
(celles dont l'en-tête est sur fond jaune) ; pourquoi ? car je voulais que tu te rendes
compte par toi-même que ce n'est pas du tout une bonne idée de l'avoir fait !  :(

ici, je parle de ce que tu as écrit dans ton post du 8 août à 21:10 : « Note : j'ai ajouté
à ces onglets des colonnes qui seront à compléter manuellement = colonnes G à O,
de couleur jaune pale. »

moi, j'ai écrit dans mon post du 3 août à 17:12 : « tu n'auras pas besoin d'effacer
au préalable les anciens résultats car c'est fait automatiquement par la macro. »

dans le même post, j'ai aussi écrit (juste au-dessus) : « attention : l'actualisation
des résultats n'est pas automatique : tu dois d'abord faire tous les changements
nécessaires sur la feuille "Données", puis ensuite faire Ctrl d. »

donc dans les versions v1 et v2 : CHAQUE FOIS que tu ACTUALISES les données,
ça SUPPRIME les lignes des anciens résultats (lignes ENTIÈRES) ➯ bien sûr, ça
ne pose AUCUN problème dans v1 et v2 puisque dans ces deux versions, y'a PAS
tes colonnes ajoutées ; PAR CONTRE, dans v3, ça pose un TRÈS GROS problème
vu qu'effacer une ligne ENTIÈRE ferait que ça effacerait TOUTES les données que
tu as saisies manuellement dans les colonnes ajoutées ; et je le répète pour bien
insister dessus : « À CHAQUE ACTUALISATION ! ».

voilà pourquoi ça ne peut PAS marcher (et il faut pourtant bien effacer TOUS les
anciens résultats, pour ÉVITER toute interférence malencontreuse entre les
anciens résultats et les nouveaux résultats) ; en conséquence, dans v3 :

j'ai choisi de ne PAS m'occuper de tes colonnes ajoutées ; mais pour éviter
d'en effacer les données : AU LIEU DE supprimer des lignes ENTIÈRES,
j'ai effacé les données des SEULES colonnes concernées : celles dont
l'en-tête est sur fond vert clair = les colonnes des RÉSULTATS (ainsi que
les 2 colonnes A et B).

tu vois, SANS t'en rendre compte, tu as énormément compliqué les choses
en ajoutant ces colonnes à remplir manuellement !  :(  et SANS t'en rendre
compte non plus, tu ne pouvais pas savoir qu'il n'y a pas de solution à ça :
APRÈS EXÉCUTION de la macro, les données saisies manuellement en
colonnes ajoutées NE SONT PLUS sur les bonnes lignes des sous-actions
correspondantes !  :(

comme y'a PAS de solution à ça, il faut supprimer TOUTES tes colonnes
ajoutées ; tes données manuelles sont à saisir sur une AUTRE feuille
que celle d'une des 3 feuilles de résultats (tout en faisant une bonne
correspondance adéquate avec le bon costume et la bonne sous-action).

pour TOUT ce que je viens d'écrire pour la version v3, c'est évidemment
PAREIL pour la version v4 ! (SAUF que les 2 anciennes colonnes A et B
qui étaient pour tes essais de formules n'y sont plus)

- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -

tout ça explique pourquoi, dans la future version v5, je vais SUPPRIMER TOUTES
tes colonnes ajoutées ; et comme au tout début dans v1 et v2, lorsque la macro va
effacer les anciens résultats, elle va de nouveau supprimer des lignes ENTIÈRES
➯ INTERDICTION d'ajouter manuellement des données à droite des colonnes
de résultats.  ;)

dans le code VBA, la différence est dans la sub privée ClrData().

pour v1 et v2 :

If d > 3 Then .Rows("4:" & d).Delete 'suppression de lignes ENTIÈRES ;
'c'est tout simple vu qu'y'a pas tes colonnes ajoutées.

pour v3 :

If d > 5 Then .Cells(6, c2).Resize(d - 5, k).ClearContents 'effacement
'de la plage de cellules concernées uniquement (donc sans toucher
'à tes colonnes ajoutées).

pour v4 :

If d > 5 Then .Range("B6:E" & d).ClearContents 'effacement de la
'plage de cellules concernées uniquement (donc sans toucher
'à tes colonnes ajoutées).

- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -

sinon, pour revenir au problème de décalage que toi tu as vu sur ton PC :
comme tu l'as écrit toi-même :

« Mais cela n'a pas d'importance car je préfère la version 4 = dans laquelle
le format des 3 feuilles : { "A porter seul" ; "A partager" ; "A donner" } sont
les mêmes = remontée des données de la Macro dans les colonnes B à E
= parfait :) »

donc c'est ok : va pour la version v4.  :)

rhodo

@Alice

ATTENTION :

j'ai beaucoup modifié mon post précédent
➯ relis-le ENTIÈREMENT.

(edit du 14 août à 07:32)

rhodo

@Alice

j'suis bien content que tu as aimé le « x » pour jeter un costume ; ainsi que
avec ou sans les sous-actions qui commencent par "A compléter " ; idem
pour les sous-actions vides.  :)

- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -

tu as écrit :
« Je comprends juste qu'il ne faudra pas changer la structure
et l'emplacement des tableaux présents dans les 4 feuilles :
"Préciser et trier"
"A porter seul"
"A partager"
et
"A donner"
sinon la Macro ne fonctionnera plus. »

c'est tout à fait exact, et j'suis bien content que tu as compris ça.  :)

- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -

pour TOUTES les AUTRES feuilles (comme par exemple "Synthèse 2",
"Synthèse 3", "Synthèse finale", ou "Utile vs inutile") : je n'avais RIEN
MODIFIÉ du tout.  ;)

donc quand tu écris « ma requête qui permet d'obtenir les données de la feuille
"Synthèse 2" semble toujours fonctionner. » : c'est tout à fait NORMAL que ça
fonctionne EXACTEMENT PAREIL QU'AVANT.  :D

- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -

chaque chose en son temps : je voulais d'abord m'occuper du dispatch ;
rappel : « dispatch » est le mot anglais qui signifie « répartition » ; c'est
bien ça que fait la macro puisqu'elle répartit les données de la feuille
"Préciser et trier" sur les 3 autres feuilles qui sont à droite.

dans la version v5 que j'ai sur mon PC, j'ai déjà vérifié que ce dispatch
fonctionne correctement : c'est OK : la macro fait ce qu'il faut.  :)

rhodo

Bonjour Alice,

Lis d'abord mes 3 posts précédents.

- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -

pour le problème de décalage que tu avais mentionné, je pense avoir compris
d'où ça vient : tu as sans doute ouvert 2 versions du fichier en même temps,
pas vrai ?  ;)  ouvre un seul fichier à la fois, et ça devrait être ok.  :)

OU :

si tu ouvres plus d'un fichier, ne lance pas la macro Dispatch via Ctrl d ;
à la place : fais Alt F8 ➯ fenêtre "Macro" ; en bas, tu peux voir ceci :
« Macros dans : Tous les classeurs ouverts » ; dans la liste, choisis
à la place l'item « Ce classeur » ; plus haut, clique sur le texte du nom
de la macro, donc sur le texte « Dispatch » ; puis à droite et en haut,
clique sur le bouton « Exécuter ».

- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -

à propos de la version v5 qui est sur mon PC :

* j'ai fait plusieurs modifs sur les 3 premières feuilles "Vos 9 piliers de vie",
"Objectif SMARTER", "Etapes vers objectif".

* j'ai fait un gros travail de simplification sur tes 3 feuilles "Utile vs inutile",
"Costumes à jeter", "Synthèse 1".

- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -

sur la 4ème feuille "Liste costumes actuels" :

* il y a une 1ère série de données : lignes 4 à 15

* il y a une 2ème série de données : lignes 21 à 32 (pour ton « Exemple : »)

* il y a une 3ème série de données : lignes 34 à 45 ; est-ce que c'est normal
qu'il y a cette 3ème série ? peut-être que tu l'as écrite par erreur car t'avais
oublié qu'il y avait la 2ème série de « Exemple : » ? (série cachée lorsque
les lignes de l'exemple sont masquées en cas de groupement du plan) ;
si oui, il faut supprimer cette 3ème série (car ça fait un doublon avec
la 2ème série).

si tu réponds oui, je supprimerai moi-même cette 3ème série :
ça allègera la version v5 avant que je la mette sur le forum.

rhodo

Bonjour Alice,

voici la version v5.1 : https://www.cjoint.com/c/MHohiGefjH0

il n'y a que 3 feuilles ; ne te préoccupe pas des feuilles manquantes :
je les ajouterai au fur et à mesure dans les versions ultérieures.

- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -

A) feuille "Vos 9 piliers de vie"

* j'ai modifié un peu la présentation de A3:B3.

* j'ai supprimé les anciennes lignes 15 à 30.

fais des tests de saisie de notes en C6:D14 ; tu verras que ça marche
correctement (même si c'est sans les lignes 15 à 30) ; remarque :

pour effacer une note, il suffit de la sélectionner et d'appuyer sur
la touche Suppression ; l'item vide de ta liste déroulante (qui
correspondait à la cellule vide A19) était inutile.

- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -

B) feuille "Objectif SMARTER"

* en E5, il y avait : « R = Réalisable dans le contexte actuel » ;
en H5, il y avait : « R = Réévaluable » ; ça fait 2 codes R !  :(
donc pour éviter ça, j'ai mis à la place :

« Rc = Réalisable dans le contexte actuel »
« Rv = Réévaluable »

(dans les 2 cellules du fichier tout le texte est gras)

* fais des tests de saisie de notes en B11:B19 (de la même façon que
tu l'avais fait en C6:D14 de la 1ère feuille "Vos 9 piliers de vie").

* à propos de la plage C11:D19 : même si tu ne vois plus les zéros,
les formules sont toujours présentes (et inchangées).  ;)  donc ne
t'inquiète pas : le rappel des notes marchera aussi bien qu'avant.

- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -

C) feuille "Etapes vers objectif"

regarde la nouvelle formule de C3.  ;)  (ça sera cette même formule
sur les autres feuilles qui seront à droite)

rhodo

@Alice

voici la version v5.2 : https://www.cjoint.com/c/MHoiVrBuRe0

c'est v5.1 + 4 autres feuilles (3 premières feuilles : inchangées).

- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -

A) feuille "Liste costumes actuels"

je ne sais toujours pas si la 3ème série de données (lignes 34 à 45)
est un doublon de la 2ème série de données (lignes 21 à 32) ➯
je n'ai pas supprimé la 3ème série : feuille inchangée.

rappel : la 2ème série est ton « Exemple : » ; il y a aussi
la 1ère série (lignes 4 à 15).

faut supprimer la 3ème série de données ou non ?

- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -

B) feuille "Utile vs inutile"

* regarde la formule en C3.

* j'ai supprimé les 5 anciennes lignes 9:10 et 4:6 ; fais des essais de
modification en B9:K9 ; tu verras que ça marche aussi bien qu'avant.

essais de modif = choix de l'item "A JETER" ou de l'item "A GARDER"
ou effacement de la donnée-item avec la touche Suppression.

- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -

C) feuille "Costumes à jeter"

* regarde la formule en C3.

* j'ai supprimé les 3 anciennes lignes 8 et 2:3 ; lignes de "Costume n°"
et "Nom du costume" : avant, tu avais en B:K ce genre de formule :

=SIERREUR(RECHERCHEH($A$3&"_"&B$8;'Utile vs inutile'!$10:18;2;0);"")

j'ai supprimé TOUTES ces formules : je te laisse vérifier qu'il n'y a
AUCUNE formule en B6:K7.  ;)

- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -

D) feuille "Synthèse 1"

* regarde la formule en B3.

* j'ai supprimé les 3 anciennes lignes 8 et 4:5 ; lignes de "Costume n°"
À "Action 5" : avant, tu avais en B:K ce genre de formule :

=SIERREUR(RECHERCHEH($A$5&"_"&B$8;'Utile vs inutile'!$9:$18;3;0);"")

j'ai supprimé TOUTES ces formules : je te laisse vérifier qu'il n'y a
AUCUNE formule en B6:K19.  ;)

- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -

maintenant, fais Alt F11 ; bonne lecture !  :)

remarque : contrairement à tes formules avec RECHERCHEH(),
le code VBA fait ce qu'il faut sans avoir besoin de faire une
recherche quelconque.  ;)

- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -

code VBA du module de la feuille "Utile vs inutile" (38 lignes) :

Option Explicit: Option Base 1

Private Sub Worksheet_Change(ByVal Target As Range)
  If Target.CountLarge > 1 Then Exit Sub
  If Intersect(Target, [B9:K9]) Is Nothing Then Exit Sub
  Dim LC As Worksheet, c1 As Range, c2 As Range
  Dim sh$(2), c(2) As Byte, v$, k As Byte, i As Byte
  Application.ScreenUpdating = 0: c(1) = 2: c(2) = 2
  sh(1) = "Costumes à jeter": sh(2) = "Synthèse 1"
  Set LC = Worksheets("Liste costumes actuels")
  Worksheets(sh(1)).[B6:K7] = Empty: Worksheets(sh(2)).[B6:K19] = Empty
  For i = 2 To 11
    Set c1 = LC.Cells(4, i): Set c2 = Cells(9, i): v = c2.Value: k = 0
    If v = "A JETER" Then k = 1 Else If v = "A GARDER" Then k = 2
    If k > 0 Then
      With Worksheets(sh(k)).Cells(6, c(k))
        .Value = c1.Value             'n° costume
        .Offset(1) = c1.Offset(1)     'nom du rôle-costume endossé
        If k = 2 Then
          .Offset(2) = c1.Offset(2)   'symbole qui représente le rôle
          .Offset(3) = c2.Offset(-1)  'utilité sur 10 / objectif visé
          .Offset(4) = c2.Offset(1)   'pourquoi ce costume est utile ?
          .Offset(5) = c1.Offset(4)   'poids ressenti sur 10
          .Offset(6) = c2.Offset(2)   'quand doit-il être porté ?
          .Offset(7) = c2.Offset(3)   'avec qui doit-il être porté ?
          .Offset(8) = c2.Offset(4)   'combien d'heures le porter ?
          .Offset(9) = c1.Offset(7)   'action 1
          .Offset(10) = c1.Offset(8)  'action 2
          .Offset(11) = c1.Offset(9)  'action 3
          .Offset(12) = c1.Offset(10) 'action 4
          .Offset(13) = c1.Offset(11) 'action 5
        End If
        c(k) = c(k) + 1
      End With
    End If
  Next i
End Sub

rhodo

Bonsoir Rhodo,

Tout d'abord merci mille fois pour vos messages et vos précisions.
Je prends le temps de tout regarder dès demain et de revenir vers vous rapidement.

A très vite,
Alice

Bonjour Rhodo,

ça y est j'ai pu tout lire et tout regarder ! :)

1- Tout à fait !
"pour le problème de décalage que tu avais mentionné, je pense avoir compris
d'où ça vient : tu as sans doute ouvert 2 versions du fichier en même temps,
pas vrai ?  ;)"
=> OUI en effet j'avais ouvert les 2 versions en même temps ! :/

----------------------------------------------------------------------------------------------------------------------

2- Voici mon retour à partir de votre dernière version v5.2 :

Feuille "Vos 9 piliers de vie" :
En effet c'est carrément plus pratique d'avoir écrit les chiffres de 1 à 10 dans la source de validation des données :)
Plutôt que d'avoir des lignes prises (et à masquer) pour cela !

Le fond (= contenu) et l'enchaînement des étapes m'importent, mais la forme et la structure de ce document Excel ne sont pas du tout figées : n'hésitez donc pas à les modifier :).


Feuille "Objectif SMARTER" :
-> Ok pour "Rc" et "Rv" :)
Est-ce parce que vous vous servez de ces 2 codes : "Rc" et "Rv" dans une Macro ?

Parfait pour la validation des données en B11:B19 :)

Ok pour la plage C11:C19 également. C'est mieux sans les zéros :).


Feuille "Etapes vers objectif" :
Je vois que la formule en C3 rapporte "=OB" et je vois dans le gestionnaire de noms que vous avez attribué le nom "OB" à la cellule A6 de la feuille "Objectif SMARTER" :)

J'imagine que les autres noms saisis ici servent pour une Macro ?


Feuille "Liste costumes actuels" :
Les lignes 21 à 32 => rapportent les lignes 4 à 15 = formules.
Les lignes 34 à 45 => sont simplement un copier-coller en valeurs des lignes 21 à 32 à un instant "t" = sorte de back-up.
Au final je pense supprimer les lignes 34 à 45, et simplement copier-coller en valeur les lignes 21 à 32 quand j'aurai cessé de modifier les lignes 4 à 15.
=> Il ne devrait rester qu'un seul tableau d'exemple = lignes 21 à 32.

En effet, quand je vais sous "Données" / "Actualiser tout" => les costumes A JETER apparaissent bien dans la feuille "Costumes à jeter", et disparaissent de la feuille "Synthèse 1" :)


Feuille "Utile vs inutile" :
Idem que pour la feuille "Liste costumes actuels" : au final je laisserai uniquement un tableau d'exemple, lignes 17 à 23.
Je supprimerai les lignes 25 à 31.


Feuille "Costumes à jeter" :
Je retrouve le nom OB en B3 :)

En effet, il n'y a plus aucune formules en B6:K7 :) C'est super !


Feuille "Synthèse 1" :
Concernant le code VBA :
Je comprends certaines fractions du code. Mais pour la plupart c'est du chinois pour moi :(
Mais cela fonctionne bien :).


-----------------------------------------------------------------------------------------------------------------------------

Pour les feuilles suivantes non présentes dans votre version v5.2 :

1- Je comprends que les 3 feuilles de résultats 
"A porter seul"
"A partager"
"A donner"
ne doivent pas servir à de la saisie manuelle comme en cas d'actualisation les lignes des colonnes en jaune pâle ne correspondraient plus aux nouvelles lignes des colonnes vertes dont les données remontent grâce à la Macro dispatch.
Je n'avais pas vu l'effacement des lignes complètes.

Logiquement il devrait y avoir 1 seule remontée des données dans ces 3 feuilles = 1 seule utilisation de la Macro "dispatch".
Puis une saisie de données dans les colonnes en jaune pale.

Cependant c'est sans doute plus prudent de séparer :
- Les feuilles "de synthèse" = qui remontent automatiquement des données réparties, à partir d'autres feuilles ou d'une autre feuille
(comme c'est le cas pour les 3 feuilles : "A porter seul", "A partager", et "A donner" qui remontent les données issues de la feuille "Préciser et trier")
ET
- Les feuilles "d'exercice" = qui permettent de saisir des données manuellement.

=> Donc je comprends que ces 3 feuilles "A porter seul", "A partager", et "A donner" serviront de synthèses = à ne pas toucher ni modifier.

Cela signifie qu'il faut créer 3 nouvelles feuilles :
"A faire" = qui rapporterait les données de la feuille "A porter seul" dans les colonnes B à E
"A répartir" = qui rapporterait les données de la feuille "A partager" dans les colonnes B à E
et
"A déléguer" = qui rapporterait les données de la feuille "A donner" dans les colonnes B à E
=> et permettront la saisie de nouvelles données = selon les colonnes en jaune pâle.

C'est juste ?

2- Feuille "Synthèse 2" :
Le but de cette feuille est de montrer uniquement les sous-actions "A porter seul" et "A partager", et comment faire pour cela.

D'après ma compréhension de la requête que j'ai créée pour additionner les lignes des 2 feuilles "A porter seul" et "A partager" :
Il faut que ces 2 feuilles aient des colonnes identiques pour que la requête fonctionne.
C'est pourquoi, même si je n'attends pas la même saisie de données dans les colonnes en jaune pâle des 2 feuilles "A porter seul" et "A partager" => j'ai ajouté des colonnes masquées (G, I, et J dans "A porter seul", et la colonne F dans "A partager") afin que les intitulés des colonnes F à R de ces 2 feuilles soient identiques.

Note : il faudra donc que je modifie ma requête si les feuilles sources ne sont plus "A porter seul" et "A partager" mais les nouvelles feuilles à créer qui contiendront les données saisies manuellement par les utilisateurs de ce fichier de travail.

3- Feuilles "Forces", "Talents", "Qualités" :
Leur structure vous semble-t-elle adaptée ?


4- Feuille "Synthèse 3" :
Rapportera une synthèse des données saisies dans les 3 feuilles "Forces", "Talents" et "Qualités".
Pour que l'utilisateur ait une vision d'ensemble des 5 forces, des 5 talents et des 5 qualités qu'il doit exercer pour atteindre son objectif.


5- Feuille "Synthèse finale" :
Rapporte en C9 à E14 = les 5 forces, 5 talents et les 5 qualités à exercer en priorité.

Rapporte dans les colonnes B à Q :
L'ensemble des actions, sous-actions, à réaliser par costume, et les détails de leurs exécutions.

-----------------------------------------------------------------------------------------------------------------------------

Note globale :
J'ai imaginé la structure de ce document de travail afin de permettre à de futurs utilisateurs de réaliser facilement les différents exercices proposés dans les différentes feuilles de ce document Excel.
Mon but est que leur saisie manuelle soit facilité, et qu'ils s'y retrouvent dans les différents tableaux. Notamment avec des tableaux de synthèse pertinents.
=> ainsi si vous avez des idées ou des recommandations pour alléger cette structure : je suis à votre écoute ! :)

Dans l'attente de votre retour :)

Merci encore par avance,

Alice

Bonjour Alice,

A) feuille "Objectif SMARTER"

tu as écrit : « Est-ce parce que vous vous servez de
ces 2 codes : "Rc" et "Rv" dans une macro ? »

non, je n'utilise pas ces codes dans une macro.

comme les en-têtes de B5:H5 sont de la forme "Lettre = Texte", j'ai pensé que
« Lettre » était un « code » qui devait être mis par l'utilisateur ; or s'il met le code
« R », on ne peut pas savoir si c'est pour « Réalisable dans le contexte actuel »
ou pour « Réévaluable » ; c'est pour ça que j'ai mis un code distinctif.  :)

donc si l'utilisateur met « Rc », c'est « Réalisable dans le contexte actuel » ;
s'il met « Rv », c'est « Réévaluable » ; il n'y a plus d'ambiguïté.  ;)

- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -

B) feuille "Etapes vers objectif"

c'est très bien d'avoir vu OB dans le Gestionnaire de noms.  :)

tu as écrit : « J'imagine que les autres noms saisis ici servent pour une macro ? »

non, je n'ai pas mis les autres noms pour m'en servir dans une macro ;
ils seront simplement utilisés sur la feuille "Préciser et trier".

- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -

C) feuille "Liste costumes actuels"

merci pour toutes tes infos sur les séries de données ; donc je te laisse faire
toutes tes manips nécessaires.  ;)

- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -

D) feuille "Utile vs inutile"

là aussi, je te laisse faire toutes tes manips nécessaires ; bonne chance !  :)

- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -

je verrai la suite plus tard.

rhodo

@Alice

voici la version v5.3 : https://www.cjoint.com/c/MHqr0ADBZJ0

c'est v5.2 + 4 autres feuilles (7 premières feuilles : inchangées).

- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -

regarde la feuille "A donner" ; puis "A partager" ; puis "A porter seul" :
sur ces 3 feuilles, c'est vide sous la ligne 5.

va sur la feuille "Préciser et trier" ; fais Ctrl d, puis regarde les résultats.

- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -

attention : j'ai un peu amélioré la présentation des résultats ; donc
j'ai un peu modifié le code VBA ; et comme je l'avais indiqué avant,
dans la sub privée ClrData(), j'ai remis la suppression de lignes
entières, via cette instruction :

If d > 5 Then .Rows("6:" & d).Delete

dans ton fichier réel : va sur Module1 ; fais Ctrl a pour sélectionner tout
le texte ; appuie sur la touche Suppression ➯ page vide ; puis fais un
copier / coller du nouveau code VBA.

- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -

dans ton post du 15 août à 09:43, TOUT ce que tu as écrit à propos
des 3 feuilles de résultat est CORRECT.  :)

- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -

à propos des 3 noms AC, PO, UT (que tu avais vu dans le Gestionnaire de
noms, en même temps que OB) : c'est sur la feuille "Préciser et trier" que
je les ai utilisés, dans le grand tableau situé en plage B29:H159.

ça permet des simplifications pour chacun des costumes ; exemple pour
le costume 1 "Leader" :

a) formule en C31 : =SI(B31="";"";UT)

b) formule en C32 : =SI(B32="";"";PO)

c) formule en E37 : =AC&B7&" "&E29&" "&C37

note pour c) seulement : c'est idem pour toutes les cellules du même style,
donc pour les cellules qui commencent par "A compléter costume".

- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -

sur la feuille "Préciser et trier", il y a en B19 : "Pour formules :" ; dessous,
j'avais oublié d'enlever "Sous-action 6" à "Sous-action 10" ; c'est fait
maintenant ➯ 5 lignes de moins ➯ le grand tableau est remonté ➯ dans
le code VBA, il y a maintenant : « T = [D30:H159] ».

- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -

code VBA de Module1 (54 lignes) :

Option Explicit

Private Sub ClrData(f$)
  Dim d&
  With Worksheets(f)
    d = .Cells(Rows.Count, 2).End(3).Row: If d > 5 Then .Rows("6:" & d).Delete
  End With
End Sub

Sub Dispatch()
  If ActiveSheet.Name <> "Préciser et trier" Then Exit Sub
  Dim T, R, d(1 To 3), s$, v$, y$, f$, a As Byte, b As Byte, c As Byte, i As Byte, j As Byte, k As Byte
  Const g As String * 12 = "A compléter " 'partie gauche (12 car) d'une sous-action qui sera ignorée
  Application.ScreenUpdating = 0: ClrData "A porter seul": ClrData "A partager": ClrData "A donner"
  T = [D30:H159]: R = [C7:C16]: d(1) = 6: d(2) = 6: d(3) = 6
  For a = 1 To 10 'costumes
    If [A6].Offset(a) = "" Then
      i = (a - 1) * 13 + 1
      For b = 1 To 5 'actions
        s = T(i, b)
        For c = 1 To 5 'sous-actions
          j = (c - 1) * 2 + i + 3: v = T(j, b)
          If v <> "" Then
            y = Left$(v, 12)
            If y <> g Or (y = g And [D21] <> "sans") Then
              f = T(j + 1, b): k = 0
              If f <> "" Then
                Select Case f
                  Case "A porter seul": k = 1
                  Case "A partager": k = 2
                  Case "A donner": k = 3
                End Select
                If k > 0 Then
                  With Worksheets(f).Cells(d(k), 2)
                    .Resize(, 4).VerticalAlignment = 2
                    .HorizontalAlignment = 4: .IndentLevel = 2
                    .Offset(, 1).Resize(, 3).WrapText = -1
                    .Value = [B6].Offset(a) 'n° du costume
                    .Offset(, 1) = R(a, 1)  'rôle endossé
                    .Offset(, 2) = s        'action
                    .Offset(, 3) = v        'sous-action
                    d(k) = d(k) + 1
                  End With
                End If
              End If
            End If
          End If
        Next c
      Next b
    End If
  Next a
  Worksheets("A porter seul").Select
End Sub

rhodo

Bonjour Rhodo,

Merci beaucoup pour votre réponse rapide et cette nouvelle version v5.3.

Voici mon retour sur cette version :

1-  Je considère chacune de vos nouvelles versions comme mon nouveau fichier réel de travail.

2-  Merci : je comprends bien l’utilisation des 3 noms AC, PO, UT