Microsoft 365 regroupement infos planning

[natadom]

bonjour à tous.
ci joint un fichier excel.
52 onglets représentants les 52 semaines d'une année. en jaune. (malheureusement je n'ai pas pu mettre plus de 10 onglet pour pouvoir envoyer le fichier)
deux onglets (bleu) ou il faudrait pouvoir faire apparaitre de manière automatique certaines informations des 52 onglets semaines.
j'ai mis une note pour retrouver quelle information il faudrait .
auriez vous la solution en vba ?
avec un bouton mise à jour si possible sur chaque onglets bleu .
bien cordialement.

 

[natadom]

euh..... faudrait voir à te décider..
post 171: je t'ai dis que seules les lignes AVEC employés étaient listées
et je demandais s'il fallait changer pour lister les lignes SANS employés

post 172: tu me réponds: on laisse comme ca..
==> Donc AVEC les employés


et donc; maintenant... avec ou sans ou les deux?

les deux , avec ou sans non . la selection des lignes se fait par type.
oui tu as raison, j'ai pas assuré sur ce coup là , dsl vgendron
je vais tenter d'aller voir power query, mais je ne maitrise pas du tout .

 

[natadom]

j'ai réussit je crois, j'ai supprimé le filtre nom

 

[vgendron]

l'idée était bien la;. mais du coup. tu te retrouves avec TOUTES les lignes vides

