Tableau récapitulatif d'offres

Question

Bonjour,

Je suis actuellement en stage et développe un outil sur excel pour permettre de réaliser plus rapidement des devis. Mais voilà, alors que mon fichier est presque terminé, je bloque sur un gros problème. En effet, afin que mon devis se remplisse automatiquement, il faut préalablement remplir une fiche de renseignements à la fin de laquelle se trouve un tableau dont le but est de récapituler les offres possibles en fonction des critères renseignés.

J'ai utilisé des fonctions SI imbriquées et des fonctions recherchev. Pourtant à chaque fois le résultat correspond systématiquement au dernier produit de ma liste alors qu'il y a des produits précédents qui répondent aux mêmes critères.

Y aurait-il quelqu'un qui pourrait m'aider ? Je pensais éventuellement construire une macro mais je suis novice dans ce domaine-ci...

bouket · Answer

Bonjour,

Je pense que les If imbriquées se comportent de la façon suivante : Si ils rencontrent plusieurs possibilités, ils ne gardent que la dernière ...

Pour que cela marche, il faut effectivement, je pense (mais peut-être que quelqu'un à une solution plus simple ^^), faire une macro, pour enregistrer les choix valables au fur et à mesure.

Pour se faire, je vous conseille de nous expliquer plus en détails votre fichier, ou, pourquoi pas, poster votre document Excel (élaguée si confus)...

Bon après-midi !

Max29 · Answer

Il y a 3 critères importants que la formule doit prendre en compte : la marque, la puissance et le prix.

Les fonctions recherche ont pour matrice une autre feuille du fichier qui correspond à une base produit et qui contient également ces 3 critères.

Voici la formule telle quelle est pour le moment : =SI(ET(C48="aleo";RECHERCHEV(C48;'BASE PRODUIT'!$B$5:$Z$19;24)=$D$15;RECHERCHEV(C48;'BASE PRODUIT'!$B$5:$Z$19;25)=$D$16);RECHERCHEV(C48;'BASE PRODUIT'!$B$5:$Z$19;3))

J'ai tenté de construire une macro recherche mais je bloque également ! Est-il possible d'imbriquer des fonctions SI dans une macro ?

bouket · Answer

oui, on peut tout faire avec une macro, dîtes moi ce que vous n'arrivez pas à faire faire à votre fichier ^^!

bouket · Answer

Désolé, j'ai l'impression d'être simplet ! Mais, pouvez vous donner un exemple concret de où et quoi doit aller chercher la macro ? 

Je pense que la macro devrait plutôt s'apparenter à quelque chose du goût :

Je vais chercher quelque chose qui correspond, je l'enregistre et je le met dans la première case vide de mon tableau, puis suite de la recherche, si nouvelle chose qui correspond, je l'enre... et ainsi de suite !

Est-ce proche de ce que vous souhaitez faire ?


+

eriiic · Answer

Bonjour,

dépose donc un fichier exemple sur cijoint.fr et colle ici le lien fourni
eric

bouket · Answer

Je travaille sur le code, j'ai plusieurs questions concernant la qualité des recherches que la macro doit effectuer...

Le prix, la marque et la puissance doivent être recherché dans quel ordre, avec quel rigueur, je veux dire:

si je trouve la bonne marque, le bon prix mais que la puissance est légèrement inférieur, dois-je quand même le faire figurer dans la recherche... ?

Plus vous serez précis sur la qualité de la recherche qui doit être effectuer, mieux cela sera :) !

bouket · Answer

je comprend, je vais donc tenir compte de la marge de 10 % autour de la valeur rentrée par l'utilisateur ;)

à demain !

bouket · Answer

Bonjour,

