XL 2016 Exportations de données

O

OKBI

XLDnaute Junior

• 23 Février 2023

• #2

Bonsoir,
Une piste, à tester
Cdt

 

Pièces jointes

• Listings test v2.xlsx

  113.5 KB · Affichages: 5

Vote positif 0 Vote négatif

F

Fitgy

XLDnaute Junior

• 24 Février 2023

• #3

Bonjour OKBI,

Je vais tenter comme ça voir si je retrouve le côté pratique sur plusieurs mois merci de votre réponse j'apprécie que ce soit par formule

 

Vote positif 0 Vote négatif

Hasco

XLDnaute Barbatruc

Repose en paix

• 24 Février 2023

• #4

Bonjour,

Voici une solution par power query.
Comme vos tableau ne sont pas "nommés" ni des tableaux structurés, la requête Power query interroge le classeur comme un classeur externe, il faudra donc enregistrer votre classeurs avant de rafraîchir la requête.
Vérifiez également que la formule de la cellule I1 de "Onglet travail" et nommée "Fichier" contient bien le chemin vers le fichier.
si vous optez pour une solution power query, on pourra amélioré cela suivant vos besoins.

Une fois les vérifications faites, Données->Actualiser tout ou click-droit dans le tableau -> "Actualiser"

La requête (voir tableau en feuille "Onglet travail") totalise par nom toutes les heures des colonne A

Cordialement

 

Pièces jointes

• PQ_Listing test.xlsx

  113.4 KB · Affichages: 7

Vote positif 0 Vote négatif

Cousinhub

XLDnaute Barbatruc

Inactif

• 24 Février 2023

• #5

Hello,
Désolé pour l'incrust...
@Hasco , je pique le Duration.Day pour les cumuls d'heures supérieures à 24:00
Merki

 

Vote positif 0 Vote négatif

Hasco

XLDnaute Barbatruc

Repose en paix

• 24 Février 2023

• #6

Re,

@bhbh salut l'ami, tu veux dire Duration.From car il ne me semble pas avoir employé Duration.Day .

 

Vote positif 0 Vote négatif

Cousinhub

XLDnaute Barbatruc

Inactif

• 24 Février 2023

• #7

Hi,
Bien sûr, c'était pour voir si tu suivais...
Nan, comme ça fait quelques jours que je cherche cette solution (j'ai été sur plusieurs sites, et ils utilisaient notamment Duration.Day en ajoutant une colonne intermédiaire, et en retranchant #date(1899,12,31)), je l'avais toujours en tête...
Merci encore, et +++

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 24 Février 2023

• #8

Bonsoir,

Une fonction VBA très simple :

VB:

Function SommeOnglets(nom$)
Application.Volatile
Dim w As Worksheet
For Each w In Worksheets
    SommeOnglets = SommeOnglets + Application.SumIf(w.Columns("A"), nom, w.Columns("AD"))
Next
End Function

Le code doit être impérativement dans un module standard.

Formule en colonne AA de la 1ère feuille =SommeOnglets([@NomPrénom])

A+

 

Pièces jointes

• Listings test.xlsm

  105.9 KB · Affichages: 4

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 25 Février 2023

• #9

Bonjour Fitgy, le forum,

Avec une fonction volatile les formules sont recalculées à chaque modification d'une cellule quelconque et cela peut prendre beaucoup de temps s'il y a beaucoup de formules à recalculer.

Pour l'éviter on ne rendra pas la fonction volatile et on ajoutera cette macro dans le code de la 1ère feuille :

VB:

Private Sub Worksheet_Activate()
With [Tableau1].Columns(1) 'tableau structuré
    .Formula = .Formula 'force le recalcul des formules en colonne AA
End With
End Sub

Les formules sont recalculées seulement à l'activation de la feuille.

J'utilise .Formula pour le cas où il y aurait des formules en colonne A.

A+

 

Pièces jointes

• Listings test(1).xlsm

  107.1 KB · Affichages: 0

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 25 Février 2023

• #10

Pour tester j'ai recopié le tableau A6:AA8 sur 12 000 lignes.

Dans les 2 solutions le recalcul des formules s'effectue en 14,6 secondes.

Mais c'est seulement dans le 2ème cas (l'activation de la feuille) que cette durée est acceptable.

 

Vote positif 0 Vote négatif