Interaction de différentes macros entre elles
Bonjour,
j'ai un fichier qui contient quelques macros dont le but est de masquer des lignes pour rendre le fichier plus lisible et moins lourd au niveau visuel. Les macros fonctionnent bien seules mais lorsqu'elle interagissent entre elles ça annule l'action de la macro précédente.
Par exemple, quand j'actionne une macro qui masque les lignes 5 à 20 puis une autre qui masque les lignes 7 à 12 (c'est juste pour illustrer), la première va bien masquer les lignes 5 à 20 mais la seconde va faire réapparaitre toute les lignes puis masquer les lignes 7 à 12, par conséquent au lieu d'avoir les lignes 5 à 20 et 7 à 12 masquées je me retrouve avec seulement les lignes 7 à 12 qui sont masquées.
Je vous joint mon fichier en .zip, les macros s'activent dans les cellules E16 et E17 de la feuille "training plan", elles agissent sur la feuille "training plan", "raw data" et toutes les feuilles "microcycle" mais pour ces dernières il n'y a rien à signaler car cela fonctionne comme je veux
Bonjour,
Cette ligne démasque toutes les lignes
ws.Rows.Hidden = Falsesoit vous la supprimez, soit vous mettez une apostrophe devant pour l'inactiver, et ce pour chaque cas de figure
Cdlt
Bonjour David2b, Arturo83
Je pense malheureusement qu'il faille passer pas des boucles avec test pour masquer les lignes ou faire un test avant
If Ws.Rows(16).Hidden = True then ....Nota : qui va vouloir travailler sur un classeur avec des couleurs aussi sombres
@+
Merci pour vos réponses!
J'ai réussi à avoir un début de solution il y a quelque temps via un membre du forum, le problème est que je n'arrive pas à l'appliquer au fichier que je vous ai joint précédemment mais dans son fichier ça fonctionnait, je vous le joint ici pour que vous puissiez y jeter un coup d'oeil
Bonjour,
"Par exemple, quand j'actionne une macro qui masque les lignes 5 à 20 puis une autre qui masque les lignes 7 à 12 (c'est juste pour illustrer), la première va bien masquer les lignes 5 à 20 mais la seconde va faire réapparaitre toute les lignes puis masquer les lignes 7 à 12, par conséquent au lieu d'avoir les lignes 5 à 20 et 7 à 12 masquées je me retrouve avec seulement les lignes 7 à 12 qui sont masquées."
Si vous expliquiez comment vous procéder pour sélectionner 2 périodes différentes, ça nous aiderait un peu. Pour ma part je ne vois que la possibilité de choisir le nombre de semaines (donc 1 seule période à la fois)
Rappel: Le principe initial était bien que la feuille soit recalculée en fonction du nombre de semaines et du nombre de sessions. donc à chaque changement du nombre de semaines, dans un premier temps, on démasquait toutes les lignes puis on affichait uniquement le nombre de semaines sélectionnées à partir de la date choisie.
Décrivez ce que vous voulez faire et la façon dont vous compter procéder.
Cdlt
Bonjour,
veuillez m'excuser si je n'ai pas été assez clair. Le but est simple : j'ai le choix entre 1 à 16 semaines et 1 à 14 sessions, une semaine peut donc contenir jusqu'à 14 sessions mais moi je ne veux pas forcément utiliser ces 14 sessions pour chacun de mes clients et c'est pareil pour le nombre de semaines, ça veut dire que je peux avoir un client dont la configuration serait de 6 semaines et 4 sessions par semaines (donc la il ne faut faire apparaitre que 6 semaines et 5 sessions pour chaque semaine) ou alors je peux en avoir un autre qui ait besoin de 9 semaines et 7 sessions par semaines (idem mais avec 9 semaines et 7 sessions), ce que la macro doit faire c'est masqué les lignes qui ne seront pas utilisées en gros donc pour le premier cas (6 semaines et 5 sessions): masquer les semaines 7 à 16 et toutes les sessions (de toutes les semaines) 6 à 14 (les numéro de ligne sont déjà les bons dans la macro), idem pour le second cas : masquer les semaines 10 à 16 et toutes les sessions (de toutes les semaines) 8 à 14, et cette opération doit être valable pour toutes les configurations possible (1 à 16 semaines et 1 à 14 sessions)
voila je pense que vous comprendrez mieux comme ça
Bonjour,
J'avais bien crû comprendre tout cela mais, si vous voulez conserver l'affichage de plusieurs périodes discontinues, il va falloir ajouter un élément supplémentaire qui consisterait à savoir si l'on repart de zéro ou si l'on doit conserver les précédentes sélections. On pourrait donc mettre une case à cocher "Reset" qui effacerait les précédentes sélections si elle est cochée, c'est ce qui existe actuellement, ou qui conserverait les précédentes sélections si elle est décochée .
Mais, un deuxième problème vient se greffer au premier, en effet, pour traiter le nombre de sessions qui lui aussi, peut être variable d'une sélection à l'autre, il va falloir peut-être revoir le principe des sélections des semaines et des sessions, plutôt qu'une seule cellule pour chacun de ces éléments "F16" et "F17", il serait préférable de créer un liste pour les semaines et une pour les sessions retenues, ainsi le programme lirait ces listes et afficherait que ce qui a été sélectionné dans les listes.
Seulement, j'ai bien peur qu'il faille revoir une grosse partie du code pour appliquer cela car au départ il n'a pas été conçu pour ce genre de traitement.
Je vais essayez de m'y remettre mais je ne vous garantit pas le résultat dans l'immédiat.
Cdlt
Je pense que j'ai mal interprété votre dernier message, en le lisant attentivement je retrouve bien le fonctionnement de la demande initiale: https://forum.excel-pratique.com/excel/macro-pour-masquer-des-lignes-154051
je ne comprends pas, le dernier fichier que j'avais déposé faisait bien ce que vous demandiez.
-Si je sélectionne 6 semaines et 4 sessions j'ai bien 4 semaines qui s'affichent avec 4 sessions chacune.
-Si je sélectionne 9 semaines et 7 sessions j'ai bien 9 semaines qui s'affichent avec 7 sessions chacune.
Où est le problème?
Je remets le fichier sur lequel j'ai fait les essais:
Faites des essais et dites-moi ce qui ne va pas en décrivant bien ce que vous avez fait.
Cdlt
Re,
merci pour votre réponse, tout d'abord voici le code que j'ai mis dans la version original de mon fichier, ici dans la feuil1 (training plan)
Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
Const LIGNES_TRAINING As String = "#189#324#459#594#729#864#999#1134#1269#1404#1539#1674#1809#1944#2079"
Const LIGNES_RAW As String = "#74#140#206#272#338#404#470#536#602#668#734#800#866#932#998"
Const TOTAL_TRAINING As String = "54:2212"
Const TOTAL_RAW As String = "8:1061"
Application.ScreenUpdating = False
If Not Intersect(Target, Range("E16:E17")) Is Nothing Then
NbSem = Range("E16").Value
NbSess = Range("E17").Value
Sheets("Training Plan").Rows.Hidden = False
Masque_Affiche Sheets("Training Plan"), Target, LIGNES_TRAINING, TOTAL_TRAINING
If IsNumeric(Target.Value) Then
OrganisationLignes
Masque_Affiche Sheets("Training Plan"), Target, LIGNES_TRAINING, TOTAL_TRAINING
Masque_Affiche Sheets("Raw Data"), Target, LIGNES_RAW, TOTAL_RAW
Masquer_Semaines
End If
End If
If Not Intersect(Target, Range("E17")) Is Nothing Then
Call OrganisationLignes
End If
End Sub
et ici dans le module 1
Public ws As Worksheet
Public NbSess As Byte, NbSem As Byte
Sub OrganisationLignes()
Dim ws As Worksheet
Dim NbSess As Byte
NbSess = Sheets("Training Plan").Range("E17").Value
For Each ws In Worksheets
If Left(ws.Name, 10) = "Microcycle" Then
Select Case NbSess
Case 1
ws.Rows.Hidden = False
ws.Rows("44:498").Hidden = True
Case 2
ws.Rows.Hidden = False
ws.Rows("79:498").Hidden = True
Case 3
ws.Rows.Hidden = False
ws.Rows("114:498").Hidden = True
Case 4
ws.Rows.Hidden = False
ws.Rows("149:498").Hidden = True
Case 5
ws.Rows.Hidden = False
ws.Rows("184:498").Hidden = True
Case 6
ws.Rows.Hidden = False
ws.Rows("219:498").Hidden = True
Case 7
ws.Rows.Hidden = False
ws.Rows("254:498").Hidden = True
Case 8
ws.Rows.Hidden = False
ws.Rows("289:498").Hidden = True
Case 9
ws.Rows.Hidden = False
ws.Rows("324:498").Hidden = True
Case 10
ws.Rows.Hidden = False
ws.Rows("359:498").Hidden = True
Case 11
ws.Rows.Hidden = False
ws.Rows("394:498").Hidden = True
Case 12
ws.Rows.Hidden = False
ws.Rows("429:498").Hidden = True
Case 13
ws.Rows.Hidden = False
ws.Rows("464:498").Hidden = True
Case Else
ws.Rows.Hidden = False
End Select
End If
If (ws.Name) = "Training Plan" Then
Select Case NbSess
Case 1
ws.Rows.Hidden = False
ws.Rows("66:181").Hidden = True
ws.Rows("201:316").Hidden = True
ws.Rows("336:451").Hidden = True
ws.Rows("471:586").Hidden = True
ws.Rows("606:721").Hidden = True
ws.Rows("741:856").Hidden = True
ws.Rows("876:991").Hidden = True
ws.Rows("1011:1126").Hidden = True
ws.Rows("1146:1261").Hidden = True
ws.Rows("1281:1396").Hidden = True
ws.Rows("1416:1531").Hidden = True
ws.Rows("1551:1666").Hidden = True
ws.Rows("1686:1801").Hidden = True
ws.Rows("1821:1936").Hidden = True
ws.Rows("1956:2071").Hidden = True
ws.Rows("2091:2206").Hidden = True
Case 2
ws.Rows.Hidden = False
ws.Rows("75:181").Hidden = True
ws.Rows("210:316").Hidden = True
ws.Rows("345:451").Hidden = True
ws.Rows("480:586").Hidden = True
ws.Rows("615:721").Hidden = True
ws.Rows("750:856").Hidden = True
ws.Rows("885:991").Hidden = True
ws.Rows("1020:1126").Hidden = True
ws.Rows("1155:1261").Hidden = True
ws.Rows("1290:1396").Hidden = True
ws.Rows("1425:1531").Hidden = True
ws.Rows("1560:1666").Hidden = True
ws.Rows("1695:1801").Hidden = True
ws.Rows("1830:1936").Hidden = True
ws.Rows("1965:2071").Hidden = True
ws.Rows("2100:2206").Hidden = True
Case 3
ws.Rows.Hidden = False
ws.Rows("84:181").Hidden = True
ws.Rows("219:316").Hidden = True
ws.Rows("354:451").Hidden = True
ws.Rows("489:586").Hidden = True
ws.Rows("624:721").Hidden = True
ws.Rows("759:856").Hidden = True
ws.Rows("894:991").Hidden = True
ws.Rows("1029:1126").Hidden = True
ws.Rows("1164:1261").Hidden = True
ws.Rows("1299:1396").Hidden = True
ws.Rows("1434:1531").Hidden = True
ws.Rows("1569:1666").Hidden = True
ws.Rows("1704:1801").Hidden = True
ws.Rows("1839:1936").Hidden = True
ws.Rows("1974:2071").Hidden = True
ws.Rows("2109:2206").Hidden = True
Case 4
ws.Rows.Hidden = False
ws.Rows("93:181").Hidden = True
ws.Rows("228:316").Hidden = True
ws.Rows("363:451").Hidden = True
ws.Rows("498:586").Hidden = True
ws.Rows("633:721").Hidden = True
ws.Rows("768:856").Hidden = True
ws.Rows("903:991").Hidden = True
ws.Rows("1038:1126").Hidden = True
ws.Rows("1173:1261").Hidden = True
ws.Rows("1308:1396").Hidden = True
ws.Rows("1443:1531").Hidden = True
ws.Rows("1578:1666").Hidden = True
ws.Rows("1713:1801").Hidden = True
ws.Rows("1848:1936").Hidden = True
ws.Rows("1983:2071").Hidden = True
ws.Rows("2118:2206").Hidden = True
Case 5
ws.Rows.Hidden = False
ws.Rows("102:181").Hidden = True
ws.Rows("237:316").Hidden = True
ws.Rows("372:451").Hidden = True
ws.Rows("507:586").Hidden = True
ws.Rows("642:721").Hidden = True
ws.Rows("777:856").Hidden = True
ws.Rows("912:991").Hidden = True
ws.Rows("1047:1126").Hidden = True
ws.Rows("1182:1261").Hidden = True
ws.Rows("1317:1396").Hidden = True
ws.Rows("1452:1531").Hidden = True
ws.Rows("1587:1666").Hidden = True
ws.Rows("1722:1801").Hidden = True
ws.Rows("1857:1936").Hidden = True
ws.Rows("1992:2071").Hidden = True
ws.Rows("2127:2206").Hidden = True
Case 6
ws.Rows.Hidden = False
ws.Rows("111:181").Hidden = True
ws.Rows("246:316").Hidden = True
ws.Rows("381:451").Hidden = True
ws.Rows("516:586").Hidden = True
ws.Rows("651:721").Hidden = True
ws.Rows("786:856").Hidden = True
ws.Rows("921:991").Hidden = True
ws.Rows("1056:1126").Hidden = True
ws.Rows("1191:1261").Hidden = True
ws.Rows("1326:1396").Hidden = True
ws.Rows("1461:1531").Hidden = True
ws.Rows("1596:1666").Hidden = True
ws.Rows("1731:1801").Hidden = True
ws.Rows("1866:1936").Hidden = True
ws.Rows("2001:2071").Hidden = True
ws.Rows("2136:2206").Hidden = True
Case 7
ws.Rows.Hidden = False
ws.Rows("120:181").Hidden = True
ws.Rows("255:316").Hidden = True
ws.Rows("390:451").Hidden = True
ws.Rows("525:586").Hidden = True
ws.Rows("660:721").Hidden = True
ws.Rows("795:856").Hidden = True
ws.Rows("930:991").Hidden = True
ws.Rows("1065:1126").Hidden = True
ws.Rows("1200:1261").Hidden = True
ws.Rows("1335:1396").Hidden = True
ws.Rows("1470:1531").Hidden = True
ws.Rows("1605:1666").Hidden = True
ws.Rows("1740:1801").Hidden = True
ws.Rows("1875:1936").Hidden = True
ws.Rows("2010:2071").Hidden = True
ws.Rows("2145:2206").Hidden = True
Case 8
ws.Rows.Hidden = False
ws.Rows("129:181").Hidden = True
ws.Rows("264:316").Hidden = True
ws.Rows("399:451").Hidden = True
ws.Rows("534:586").Hidden = True
ws.Rows("669:721").Hidden = True
ws.Rows("804:856").Hidden = True
ws.Rows("939:991").Hidden = True
ws.Rows("1074:1126").Hidden = True
ws.Rows("1209:1261").Hidden = True
ws.Rows("1344:1396").Hidden = True
ws.Rows("1479:1531").Hidden = True
ws.Rows("1614:1666").Hidden = True
ws.Rows("1749:1801").Hidden = True
ws.Rows("1884:1936").Hidden = True
ws.Rows("2019:2071").Hidden = True
ws.Rows("2154:2206").Hidden = True
Case 9
ws.Rows.Hidden = False
ws.Rows("138:181").Hidden = True
ws.Rows("273:316").Hidden = True
ws.Rows("408:451").Hidden = True
ws.Rows("543:586").Hidden = True
ws.Rows("678:721").Hidden = True
ws.Rows("813:856").Hidden = True
ws.Rows("948:991").Hidden = True
ws.Rows("1083:1126").Hidden = True
ws.Rows("1218:1261").Hidden = True
ws.Rows("1353:1396").Hidden = True
ws.Rows("1488:1531").Hidden = True
ws.Rows("1623:1666").Hidden = True
ws.Rows("1758:1801").Hidden = True
ws.Rows("1893:1936").Hidden = True
ws.Rows("2028:2071").Hidden = True
ws.Rows("2163:2206").Hidden = True
Case 10
ws.Rows.Hidden = False
ws.Rows("147:181").Hidden = True
ws.Rows("282:316").Hidden = True
ws.Rows("417:451").Hidden = True
ws.Rows("552:586").Hidden = True
ws.Rows("687:721").Hidden = True
ws.Rows("822:856").Hidden = True
ws.Rows("957:991").Hidden = True
ws.Rows("1092:1126").Hidden = True
ws.Rows("1227:1261").Hidden = True
ws.Rows("1362:1396").Hidden = True
ws.Rows("1497:1531").Hidden = True
ws.Rows("1632:1666").Hidden = True
ws.Rows("1767:1801").Hidden = True
ws.Rows("1902:1936").Hidden = True
ws.Rows("2037:2071").Hidden = True
ws.Rows("2172:2206").Hidden = True
Case 11
ws.Rows.Hidden = False
ws.Rows("156:181").Hidden = True
ws.Rows("291:316").Hidden = True
ws.Rows("426:451").Hidden = True
ws.Rows("561:586").Hidden = True
ws.Rows("696:721").Hidden = True
ws.Rows("831:856").Hidden = True
ws.Rows("966:991").Hidden = True
ws.Rows("1101:1126").Hidden = True
ws.Rows("1236:1261").Hidden = True
ws.Rows("1371:1396").Hidden = True
ws.Rows("1506:1531").Hidden = True
ws.Rows("1641:1666").Hidden = True
ws.Rows("1776:1801").Hidden = True
ws.Rows("1911:1936").Hidden = True
ws.Rows("2046:2071").Hidden = True
ws.Rows("2181:2206").Hidden = True
Case 12
ws.Rows.Hidden = False
ws.Rows("165:181").Hidden = True
ws.Rows("300:316").Hidden = True
ws.Rows("435:451").Hidden = True
ws.Rows("570:586").Hidden = True
ws.Rows("705:721").Hidden = True
ws.Rows("840:856").Hidden = True
ws.Rows("975:991").Hidden = True
ws.Rows("1110:1126").Hidden = True
ws.Rows("1245:1261").Hidden = True
ws.Rows("1380:1396").Hidden = True
ws.Rows("1515:1531").Hidden = True
ws.Rows("1650:1666").Hidden = True
ws.Rows("1785:1801").Hidden = True
ws.Rows("1920:1936").Hidden = True
ws.Rows("2055:2071").Hidden = True
ws.Rows("2190:2206").Hidden = True
Case 13
ws.Rows.Hidden = False
ws.Rows("174:181").Hidden = True
ws.Rows("309:316").Hidden = True
ws.Rows("444:451").Hidden = True
ws.Rows("579:586").Hidden = True
ws.Rows("714:721").Hidden = True
ws.Rows("849:856").Hidden = True
ws.Rows("984:991").Hidden = True
ws.Rows("1119:1126").Hidden = True
ws.Rows("1254:1261").Hidden = True
ws.Rows("1389:1396").Hidden = True
ws.Rows("1524:1531").Hidden = True
ws.Rows("1659:1666").Hidden = True
ws.Rows("1794:1801").Hidden = True
ws.Rows("1929:1936").Hidden = True
ws.Rows("2064:2071").Hidden = True
ws.Rows("2199:2206").Hidden = True
Case Else
ws.Rows.Hidden = False
End Select
End If
If (ws.Name) = "Raw Data" Then
Select Case NbSess
Case 1
ws.Rows.Hidden = False
ws.Rows("18:56").Hidden = True
ws.Rows("84:122").Hidden = True
ws.Rows("150:188").Hidden = True
ws.Rows("216:254").Hidden = True
ws.Rows("282:320").Hidden = True
ws.Rows("348:386").Hidden = True
ws.Rows("414:452").Hidden = True
ws.Rows("480:518").Hidden = True
ws.Rows("546:584").Hidden = True
ws.Rows("612:650").Hidden = True
ws.Rows("678:716").Hidden = True
ws.Rows("744:782").Hidden = True
ws.Rows("810:848").Hidden = True
ws.Rows("876:914").Hidden = True
ws.Rows("942:980").Hidden = True
ws.Rows("1008:1046").Hidden = True
Case 2
ws.Rows.Hidden = False
ws.Rows("21:56").Hidden = True
ws.Rows("87:122").Hidden = True
ws.Rows("153:188").Hidden = True
ws.Rows("219:254").Hidden = True
ws.Rows("285:320").Hidden = True
ws.Rows("351:386").Hidden = True
ws.Rows("417:452").Hidden = True
ws.Rows("483:518").Hidden = True
ws.Rows("549:584").Hidden = True
ws.Rows("615:650").Hidden = True
ws.Rows("681:716").Hidden = True
ws.Rows("747:782").Hidden = True
ws.Rows("813:848").Hidden = True
ws.Rows("879:914").Hidden = True
ws.Rows("945:980").Hidden = True
ws.Rows("1011:1046").Hidden = True
Case 3
ws.Rows.Hidden = False
ws.Rows("24:56").Hidden = True
ws.Rows("90:122").Hidden = True
ws.Rows("156:188").Hidden = True
ws.Rows("222:254").Hidden = True
ws.Rows("288:320").Hidden = True
ws.Rows("354:386").Hidden = True
ws.Rows("420:452").Hidden = True
ws.Rows("486:518").Hidden = True
ws.Rows("552:584").Hidden = True
ws.Rows("618:650").Hidden = True
ws.Rows("684:716").Hidden = True
ws.Rows("750:782").Hidden = True
ws.Rows("816:848").Hidden = True
ws.Rows("882:914").Hidden = True
ws.Rows("948:980").Hidden = True
ws.Rows("1014:1046").Hidden = True
Case 4
ws.Rows.Hidden = False
ws.Rows("27:56").Hidden = True
ws.Rows("93:122").Hidden = True
ws.Rows("159:188").Hidden = True
ws.Rows("225:254").Hidden = True
ws.Rows("291:320").Hidden = True
ws.Rows("357:386").Hidden = True
ws.Rows("423:452").Hidden = True
ws.Rows("489:518").Hidden = True
ws.Rows("555:584").Hidden = True
ws.Rows("621:650").Hidden = True
ws.Rows("687:716").Hidden = True
ws.Rows("753:782").Hidden = True
ws.Rows("819:848").Hidden = True
ws.Rows("885:914").Hidden = True
ws.Rows("951:980").Hidden = True
ws.Rows("1017:1046").Hidden = True
Case 5
ws.Rows.Hidden = False
ws.Rows("30:56").Hidden = True
ws.Rows("96:122").Hidden = True
ws.Rows("162:188").Hidden = True
ws.Rows("228:254").Hidden = True
ws.Rows("294:320").Hidden = True
ws.Rows("360:386").Hidden = True
ws.Rows("426:452").Hidden = True
ws.Rows("492:518").Hidden = True
ws.Rows("558:584").Hidden = True
ws.Rows("624:650").Hidden = True
ws.Rows("690:716").Hidden = True
ws.Rows("756:782").Hidden = True
ws.Rows("822:848").Hidden = True
ws.Rows("888:914").Hidden = True
ws.Rows("954:980").Hidden = True
ws.Rows("1020:1046").Hidden = True
Case 6
ws.Rows.Hidden = False
ws.Rows("33:56").Hidden = True
ws.Rows("99:122").Hidden = True
ws.Rows("165:188").Hidden = True
ws.Rows("231:254").Hidden = True
ws.Rows("297:320").Hidden = True
ws.Rows("363:386").Hidden = True
ws.Rows("429:452").Hidden = True
ws.Rows("495:518").Hidden = True
ws.Rows("561:584").Hidden = True
ws.Rows("627:650").Hidden = True
ws.Rows("693:716").Hidden = True
ws.Rows("759:782").Hidden = True
ws.Rows("825:848").Hidden = True
ws.Rows("891:914").Hidden = True
ws.Rows("957:980").Hidden = True
ws.Rows("1023:1046").Hidden = True
Case 7
ws.Rows.Hidden = False
ws.Rows("36:56").Hidden = True
ws.Rows("102:122").Hidden = True
ws.Rows("168:188").Hidden = True
ws.Rows("234:254").Hidden = True
ws.Rows("300:320").Hidden = True
ws.Rows("366:386").Hidden = True
ws.Rows("432:452").Hidden = True
ws.Rows("498:518").Hidden = True
ws.Rows("564:584").Hidden = True
ws.Rows("630:650").Hidden = True
ws.Rows("696:716").Hidden = True
ws.Rows("762:782").Hidden = True
ws.Rows("828:848").Hidden = True
ws.Rows("894:914").Hidden = True
ws.Rows("960:980").Hidden = True
ws.Rows("1026:1046").Hidden = True
Case 8
ws.Rows.Hidden = False
ws.Rows("39:56").Hidden = True
ws.Rows("105:122").Hidden = True
ws.Rows("171:188").Hidden = True
ws.Rows("237:254").Hidden = True
ws.Rows("303:320").Hidden = True
ws.Rows("369:386").Hidden = True
ws.Rows("435:452").Hidden = True
ws.Rows("501:518").Hidden = True
ws.Rows("567:584").Hidden = True
ws.Rows("633:650").Hidden = True
ws.Rows("699:716").Hidden = True
ws.Rows("765:782").Hidden = True
ws.Rows("831:848").Hidden = True
ws.Rows("897:914").Hidden = True
ws.Rows("963:980").Hidden = True
ws.Rows("1029:1046").Hidden = True
Case 9
ws.Rows.Hidden = False
ws.Rows("42:56").Hidden = True
ws.Rows("108:122").Hidden = True
ws.Rows("174:188").Hidden = True
ws.Rows("240:254").Hidden = True
ws.Rows("306:320").Hidden = True
ws.Rows("372:386").Hidden = True
ws.Rows("438:452").Hidden = True
ws.Rows("504:518").Hidden = True
ws.Rows("570:584").Hidden = True
ws.Rows("636:650").Hidden = True
ws.Rows("702:716").Hidden = True
ws.Rows("768:782").Hidden = True
ws.Rows("834:848").Hidden = True
ws.Rows("900:914").Hidden = True
ws.Rows("966:980").Hidden = True
ws.Rows("1032:1046").Hidden = True
Case 10
ws.Rows.Hidden = False
ws.Rows("45:56").Hidden = True
ws.Rows("111:122").Hidden = True
ws.Rows("177:188").Hidden = True
ws.Rows("243:254").Hidden = True
ws.Rows("309:320").Hidden = True
ws.Rows("375:386").Hidden = True
ws.Rows("441:452").Hidden = True
ws.Rows("507:518").Hidden = True
ws.Rows("573:584").Hidden = True
ws.Rows("639:650").Hidden = True
ws.Rows("705:716").Hidden = True
ws.Rows("771:782").Hidden = True
ws.Rows("837:848").Hidden = True
ws.Rows("903:914").Hidden = True
ws.Rows("969:980").Hidden = True
ws.Rows("1035:1046").Hidden = True
Case 11
ws.Rows.Hidden = False
ws.Rows("48:56").Hidden = True
ws.Rows("114:122").Hidden = True
ws.Rows("180:188").Hidden = True
ws.Rows("246:254").Hidden = True
ws.Rows("312:320").Hidden = True
ws.Rows("378:386").Hidden = True
ws.Rows("444:452").Hidden = True
ws.Rows("510:518").Hidden = True
ws.Rows("576:584").Hidden = True
ws.Rows("642:650").Hidden = True
ws.Rows("708:716").Hidden = True
ws.Rows("774:782").Hidden = True
ws.Rows("840:848").Hidden = True
ws.Rows("906:914").Hidden = True
ws.Rows("972:980").Hidden = True
ws.Rows("1038:1046").Hidden = True
Case 12
ws.Rows.Hidden = False
ws.Rows("51:56").Hidden = True
ws.Rows("117:122").Hidden = True
ws.Rows("183:188").Hidden = True
ws.Rows("249:254").Hidden = True
ws.Rows("315:320").Hidden = True
ws.Rows("381:386").Hidden = True
ws.Rows("447:452").Hidden = True
ws.Rows("513:518").Hidden = True
ws.Rows("579:584").Hidden = True
ws.Rows("645:650").Hidden = True
ws.Rows("711:716").Hidden = True
ws.Rows("777:782").Hidden = True
ws.Rows("843:848").Hidden = True
ws.Rows("909:914").Hidden = True
ws.Rows("975:980").Hidden = True
ws.Rows("1041:1046").Hidden = True
Case 13
ws.Rows.Hidden = False
ws.Rows("54:56").Hidden = True
ws.Rows("120:122").Hidden = True
ws.Rows("186:188").Hidden = True
ws.Rows("252:254").Hidden = True
ws.Rows("318:320").Hidden = True
ws.Rows("384:386").Hidden = True
ws.Rows("450:452").Hidden = True
ws.Rows("516:518").Hidden = True
ws.Rows("582:584").Hidden = True
ws.Rows("648:650").Hidden = True
ws.Rows("714:716").Hidden = True
ws.Rows("780:782").Hidden = True
ws.Rows("846:848").Hidden = True
ws.Rows("912:914").Hidden = True
ws.Rows("978:980").Hidden = True
ws.Rows("1044:1046").Hidden = True
Case Else
ws.Rows.Hidden = False
End Select
End If
Next ws
End Sub
Sub Masquer_Semaines()
NbSem = Sheets("Training Plan").Range("E16").Value + 1
Set ws = Sheets("Training Plan")
With ws.Range("B54:W2212")
If NbSem <> 17 Then
Set w = .Find("week " & NbSem, LookIn:=xlValues)
If Not w Is Nothing Then ws.Rows(w.Row - 1 & ":2212").Hidden = True
End If
End With
End Sub
les changement de cellules F16 et F17 avec les cellules E16 et E17 sont voulue ainsi que certains changements dans les numéros de lignes. Pareil pour le nom de la page "Analysis" qui est passer en "Raw Data"
Mais le même problème persiste toujours (les lignes se démasquent), dans votre première solution vous aviez mis en vert les lignes de code
If Not Intersect(Target, Range("E17")) Is Nothing Then
Call OrganisationLignes
alors que ces lignes font appelle au module 1 qui est également important car il masque d'autre lignes dans d'autre page (sur le même principe de nombre de semaine et de session), du coup, votre solution initial fonctionne uniquement si ces lignes de code sont inactivé, le problème étant que j'en ai besoin également et j'ai l'impression que le problème viens du module 1 une fois que la correction apporter par votre 1er solution a été implémenter