XL 2016 annulé

[lgo_excel]

rien à voir ici

 

[Hasco]

Bonjour,

Le tableau 'TAction' de l'onglet 'Datas' vous sert de source de données pour power query. Ce sont vos transformations dans power query ( étapes de tri) qui modifient l'ordre de vos données. Les données sources, elles restent inchangées (et heureusement).
C'est donc tout à fait normal.

question 2 : Pourquoi par glissement d'une ligne ... de quel tableau 'TAction' ? Après actualisation de la requête ? Même cause même effet ? !

On peut éventuellement demander l'actualisation automatique par vba mais cela en vaut-il vraiment la chandelle (ralentissements etc...) ? Pas certain du tout.


Cordialement

 

[Hasco]

Bonjour,

J'ai traité hier un cas semblable :

Microsoft 365 - Excel VBA - remplissage des plages

Bonjour, J'ai une extraction d'un logiciel de pointage d'heures à analyser, j'ai essayé d'appliquer des bouts de code afin de remplir les plages vides, sans succès. Ensuite dans l'onglet Synthèse je dois remplir les heures selon les mois, je ne sais pas si c'est possible sans passer par un TCD...

www.excel-downloads.com

Cordialement

 

[Staple1600]

Bonjour le fil

[interlude tribute]

2 – Tous les membres du forum répondent gracieusement aux questions.
Il n’y a donc aucune obligation de résultat et de délai.

[/interlude tribute]
NB: On aura noté le registre humoristique de ce message.

 

[Hasco]

Bonjour,

D'autant que mon dernier post n'a reçu aucun avis ni commentaire.

bon dimanche ensoleillé et plein de petits et grands interludes

 

[Staple1600]

Bonjour Roblochon 😉

D'autant que mon dernier post n'a reçu aucun avis ni commentaire.

C'est pour cela que je me suis permis de ce petit interlude
(que les XLDnautes nés dans les années 90 et au delà ne peuvent pas comprendre)

Je pressens que les commentaires ne vont pas tarder 😉

 

[Phil69970]

Bonjour à tous

Ma contribution à la pause dominicale....

Spoiler

Pour afficher ce contenu, nous aurons besoin de votre consentement pour définir des cookies tiers.
Pour plus d'informations, consultez notre page sur les cookies.

Accepter les cookies de tiers

@Phil69970

 

[Staple1600]

Re

