XL 2013 Fonction matricielle trop lourde

[almourasel]

Salut a tous


je suis nul avec VBA, je cherche vos supports svp , j'ai une fonction matricielle trop lourde pour me donner une résultant ( elle dure de 2 heures meme plus sans toucher aucune bouton ), celle la fonction utilisé

=+LARGE(IF($B$2:$B$194634=B2;IF($A$2:$A$194634=A2;IF($I$2:$I$194634=I2;$C$2:$C$194634)));1)

comme montre en haut j ai des infinité des lignes , comment faire pour rendre cette formule en VBA svp.
chaque fois je dois nettoyer les lignes de A1:G1 et mettres de nouveaux les données mais sa aussi prends beaucoup de temps aussi que le copier coller de data dans cette zone que la fonction utilisé matricielle et les lignes dépasse 100000 lignes.

merci pour votre support d'avance.

 

[djidji59430]

Bonjour à tous,

T'as essayé :
=+LARGE($C$2:$C$194634)));1) ??
Tes if ne servent a rien
si b2=b2,si a2=a2;si i2=i2

 

[almourasel]

Bonjour

j ai essayé mais cette formule =+LARGE($C$2:$C$194634)));1) retourne seulement le max par ligne , mais ce que je cherche le max selon des critaires : Customer + Material +Week order.

 

[chris]

Bonjour à tous

C'est un non sens de créer un tableau structuré sur 1 millions de lignes, alors qu'il s'agrandit naturellement, et plus encore une matricielle sur autant de lignes.

Une fois le tableau ramené à sa taille logique (pas de ligne vide) :

=GRANDE.VALEUR(SI([Material]=[@Material];SI([Customer]=[@Customer];SI([Week Order]=[@[Week Order]];[Dlv.schedule])));1)

ou

=MAX(SI(([Material]=[@Material])*([Customer]=[@Customer])*([Week Order]=[@[Week Order]]);[Dlv.schedule];0))

Mais ne serait-il pas mieux de déplacer ce calcul de synthèse dans un TCD ?

 

[almourasel]

Merci pour la manière le gérer avec TCD mais comment faire apparaitre seulement les valeurs " order quantity " pour les valeurs max seulement .

j'ai fais un example celle l image ci dessous. ce que je cherche que le TCD m 'affiche seulement le max dlc schedule par rapport Customer / Material / Order Week.
par example pour le produit F000134174 je veux voire seulement lignes en jaune puisque le max Dlv Schedule W08 c est numéro 5 et max Dlv Schedule 8 pour la semaine W09.
même chose pour les autres produits , comment faire ??

Merci.

 

[chris]

RE

A priori c'est ce que fait le TCD mais comme ton image ne correspond pas à la même source, difficile de vérifier

 

[almourasel]

Salut

DSl pour la confusion , celle le fichier excel avec même données , a la place de voire le max de Dlv Schedule je veux voire la quantitée par rapport au max de Dlv schedule.

 

[job75]

Bonjour almourasel, djidji59430, chris,

C'est un non sens de créer un tableau structuré sur 1 millions de lignes, alors qu'il s'agrandit naturellement, et plus encore une matricielle sur autant de lignes.

Tout à fait d'accord chris.

J'ai testé le fichier du post #1 sur 30 000 lignes, les formules se calculent chez moi en 60 secondes.

Sur le fichier .xlsm de même taille joint cette macro s'exécute chez moi en 0,18 seconde :

Private Sub Worksheet_Change(ByVal Target As Range)
Dim d As Object, tablo, i&, x$, y#, a()
Set d = CreateObject("Scripting.Dictionary")
With [Table1] 'tableau structuré
    '--- calcul des maxima---
    tablo = .Resize(, 9) 'matrice, plus rapide
    For i = 1 To UBound(tablo)
        x = tablo(i, 1) & Chr(1) & tablo(i, 2) & Chr(1) & tablo(i, 9)
        tablo(i, 1) = x 'mémorise la concaténation
        If Not d.exists(x) Then d(x) = 0
        y = Val(Replace(tablo(i, 3), ",", "."))
        If y > d(x) Then d(x) = y
    Next i
    '---restitution en colonne M---
    ReDim a(1 To UBound(tablo), 1 To 1)
    For i = 1 To UBound(tablo)
        a(i, 1) = d(tablo(i, 1))
    Next i
    Application.EnableEvents = False 'désactive les évènements
    .Columns(13) = a
    Application.EnableEvents = True 'réactive les évènements
End With
End Sub

Elle s'exécute automatiquement quand on modifie ou valide une cellule quelconque.

A+

 

[almourasel]

Super , Genial , tu m' as sauvé la vie , avant prend 3 heures maintenant quelques secondes.
c est résolu.
impeccable...


merci Job75 et merci pour tous les colleagues ici.

 

[job75]

maintenant quelques secondes.

Quelques secondes c'est beaucoup, combien de lignes comporte votre tableau ?

S'il y en a plusieurs centaines de milliers je peux vous fournir une solution pour gagner du temps.

 

[almourasel]

mon tableau peut comporté plusque 500000 lignes . si tu peux le faire prière de me fournir cette solution, sa sera un grand support de votre part svp.

 

[CISCO]

Bonjour à tous

@ Job75 : almourasel n'aura même plus le temps d'aller boire un café

@ plus

 

[almourasel]

@CISCO : je suis a terminer ce travail car je dois terminer cet analyse et préparer des autres travails.
merci pour tous les membres ici .
Dsl pour le dérangement les amis svp

 

[job75]

Re, salut CISCO,

En fait la solution que j'envisageais ne va pas, il faut toujours recalculer toute la colonne M.

Sur 600 000 lignes l'exécution se fait chez moi en 4,2 secondes.

Si la macro Worksheet_Change ne vous convient pas modifiez son nom et affectez-la à un bouton.

A+

 

[almourasel]

Merci