Voici le lien vers le fichier que j'ai préparé : 	https://www.cjoint.com/?iqpoAhqMTU
Je vous laisse découvrir et poser vos questions sur le code ;) (je n'ai pas mis de commentaire pour que vous essayer de comprendre la logique par vous même, et placiez vos propre commentaire)

++

bouket · Answer

non en effet, je n'ai pas tenu compte du modèle d'une marque, on peut remédié à cela en liant la recherche de la marque au modèle... Dans la partie recherche de la marque, il suffit de rajouter une condition supplémentaire sur le modèle ! Comme je ne savais pas comment rendre la recherche, j'ai simplement fait en sorte que les différentes offres possibles se mettent les unes en dessous des autres (cela correspond à la variable m qui commence à la ligne 6 et qui n'incrémente à chaque fois que l'on ajoute une offre) sinon, je vous propose de me passer le code que vous avez modifiez, pour voir comment remédier au problème du with et de la recherche de la colonne ;) ! à plus tard! modele_rech = Cells(4, 2).Value Sheets("produit").Activate If (marque_rech <> "") Then Cells.Find(What:="marque", After:=ActiveCell, LookIn:=xlFormulas, LookAt _ :=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _ False, SearchFormat:=False).Activate colonne_marque = ActiveCell.Column Cells.Find(What:="modèle", After:=ActiveCell, LookIn:=xlFormulas, LookAt _ :=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _ False, SearchFormat:=False).Activate colonne_modele = ActiveCell.Column While (Cells(i, colonne_marque).Value <> "") If (marque_rech = Cells(i, colonne_marque).Value And modele_rech = Cells(i, colonne_modele).Value) Then table_resultat(n) = Cells(i, colonne_marque).Row n = n + 1 End If i = i + 1 Wend Else MsgBox "Entrer une marque pour effectuer la recherche" End If

bouket · Answer

Enfait, il s'agit d'une erreur assez simple à résoudre, vous avez placé la recherche de l'entête de colonne après avoir attribué le numéro de la colonne 



colonne_marque = ActiveCell.Column 



doit se situer juste après la recherche. En effet, celle ci à pour seul but d'activer la cellule d'entête de la colonne qu'on cherche, et après on note la colonne de la cellule qu'on a activé ...



Cells.Find(what:=(marque_rech), after:=ActiveCell, LookIn:=xlFormulas, lookat:=xlPart, searchorder:=xlByRows, searchdirection:=xlNext, MatchCase:=False, searchformat:=False).Activate 

colonne_marque = ActiveCell.Column 



Peut surement se simplifier d'ailleurs en (mais que je trouve moins clair) :



colonne_marque = Cells.Find(what:=(marque_rech), after:=ActiveCell, LookIn:=xlFormulas, lookat:=xlPart, searchorder:=xlByRows, searchdirection:=xlNext, MatchCase:=False, searchformat:=False).Column

bouket · Answer

Les lettres i, j, k ect sont arbitraires et pris comme "compteur de boucle" dans plusieurs cas.

Par ailleurs, aucun résultat ne s'affichent s'y les prix/puissances dans la table où la recherche s'effectue sont d'une forme autre que nombre, en effet on compare dans le code des valeurs numériques...

Je m'explique, dans la première recherche (premier grand if), on met dans un tableau toutes les lignes qui correspondent à la marque souhaitez, éliminant ainsi une bonne partie des références. Ensuite, lors de la recherche du prix, on compare celui ci à la valeur souhaitez pour chacun des lignes préalablement définies par la marque. Ainsi, si la comparaison du prix n'est pas satisfaisante, alors on met la valeur de la référence à 0 pour l'éliminer et on regarde la suivante. Ici, aucun résultat ne peut sortir, car à chaque fois la comparaison échoue.
Du coup, la macro ne rend rien...

Bien sûr, il y a des solutions de rechanges...

Je peux peut-être améliorer la macro si vous souhaitez m'envoyer votre fichier (seule la structure du fichier, vous pouvez le dépouillez de toutes informations sensibles ;), je pourrais faire quelque chose de beaucoup plus intéressant, avec une recherche plus ciblée et des options plus intéressantes!
(vous pouvez transmettre le lien cjoint en mp...)

En espérant avoir répondu aux questions ...

bouket · Answer

Bonjour,

Le code de la fin du message 14 prenait en compte la demande sur le modèle ;), le code en gras correspond aux modifications à apporter...


bonne journée

bouket · Answer