plutot que supprimer le filtre nom, remplace par
= Table.SelectRows(#"Content développé", each [TYPE]<>null)

 

[natadom]

bonjour v gendron.
POUR LE MODULE DE COMMANDE
cela semble fonctionner . il me mets bien les lignes avec ou sans nom, peut importe le type que j'appelle. je n'ai pas eu besoin de ta formule du coup.
j'ai réussit a corriger un beug il voulait seulement des lignes a 7h.
c'est réglé. le module commande est ok.

POUR LE BOUTON APPLIQUER LES NOUVELLES BASES SUR SUIVI ETP
par contre il y a un gros beug :
lorsque je crée une nouvelle base et que je vais sur "appliquer les nouvelles bases", dans onglet suivi etp, les dates ne se mettent pas comme il faut sur les planning A VENIR, cela beug . il place bien la nouvelle base mais pas les dates...... toutes les nouvelles bases a venir, se mettent à la date du 1 janvier.

peux tu intervenir sur la macro pour corriger les beug ?
dsl de te solliciter encore, je le test au max et cherche les beug possibles qui peuvent tout planter à l'usage.

dernier point : il est impossible de renomer les bases ou les planning ? ? je peux changer la couleur des bases, cela fonctionne, au pire cela peut servir de repaire . j'ai tenté de renomer une base et de mettre le meme nom dans la base donnée, cela ne fonctionne pas non plus . ça plante.

je ne sais pas, je réfléchit. mais tout n'est pas possible, il faut s'adapter aussi .

 

[vgendron]

??? qu'est ce que tu racontes..
dans la feuille Suivi ETP, la date ne dépend pas de la base utilisée.. mais juste du numéro de semaine..
donc.. si tu changes de base.. il n'y a aucune raison pour que les dates de la semaine changent..

si tu changes le nom des onglets "Base_x" EVIDEMMENT le code ne va pas fonctionner. au pire planter.. puisque le code cherche les feuilles "Base_x" pour trouver le numéro de la dernière base. et copie la feuille "Base_0'...
je suis désolé.. mais la.. tu abuses...regarde le code pour le comprendre avant de faire des changements un peu au hasard..

 

[natadom]

oui je me doutais que le code devait avoir une importance pour renomer les onglets. j'ai la parade couleur du coup.

par contre je t'assure que lorsqu'on utilise le bouton appliquer les nouvelles bases, il applique bien les nouvelles bases mais ne mets pas les dates a jours .,
pas le bouton créer les bases , lui il fonctionne super bien.

 

[vgendron]

il le fait bien.. si tu regardes les dates en colonne A
et si tu fais F9, dans la ligne 1, elles seront remises à jour
F9 = recalculer le classeur

pendant la macro, le mode de calcul est mis en manuel pour éviter que tous les calculs soient effectués 10000fois et ralentir le code

j'ai oublié de remettre en mode automatique à la fin de la macro

remplace la macro existante par celle la:

Sub ModifWeek()
Dim i As Integer
Dim BaseNb As Integer
Dim Debut, Fin As Date
    Application.ScreenUpdating = False
    Application.EnableEvents = False
    Application.Calculation = xlCalculationManual

    With Sheets("Suivi ETP").ListObjects("t_Suivi")
        For i = 1 To 53
            Debut = .ListColumns("DEBUT").DataBodyRange(i)
            Fin = .ListColumns("FIN").DataBodyRange(i)
            If Now >= Debut Then
                
            Else
                BaseNb = .ListColumns("Ref Base").DataBodyRange(i)
                Call CréerSemaine(i, BaseNb, True)
            End If
        Next i
    End With
    Application.ScreenUpdating = True
    Application.EnableEvents = True
    Application.Calculation = xlCalculationAutomatic
End Sub

 

[natadom]

il le fait bien.. si tu regardes les dates en colonne A
et si tu fais F9, dans la ligne 1, elles seront remises à jour
F9 = recalculer le classeur

pendant la macro, le mode de calcul est mis en manuel pour éviter que tous les calculs soient effectués 10000fois et ralentir le code

j'ai oublié de remettre en mode automatique à la fin de la macro

remplace la macro existante par celle la:

Sub ModifWeek()
Dim i As Integer
Dim BaseNb As Integer
Dim Debut, Fin As Date
    Application.ScreenUpdating = False
    Application.EnableEvents = False
    Application.Calculation = xlCalculationManual

    With Sheets("Suivi ETP").ListObjects("t_Suivi")
        For i = 1 To 53
            Debut = .ListColumns("DEBUT").DataBodyRange(i)
            Fin = .ListColumns("FIN").DataBodyRange(i)
            If Now >= Debut Then
               
            Else
                BaseNb = .ListColumns("Ref Base").DataBodyRange(i)
                Call CréerSemaine(i, BaseNb, True)
            End If
        Next i
    End With
    Application.ScreenUpdating = True
    Application.EnableEvents = True
    Application.Calculation = xlCalculationAutomatic
End Sub

oula, je tente ok . elle se nomme comment cette macro en titre ?

 

[vgendron]

ah oui.. quand meme...
sub ==> mot clé pour indiquer le début d'une macro, suivi juste après par le nom de la macro
sub ModifWeek() ==> le nom de la macro est....
tada !!! Modifweek !!

 

[natadom]

moque toi lol
chacun son dada .
je l'ai retrouvé en regardant l'ecriture . j'ai effacé l'ancienne et remis la nouvelle .
test ok
le probleme semble réglé merci beaucoup vgendron

parfois il y a un message qui apparait à l'utilisation ; debeugage ou fin , cela veut dire quoi ? je vais trop vite ?

 

[vgendron]

ca veut dire que la macro bugue...
quand tu cliques sur debugage, l'éditeur VBA est ouvert, et la ligne de code qui pose problème est surlignée en jaune...
donc.; il faut savoir laquelle pour identifier le pb..

et comme tu dis que ca arrive parfois.. il faut que tu identifies ce que tu fais juste avant que ca bug..

 

[natadom]

ok , dans les manip en fait. si je fais une boulette cela engendre un souci. je vais noté ceux que je vois .
oui j'ai vu cela ouvre la macro et note l'endroit du probleme, mais apres je ne parle pas vba .......

 

[natadom]

et si je fais fin , cela arrete la macro ou elle redemare ?

 

[vgendron]

ca l arrete en cours de route

 

[natadom]

bonjour vgendron,
je viens de faire encore des tests .
pour le moment ras.
j'ai ajouté quelques onglets, comme ils ne sont pas couplés au macro, cela ne semble pas poser de problème.

je commence à réfléchir à la phase de sécurisation . connais tu le logiciel xls padlok ??
penses tu que ce logiciel peut bien sécuriser le fichier ?
j'aimerai avoir ton avis ....