doublon supérieur a la somme de 8

job75

XLDnaute Barbatruc

• 20 Novembre 2014

• #2

Re : doublon supérieur a la somme de 8

Bonsoir,

Terminez vos fils svp :

https://www.excel-downloads.com/threads/additionner-des-heures.226171/

A+

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 21 Novembre 2014

• #3

Re : doublon supérieur a la somme de 8

Bonjour a10,

Voyez le fichier joint.

Les formules - matricielles - en colonnes A et B sont très classiques, nombreux exemples sur le forum.

A+

 

Pièces jointes

• doub(1).xlsx

  12.9 KB · Affichages: 29

Vote positif 0 Vote négatif

A

a10

XLDnaute Impliqué

• 21 Novembre 2014

• #4

Re : doublon supérieur a la somme de 8

bonjour

je n'ai pas l'afficahe des doublons:
2799 2
2799 5
2799 4

a+

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 21 Novembre 2014

• #5

Re : doublon supérieur a la somme de 8

Message annulé

 

Dernière édition: 21 Novembre 2014

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 21 Novembre 2014

• #6

Re : doublon supérieur a la somme de 8

Re a10,

OK il faut sommer les doublons.

Pas de solution pour l'instant, je verrai si c'est possible demain.

Bonne nuit.

 

Dernière édition: 21 Novembre 2014

Vote positif 0 Vote négatif

A

a10

XLDnaute Impliqué

• 21 Novembre 2014

• #7

Re : doublon supérieur a la somme de 8

merci

bonne soirée

a demain

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 22 Novembre 2014

• #8

Re : doublon supérieur a la somme de 8

Re,

Bon j'ai trouvé la solution avec SOMME.SI (en matriciel).

Fichier (2).

Re bonne nuit.

 

Pièces jointes

• doub(2).xlsm

  15.4 KB · Affichages: 24

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 22 Novembre 2014

• #9

Re : doublon supérieur a la somme de 8

Bonjour a10, le forum,

Sur de grands tableaux les formules de la solution précédente prendront beaucoup de temps de calcul.

Ce code VBA est beaucoup plus rapide grâce au Dictionary et aux tableaux VBA :

Code:

Private Sub Worksheet_Activate()
Filtre [B1], [colA], [col], [A4]
End Sub

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, [B1,B3]) Is Nothing Then _
  Filtre [B1], [colA], [col], [A4]
End Sub

Sub Filtre(critere&, colA As Range, col As Range, deb As Range)
Dim col1, col2, t(), d As Object, i&, n&
col1 = colA.Resize(colA.Count + 1) 'matrice, au moins 2 éléments
col2 = col.Resize(UBound(col1))
ReDim t(1 To UBound(col1), 1 To 2)
Set d = CreateObject("Scripting.Dictionary")
For i = 1 To UBound(t) - 1
  If Not d.exists(col1(i, 1)) Then _
    d(col1(i, 1)) = Application.SumIf(colA, col1(i, 1), col) 'SOMME.SI
  If d(col1(i, 1)) > critere Then
    n = n + 1
    t(n, 1) = col1(i, 1)
    t(n, 2) = col2(i, 1)
  End If
Next
'---restitution---
If n Then deb.Resize(n, 2) = t
deb.Offset(n).Resize(Rows.Count - deb.Row - n + 1, 2).ClearContents
End Sub

Fichier joint.

Bonne journée et A+

 

Pièces jointes

• doub par VBA(1).xls

  63.5 KB · Affichages: 22

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 22 Novembre 2014

• #10

Re : doublon supérieur a la somme de 8

Re,

Testé sur Win XP - Excel 2003 un tableau de seulement 300 lignes en feuille "feui" (colA ajusté à 300).

Les 2 x 300 formules du post #8 se recalculent en 7,2 secondes, ceci à chaque modification du classeur et à l'ouverture (les formules sont volatiles).

Le code du post #9 s'exécute lui entre 0,01 seconde (4 valeurs différentes en colonne A) et 0,03 seconde (300 valeurs différentes).

A+

 

Dernière édition: 22 Novembre 2014

Vote positif 0 Vote négatif

M

Monique

Nous a quitté

Repose en paix

• 22 Novembre 2014

• #11

Re : doublon supérieur a la somme de 8

Bonjour,

Quelques formules en plus

 

Pièces jointes

• ClassementDoublonsV2.xlsx

  18.6 KB · Affichages: 35

Vote positif 0 Vote négatif

CISCO

XLDnaute Barbatruc

• 22 Novembre 2014

• #12

Re : doublon supérieur a la somme de 8

Bonsoir à tous

job75 à dit:

Re,

Testé sur Win XP - Excel 2003 un tableau de seulement 300 lignes en feuille "feui" (colA ajusté à 300).

Les 2 x 300 formules du post #8 se recalculent en 7,2 secondes, ceci à chaque modification du classeur et à l'ouverture (les formules sont volatiles).

Le code du post #9 s'exécute lui entre 0,01 seconde (4 valeurs différentes en colonne A) et 0,03 seconde (300 valeurs différentes).

A+

Cliquez pour agrandir...

Petite question au passage : Job75, comment fais tu pour connaitre le temps de calcul nécessaire ?

D'avance, merci.

@ plus

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 22 Novembre 2014

• #13

Re : doublon supérieur a la somme de 8

Bonsoir CISCO,

CISCO à dit:

Petite question au passage : Job75, comment fais tu pour connaitre le temps de calcul nécessaire ?

Cliquez pour agrandir...

Sur 300 lignes, pour les formules avec 7 en B1, exécuter :

Code:

Sub a()
Dim t
t = Timer
[B1] = ""
MsgBox timer - t
End Sub

et pour VBA faire une boucle dans la macro Filtre :

Code:

'----
Dim x , k
x = Timer
For k = 1 To 100
  n = 0
  '----
Next
MsgBox (Timer - x) / 100
End Sub

Exécuter le code en validant B1.

A+

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 22 Novembre 2014

• #14

Re : doublon supérieur a la somme de 8

Bonsoir à tous


Job75
Je me permets cette petite citation 😉 en complément
Cela pourrait être utile 😉

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 22 Novembre 2014

• #15

Re : doublon supérieur a la somme de 8

Bonsoir JM,

J'ai fait un fil spécialement dédié à la durée d'exécution d'une formule :

https://www.excel-downloads.com/threads/duree-dexecution-dune-formule.148727/

Mais ici ce n'est pas d'une grande utilité car il faut mesurer beaucoup de formules.

J'en profte pour saluer Monique.

Bonne fin de soirée.

 

Vote positif 0 Vote négatif