[Juste pour infos]
Comme je l'avais évoqué dans un précédent message (désormais supprimé)
Un fichier exemple simplifié serait préférable
(car dans le fichier exemple précédemment joint mais lui aussi également supprimé)
figure une connexion vers:
WorksheetConnection_TEST Actions Trame départ.xlsm!Données
Ce qui complique nos tests.
(parce que pointe sur une feuille cachée ou figure une requête PQ)
Enfin, sur ta dernière copie écran, on voit un TCD sur lequel tu parles d'insérer une ligne (sauf erreur de ma part)
Or on ne peut pas insérer une ligne sur TCD
(D'ailleurs Excel nous l'interdit en affichant un message d'erreur)

Je repasserai plus tard quand nous(*) pourrons repartir sur de nouvelles bases (voir mon message précèdent)

(*): nous = les membres du forum.

 

[Staple1600]

Re

Ceci(*) n'est que ma simplification du code original (**) qui était présent dans le fichier exemple.
(*) le code du précédent message

(**) ci-dessous le code initial

Sub réinit()
' réinit Macro
    Columns("I:AP").Select
    Selection.EntireColumn.Hidden = False
End Sub
Sub Macro2020()
' Macro2020 Macro
    Columns("K:K").Select
    Selection.EntireColumn.Hidden = True
    Columns("X:AI").Select
    Selection.EntireColumn.Hidden = True
    Columns("AN:AO").Select
    Selection.EntireColumn.Hidden = True
End Sub
Sub Macro2021()
' Macro2021 Macro
    Columns("J:J").Select
    Selection.EntireColumn.Hidden = True
    Columns("L:W").Select
    Selection.EntireColumn.Hidden = True
    Columns("AK:AL").Select
    Selection.EntireColumn.Hidden = True
End Sub

Mais cela n'était qu'un bonus.

J'ai beau regardé ton fichier en long et en large, et j'en suis venu à la conclusion qu'il manque des choses par rapport au fichier "dont tu as hérité", non ?
L'userform usfAction était là au départ ou tu l'as ajouté?

 

[Staple1600]

Re

Ton nouveau fichier (dans le message#1) pose un souci

 

[Staple1600]

Re

Pourquoi avoir changé le mode de fonctionnement en cours de route?
Sur le 1er fichier, il y a avait un TCD (Coordo_TCD) qui pointait sur l'onglet PQ Data.
Ce n'est plus le cas désormais.
Par conséquent la capture d'écran du message#8 n'est plus valable.
Et la problématique qu'elle illustre ne se rencontre plus sur nouveau fichier.

(Dans lequel d'ailleurs, on ne retrouve pas les propositions que je t'avais fait précédemment...)

 

[Staple1600]

Re

Tu m'as mal compris et/ou je t'ai mal compris.
Tu semblais parler d'insertion manuelle de ligne sur TCD
(ce qui est impossible)
Sur ta copie d'écran, c'est une actualisation du TCD qui se produit une fois qu'on a appuyé sur le bouton Validation de l'userform
(cf cette procédure: Private Sub lblValid_Click())

NB: Ce "brouillage" entre émetteur et récepteur des messages n'explique pas pourquoi on ne retrouve mes précédents codes 😉
[attention - le petit titillement à la Staple du samedi A-M]
Sans doute une scorie "rancunière" d'hier soir 😔
[/attention - le petit titillement à la Staple du samedi A-M]

Comme je le disais précédemment (quel que soit le fichier), je ne trouve rien (ni formule, ni VBA) qui explique comment apparaissent les données en colonnes J:AG de la feuille Coordo.
(D'où mon questionnement du message# 11)

 

[Staple1600]

Re

Dans mon dernier test, seule la MFC se reproduit
J'ai cru qu'elles se mettaient automatiquement puisqu'elles apparaissaient sur la feuille Finances.

 

[Staple1600]

Re

Sur la feuille Coordo, seule la plage de cellules C10:I74 contient des formules de ce type

=SIERREUR(INDEX(Données;$B10;EQUIV(C$9;Données[#En-têtes];0));"")

C'est donc logique que seule cette plage s'actualise, non ?

 

[Staple1600]

Re

Quand je lis le contenu de la "requête" PQ, des choses m'échappent.
Existe-t-il une version fonctionnelle de ton classeur?
Quand tu l'as reçu, elle fonctionnait ?
Tu n'as pas une copie de sauvergarde?
(ou la version originale dans tes mails (si tu as reçu ce classeur par mail)

Spoiler: ci-dessous code M

let
    Source = Excel.CurrentWorkbook(){[Name="TAction"]}[Content],
    #"Type modifié" = Table.TransformColumnTypes(Source,{{"Service", type text}, {"Produit", type text}, {"Actions", type text}, {"Date début", type date}, {"Date fin", type date}}),
    #"Colonnes permutées" = Table.ReorderColumns(#"Type modifié",{"Service", "Produit", "Actions", "Date début", "Date fin"}),
    #"Soustraction de la date d'insertion" = Table.AddColumn(#"Colonnes permutées", "Durée", each Duration.Days([Date fin] - [Date début])+1),
    #"Personnalisée ajoutée" = Table.AddColumn(#"Soustraction de la date d'insertion", "Date jour", each DateTime.LocalNow()),
    #"Type modifié1" = Table.TransformColumnTypes(#"Personnalisée ajoutée",{{"Date jour", type date}}),
    #"Colonne conditionnelle ajoutée" = Table.AddColumn(#"Type modifié1", "Fin-Jour", each if [Date fin] >= [Date jour] then Duration.Days([Date fin]-[Date jour])+1 else null),
    #"Colonne conditionnelle ajoutée1" = Table.AddColumn(#"Colonne conditionnelle ajoutée", "Solde jours", each if [Date début] >= [Date jour] then [Durée] else if [Date fin] >= [Date jour] then [#"Fin-Jour"] else 0),
    #"Colonnes supprimées" = Table.RemoveColumns(#"Colonne conditionnelle ajoutée1",{"Date jour", "Fin-Jour"}),
    #"Personnalisée ajoutée1" = Table.AddColumn(#"Colonnes supprimées", "Personnalisé", each [Durée]-[Solde jours]),
    #"Personnalisée ajoutée2" = Table.AddColumn(#"Personnalisée ajoutée1", "% réalisé", each [Personnalisé]/[Durée]),
    #"Type modifié2" = Table.TransformColumnTypes(#"Personnalisée ajoutée2",{{"% réalisé", Percentage.Type}}),
    #"Colonnes supprimées1" = Table.RemoveColumns(#"Type modifié2",{"Personnalisé"}),
    #"Semaine de l'année insérée" = Table.AddColumn(#"Colonnes supprimées1", "N° Sem.", each Date.WeekOfYear([Date début]), Int64.Type),
    #"Index ajouté" = Table.AddIndexColumn(#"Semaine de l'année insérée", "Index", 1, 1),
    #"Lignes triées" = Table.Sort(#"Index ajouté",{{"Service", Order.Ascending}, {"Index", Order.Ascending}}),
    #"Colonnes supprimées2" = Table.RemoveColumns(#"Lignes triées",{"Index"}),
    #"Duplication de la colonne" = Table.DuplicateColumn(#"Colonnes supprimées2", "N° Sem.", "N° Sem. - Copier"),
    #"Colonnes supprimées3" = Table.RemoveColumns(#"Duplication de la colonne",{"N° Sem. - Copier"})
in
    #"Colonnes supprimées3"

• je ne comprends pas pourquoi N colonnes sont vides dans Données
• je ne comprends pas pourquoi il n'y a pas de formules (similaires à celles que je viens d'évoquer) dans la plage L9:AI74 (de la feuille Coordo)