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

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

30 réponses

Discussions similaires

Newsletters