Evolution document VBA

Question

J'aurai quelques questions à vous soumettre sur un document créé à l'aide de forumeurs assidus Yvouille et Dan. Le 1er a beaucoup oeuvré sur ce document et malheureusement il s'est fâché sur la fin ... Mais je suis très très satisfait de cet outil qui me sert au quotidien à mon travail. Bref je vous sollicite pour voir si quelqu'un peut me dépanner sur le sujet car je n'ai aucunes compétences en la matière. C'est un document de suivi statistiques d'équipes sportives en fonction du calendrier, journée par journée. --&gt; voici le document de départ qui permet de créer pour chaque saison un nouveau classeur avec chacune des équipes https://drive.google.com/file/d/1aAeI9uNHYzGABEa9zgoCD32W_2GctEUZ/view?usp=sharing La feuille LAN sert de support à la création des autres feuilles équipes. Je remplis le calendrier et je vais clicker sur le bouton nouvelle saison de la fiche information et le document est créé. Je rentre pour chaque journée A1, A2, A3, etc ... les stats de chaque rencontre et ça me permet d'effectuer toute sorte de classement. Je les renomme en J1, J2 etc ... pour qu'elles soient prise en compte sur chaque feuille équipe une fois la journée jouée. 1) j'ai ajouté une colonne statistique sur la feuille LAN en AH et AT (OPP= qui recense ce que je nomme les opportunités). Je l'ai intégré aussi en colonne F de ma feuille ranking. je voudrai être certain que par rapport au VBA appliqué cela ne posera pas de souci ? Est ce que quelqu'un peut me le confirmer ? --&gt; voici le document déjà créé de cette saison avec des données remplies de J1 à J5 car 5 journées se sont déjà jouées (rmq : il n'y a pas les OPP car pas effectif au moment de la création) https://drive.google.com/file/d/1r5g4sRZI1OkMmw7tljqSUlLGHvjPvVEZ/view?usp=sharing Sauf que sur la J3 et la J4 Chartres n'a pas pu jouer ces matchs et ils sont reportés à une date ultérieure ... Sur la feuille équipe CHA et BOU en J3 les chiffres sont à 0 ce qui fausse toutes les moyennes ... En J4 le 1er match noté sur la feuille étant celui de CHA qui a été reporté, cette J4 n'apparaît dans aucune des feuilles équipe ... 2) Est-il possible de faire en sorte que des matchs non joués sur les feuilles J... etc ne soient pas comptabilisés dans les feuilles des équipes respectives ? 3) Cela met le bazar aussi dans ma feuille ranking du coup avec des #DIV/0 et des calculs faussés (le fait de répondre à la question 2 peut déjà aider à rétablir la feuille ranking). Comment faire en sorte que dans la feuille ranking tous les items soient remplis correctement même si le nombre de matchs n'est pas le même pour les équipes pour le moment. Juste en tenant compte des matchs joués et des données associées (ne pas avoir de #DIV/0 partout) ? Est ce réalisable à votre avis ? Le dernier point est que si vous trouvez une solution j'aimerai qu'elle soit appliquée sur le document de départ directement et non celui déjà créé (qui sert d'exemple ici, car je souhaite en refaire 1 intégrant en les colonnes OPP comme décrit dans le point 1 --&gt; ce qui n'est pas le cas du doc déjà créé). Bon voilà mes questions et une fois de plus je vous serai hyper reconnaissant pour un éventuel coup de pouce ... j'imagine que ça peut paraître un peu flou et n'hésitez pas à me demander des éclaircissements si besoin. Cordialement Olivier...

Dan · Answer

Toujours sur excel MAC je suppose ? vous avez deux documents téléchargeables. C'est dans le deuxième ou dans le premier document que vous avez ajouté des colonnes ? Un nommé V12-Original et l'autre nommé 2026-2027 LFB Si vous avez ajouté deux colonnes, la dernière colonne de votre tableau est la colonne BL. Dans ce cas, allez dans le code Private Sub Workbook_SheetActivate(ByVal Sh As Object ) dans Thisworkbook, et dans cette ligne --&gt; .Range("C" & j & ":BI" & j).Copy il faut remplacer BI par BL Logique votre problème car le code Private Sub Workbook_SheetActivate(ByVal Sh As Object ) dans Thisworkbook n'est pas correct ou tout au moins une ligne Dans le fichier 2026-2027 LFB, essayez ceci : Remplacez cette ligne : If .Range("B" & j) = Equipe_traitee And WorksheetFunction.Sum(.Range("E4:F5")) &gt; 0 Then ' La variable j est la ligne sur laquelle se trouve le nom de l'equipe traitee par celle-ci If .Range("B" & j) = Equipe_traitee And WorksheetFunction.Sum(.Range("E" & j & ":F" & j + 1)) &gt; 0 Then ' La variable j est la ligne sur laquelle se trouve le nom de l'equipe traitee Cela solutionne le souci je pense NB: votre feuille Ranking mériterait d'être modifiée. Pourquoi fusionner la colonne B et C ?...

Dan · Answer

Bah il y a de nouveautés intéressantes mais il est aussi vrai que tout a augmenté à cause de la mémoire et de l'IA. Quelle est votre config MAC ? Cette erreur existe depuis pas mal de temps à moins que vous avez modifié depuis la dernière fois que je me suis occupé du fichier. Je ne me souviens plus trop à vrais dire... En fait il ne fallait pas laisser E4:F5 mais tenir compte de la ligne via la variable j Peut être déjà défusionner les deux colonnes mais vous devrez refaire les liens hypertextes. Mais bon cela ne gêne pas trop. Modifier les formules dans la zone 2 points - En D6 --&gt; =INDIRECT(INDIRECT("B" & LIGNE()) & "!H29") - En E6 --&gt; =INDIRECT(INDIRECT("B" & LIGNE()) & "!I29") - En F6 --&gt; =INDIRECT(INDIRECT("B" & LIGNE()) & "!J29") Recopiez D6, E6 et F6 vers le bas jusque la ligne 17 Puis refaire la même chose pour les lignes 23 à 34, 40 à 51 et 57 à 68 Après refaire la même chose sur les colonnes suivantes où vous faites référence à la colonne B Ce n'est pas obligé mais cela vous permet de garder les bonnes infos si par hasard vous changez la référence en colonne B - "Adresses" d'autant que je vois que vous ajoutez les liens hypertexte dans la colonne B via un code Oui mais votre fichier doit comporter les feuilles nommées "j1, j2, .... et avoir les feuilles LAN, VIL.... et Les feuilles sont nommées A1, A2..... et il n'y a pas de feuille nommée J1, J2, Sinon j'ai refait le code Sub Transfert_Base_Calendrier() si vous voulez Par contre, je ne comprends pas le pourquoi d'une colonne vide dans la feuille calendrier...

Dan · Answer

Logique si vous n'avez pas de données en colonne B. Vous pouvez contourner le souci des erreurs en modifiant la formule comme ceci : 1. En C6 --&gt; =SIERREUR(@INDIRECT(@INDIRECT("B" & LIGNE()) & "!H29");"") 2. Formule à recopier vers le bas. 3. Ensuite faites de même pour D6, E6, G6 à H6, K6 à M6 etc.. 4. Pour F6 vous pouvez mettre cette formule --&gt; =SIERREUR(RANG(E5;$E$5:$E$16);"") 5. Faire de même pour J6, N6 etc... puis recopier vers le bas Si vous appliquez ce que je écris au point 1, cela résout le problème Nb : en F6 vous avez la formule RANG tandis qu'en F7, vous ne utilisez pas la même formule..... Donc à corriger Voyez déjà pour résoudre ces deux soucis là Vous en avez déjà parlé dans votre premier post si je ne me trompe. Questions : 1. on a un souci car d'un coté vous postez un fichier avec des feuilles A1, ... (fichier original) et de l'autre des J1...Les codes ne fonctionnent qu'avec les fichiers avec feuilles J1... Donc comment passez-vous de A à J ? 2. Après je vous ai écrit que j'avais revu les codes à vous donnez mais reste le souci de cette colonne vide (mon message précédent) auquel vous ne répondez pas...

Dan · Answer

Ok j'avais compris comment cela fonctionne. 1. Vous extrayez la table 4 2. Vous complétez le calendrier avec le bouton Nouvelle Saison (code Transfert_Base_Calendrier ) 3. Vous créez les feuilles à partir de la feuille LAN (Modèle si je comprends) avec le code Preparer_une_nouvelle_saison . NB : vous auriez dû créer une feuille Modèle plutot que de partir sur la feuille LAN 4. Vous modifiez les feuilles A1 et mettant les données et une fois terminé, vous renommez manuellement A1 et J1. Idem pour les autres feuilles A... Vous parlez de La feuille Ranking je suppose ? Il n'y a rien qui modifie les formules Indirect dans votre C et suivantes. Mais vous devez préparer d'abord manuellement cette feuille. Seule la colonne B sera adaptée en fonction des équipes trouvées en feuille Calendrier. J'ai fais un code à ce sujet Là j'ai d'abord besoin de voir votre feuille Ranking avec les formules mises en place pour vérifier le code que je vous ai fait Ok. On va la supprimer. Il faudra juste adapter les formules en feuille A pour la ligne 5, 33, 61 etc qui feront référence à la colonne D de la feuille Calendrier plutot que la E Si cela vous renvoie CHM!H29 c'est que vous n'avez pas suivi ce que j'ai écrit --&gt; https://forum.excel-pratique.com/s/goto/1270525 Vous devez étirer la formule D6 vers le bas jusque D17 comme vous avez fait pour la colonne C. Idem pour les autres colonnes Supprimez aussi toutes les fusions de cellules et lignes parce que si vous ne suivez pas pas à pas ce que je vous écrit cela ne va pas fonctionner...