XL pour MAC Recherche dans une base de donnée avec conditions

sylvanu

XLDnaute Barbatruc

Supporter XLD

• 24 Septembre 2020

• #2

Bonjour Vall et bienvenu sur XLD,
Un essai en PJ, à vérifier, avec :

VB:

=INDEX($E$3:$E$23;EQUIV(1;($B$3:$B$23=J3)*($C$3:$C$23=K3)*($D$3:$D$23>=L3);0)-1)

Formule matricielle, à valider par MAJ+CTRL+Entrée
et le total avec :

Code:

=SOMMEPROD(L3:L5;M3:M5)

 

Pièces jointes

• Recherche palier Base donnée.xlsx

  10.4 KB · Affichages: 8

Vote positif 0 Vote négatif

V

vall

XLDnaute Nouveau

• 24 Septembre 2020

• #3

Je viens de regarder tout à l'air de fonctionner, je vais l'appliquer à ma grande base de donnée

Je te redis mais en tout cas merci pour cette réponse très rapide !

 

Vote positif 0 Vote négatif

sylvanu

XLDnaute Barbatruc

Supporter XLD

• 24 Septembre 2020

• #4

Si la base est très grande alors les fonctions matricielles seront lentes.
Dans ce cas un passage par VBA pourrait être une meilleure solution.
A voir avec les résultats obtenus.

 

Vote positif 0 Vote négatif

sylvanu

XLDnaute Barbatruc

Supporter XLD

• 24 Septembre 2020

• #5

Just for the fun ...
En PJ un essai avec une fonction.
La syntaxe est :

VB:

=Prix(Objet, Spec, Qté)

Code:

Function Prix(Objet, Spec, Qté)
    Prix = ""
    DerLig = Range("B65500").End(xlUp).Row
    tablo = Range("B3:E" & DerLig)
    For L = 1 To UBound(tablo)
        If tablo(L, 1) = Objet And tablo(L, 2) = Spec Then
            If tablo(L, 3) >= Qté Then
                Prix = tablo(L - 1, 4)
                Exit Function
            End If
        End If
    Next L
End Function

A voir si plus rapide ou moins sur une grande BD.

 

Pièces jointes

• Recherche palier Base donnée (2).xlsm

  16.3 KB · Affichages: 5

Vote positif 0 Vote négatif

V

vall

XLDnaute Nouveau

• 24 Septembre 2020

• #6

Sur ma base de donnée la fonction matricielle ne pose aucun problème donc parfait !

D'ailleurs je me posais une petite question, est ce qu'il serait possible de rajouter une colonne Spec supplémentaire ?
Ce qui impliquerai dans la cellule prix d'inclure l'addition de la seconde spec à la première lorsque l'on en met une seconde !

 

Vote positif 0 Vote négatif

sylvanu

XLDnaute Barbatruc

Supporter XLD

• 24 Septembre 2020

• #7

J'ai remis les deux à jour, par formule matricielle et par fonction VBA.

 

Pièces jointes

• Recherche palier Base donnée (3).xlsm

  17.3 KB · Affichages: 7

Vote positif 0 Vote négatif

V

vall

XLDnaute Nouveau

• 24 Septembre 2020

• #8

Wow tu es rapide comme l'éclair !
Merci encore chef !

 

Vote positif 0 Vote négatif

V

vall

XLDnaute Nouveau

• 24 Septembre 2020

• #9

Ah si le seul problème que je viens de voir c'est si tu dépense le compteur.
Par exemple en prenant une quantité de 101 la fonction ne réagit pas alors que le palier est dépassé et il devrait prendre celui de 100 qui est le dernier

 

Vote positif 0 Vote négatif

sylvanu

XLDnaute Barbatruc

Supporter XLD

• 24 Septembre 2020

• #10

Oups! Et je n'arrive pas à trouver une solution. Je vais encore regarder.
Une solution serait de rajouter une ligne avec quantité=1000.
J'ai vérifié ça marche.

 

Vote positif 0 Vote négatif

V

vall

XLDnaute Nouveau

• 24 Septembre 2020

• #11

Ah yes c'est sûrement la solution !

J'essaie de suivre ta logique dans les fonctions et j'essaie de rajouter une seconde colonne avec Objet et Spec différente de la première
Mais ça ne fonctionne pas en ajoutant simplement une addition

VB:

=INDEX(BD_prix;EQUIV(1;(BD_impression=I7)*(BD_spec=J7)*(BD_quantité>=H7);0)-1)+INDEX(BD_prix;EQUIV(1;(BD_impression=K7)*(BD_spec=L7)*(BD_quantité>=H7);0)-1)

Évidement la somme est sur une dernière colonne

 

Vote positif 0 Vote négatif

sylvanu

XLDnaute Barbatruc

Supporter XLD

• 24 Septembre 2020

• #12

Non la formule est correcte. Le bug était déjà sur la version précédente.
Si la quantité est > à la dernière quantité il y a erreur.

 

Vote positif 0 Vote négatif

V

vall

XLDnaute Nouveau

• 24 Septembre 2020

• #13

Je me suis trompé dans le code, c'est celui de ma base de donnée

Mais si on reprend le fichier exemple pas possible l'addition si on ne met rien en second objet

 

Pièces jointes

• Recherche palier Base donnée (3).xlsm

  17.4 KB · Affichages: 6

Vote positif 0 Vote négatif

sylvanu

XLDnaute Barbatruc

Supporter XLD

• 24 Septembre 2020

• #14

J'avais compris une 2eme spec pour un même objet du genre Voiture+Vert+Métal.

 

Vote positif 0 Vote négatif

V

vall

XLDnaute Nouveau

• 24 Septembre 2020

• #15

Yes au début je pensais à ça mais j'aurai sûrement besoin de mettre un second objet avec Spec dans le total de la ligne au niveau du prix

Je test en rajoutant une catégorie qui vaut 0

 

Vote positif 0 Vote négatif