Pas de problème, par contre sans le code, je ne vois pas du tout :s
copier coller ?

bouket · Answer

:) ! j'ai trouvé deux erreurs :) ! je donne les extraits : If (marque_rech <> "") Then Cells.Find(what:=(marque_rech), after:=ActiveCell, LookIn:=xlFormulas, lookat _ :=xlPart, searchorder:=xlByRows, searchdirection:=xlNext, MatchCase _ :=False, searchformat:=False).Activate colonne_marque = ActiveCell.Column While (Cells(i, colonne_marque).Value <> "") devrait plutôt donner, car on cherche l'entête (si le nom de la marque se trouvait ailleurs dans le fichier, ça pourrait être embêtant, mais cela revient au même sinon): If (marque_rech <> "") Then Cells.Find(what:="marque", after:=ActiveCell, LookIn:=xlFormulas, lookat _ :=xlPart, searchorder:=xlByRows, searchdirection:=xlNext, MatchCase _ :=False, searchformat:=False).Activate colonne_marque = ActiveCell.Column While (Cells(i, colonne_marque).Value <> "") Mais surtout, la faute qui fait que votre macro ne rend rien, la mauvaise manipulation de la variable prix : Dim prix As Variant . . . colonne_prix_unitaire = ActiveCell.Column While (j < 150) If (table_resultat(j) <> 0) Then prix = Cells(table_resultat(j), colonne_prix_unitaire) If ((prix_unitaire < (prix_rech * 0.9) And prix_unitaire > (prix_rech * 1.1)) Or prix_unitaire = "") Then table_resultat(j) = 0 End If End If Tous les résultats sont donc exclus ;) car prix_unitaire = 0, il faut évidemment écrire : Dim prix_unitaire As Variant . . . colonne_prix_unitaire = ActiveCell.Column While (j < 150) If (table_resultat(j) <> 0) Then prix_unitaire = Cells(table_resultat(j), colonne_prix_unitaire) If ((prix_unitaire < (prix_rech * 0.9) And prix_unitaire > (prix_rech * 1.1)) Or prix_unitaire = "") Then table_resultat(j) = 0 End If End If voilà voilà, à plus tard !

bouket · Answer

Ah j'allais oublier, votre tableau présentant 21 colonnes, copions la ligne entière tant qu'à faire :


Sheets("base").Activate
Range(Cells(table_resultat(l), 3), Cells(table_resultat(l), 10)).Select
Selection.Copy
Sheets("dimensionnement").Activate
Cells(m, 1).Activate
ActiveSheet.Paste 


à remplacer par:


Sheets("base").Activate
Range(Cells(table_resultat(l), 1), Cells(table_resultat(l), 21)).Select
Selection.Copy
Sheets("dimensionnement").Activate
Cells(m, 1).Activate
ActiveSheet.Paste

Max29 · Answer

Je viens de corriger et modifier la macro comme vous venez de me l'indiquer ! Par contre, ma macro refuse toujours de sélectionner la ligne ! En gros mon écran saute à chaque fois que j'exécute la macro !

bouket · Answer

étrange, la macro fonctionne chez moi...

comment est remplie la case prix dans la base désormais ?

qu'est ce que vous voulez dire par "mon écran saute" ! 

p.s.: on y arrive, on y arrive ^^ !

Max29 · Answer

J'ai peut-être la solution grâce à votre question !

Dans ma feuille "base", la colonne "prix unitaire" comporte des nombres à virgules. Hier, en regardant plusieurs forums et l'aide Microsoft j'ai cru voir qu'il y avait un code spécial à rentrer pour de tels nombres en lieu et place de "variant" ou "integer" ?

Par "mon écran saute", j'entends le fait que ma macro semble se bloquer au moment de faire la sélection...

bouket · Answer

Les nombres à virgules sont prix en compte dans Variant, il me semble.
Mais, peut-être que les nombres dans votre base, ne sont pas pris en tant que nombre ?
Sont-ils alignés à gauche ou à droite ? Est-ce qu'il y a un . ou une , pour séparer les décimales du reste?

bouket · Answer

