doublon supérieur a la somme de 8

[a10]

bonjour

j'ai des données dans l'onglet feuil

je vais dans l'onglet doublon et je met la date dans la cellule b3

je dois repérer tous les codes qui ont une somme supérieur à la celllue b1

pouvez vous m'aider avec une formule simple

a+

 

[job75]

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+

 

[job75]

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+

 

[a10]

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+

 

[job75]

Re : doublon supérieur a la somme de 8

Message annulé

 

[job75]

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.

 

[a10]

Re : doublon supérieur a la somme de 8

merci

bonne soirée

a demain

 

[job75]

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.

 

[job75]

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 :

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+

 

[job75]

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+

 

[Monique]

Re : doublon supérieur a la somme de 8

Bonjour,

Quelques formules en plus

 

[CISCO]

Re : doublon supérieur a la somme de 8

Bonsoir à tous

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+

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

D'avance, merci.

@ plus

 

[job75]

Re : doublon supérieur a la somme de 8

Bonsoir CISCO,

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

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

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

et pour VBA faire une boucle dans la macro Filtre :

'----
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+

 

[Staple1600]

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 😉

 

[job75]

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.