alors, faire le test suivant...
changer le nom de colonne prix initiale, puis copier la et mettez le nom habituel, et mettez le format des cellules de la colonne au format nombre avec 0 virgule... nous verrons bien !! héhé

bouket · Answer

Ah, je crois avoir trouvé !
vous avez fait la même erreur qu'avec le prix, sauf que cette fois la probabilité pour que le prix soit exactement trouvé est faible, enfin bref :


If (prix_rech <> "") Then

Cells.Find(what:="prix", after:=ActiveCell, LookIn:=xlFormulas, lookat _
:=xlPart, searchorder:=xlByRows, searchdirection:=xlNext, MatchCase:= _
False, searchformat:=False).Activate

colonne_prix_unitaire = ActiveCell.Column

While (j < 150) 



Une nouvelle fois, on cherche l'entête, au cas où on rajouterais des colonnes dans la base ;)

bouket · Answer

remplacer : 
table_resultat(j) = 0 par table_resultat(j) = 1 et voir le résultat, normalement, on doit voir copier dans la zone de résultat le nombre d'offre correspondant à la marque

bouket · Answer

désolé, je n'ai plus du tout d'idées! normalement, cela devrait fonctionner, je ne comprend pas

bouket · Answer

vous pouvez m'envoyer le lien en mp :) ! sinon mon adresse mail c'est https://www.cjoint.com/?issMK7rRSK

bouket · Answer

ahah ! mdr ! vérifiez l'intitulé exact des feuilles (attention accents, espaces, majuscules ?) ! je ne vois que cela !

bouket · Answer

et bien il marche : https://www.cjoint.com/?istFFrZjpH

c'était, comme je l'ai déjà dit, la recherche : si vous mettez la variable prix_unitaire au lieu de l'intitulé de la colonne "prix unitaire", alors il définit la colonne 20 (avec la recherche"4") ... et alors il exclut tout !

maintenant cela fonctionne...
si vous voulez, on peut maintenant l'améliorer ?

Max29 · Answer

Maintenant que la macro fonctionne, je constate quand même un petit problème : elle sélectionne l'ensemble des références d'une marque sans prendre en compte le critère "prix".

Sinon que me proposez-vous pour l'améliorer ?

- Peut-on créer une boîte de message avec une barre de progression pendant que la macro fait une recherche ?

- Comment faire pour que la macro remplisse uniquement les renseignements utiles pour la table résultat de la feuille "dimensionnement"?

En tout cas, merci beaucoup pour votre aide, elle m'est bien précieuse !

bouket · Answer

Je vais y travailler, pour la barre de progression, je sais en faire une intéressante, mais je n'ai plus le code sous la main. Mais, elle n'est utile que si votre macro mais plusieurs dizaines de secondes à s'exécuter.

Je vous redis demain ;)

bouket · Answer

Trouvé! Quel idiot je suis !

   If (table_resultat(j) <> 0) Then
        prix_unitaire = Cells(table_resultat(j), colonne_prix_unitaire)
        If ((prix_unitaire < (prix_rech * 0.5) Or prix_unitaire > (prix_rech * 1.5)) Or prix_unitaire = "") Then
            table_resultat(j) = 0
        End If
    
    End If

J'avais mis "And" au départ, bien sûr, le prix ne peut pas à la fois être en dessous de celui recherché et au dessus... donc le If n'était jamais vérifié...

Par ailleurs, attention au 0.5 et 1.5, ils correspondent à des zones trop grandes.
Ex: si vous entrez 4 € dans la recherche

Il prendra les offres de 0.5*4 = 2 € à 1.5 *4 = 6 € ... ce qui correspond peut-être à beaucoup d'offre ;)
Si vous avez des prix de 0.5 en 0.5 et que vous voulez associez le triplet (3.5,4,4.5) à la recherche... alors remplacez les * par des + et mettez 0.5 € de chaque côté ;)

bonne soirée

bouket · Answer

Mais, de rien, si vous avez des demandes plus précises, n'hésitez pas !!

Tableau récapitulatif d'offres - Page 2

Discussions similaires

Newsletters