Recherche prix avec menu déroulant

[vmax67]

Bonjour à tous

Je cherche à faire apparaître le prix d'un article après validation de la combobox1;2;3 et 4.
Mon soucis est que le prix varie suivant la colonne plage de prix et les colonnes épaisseurs.

Également un soucis avec Me.ComboBox4.Clear qui affiche 1 message d'erreur

Et pour finir de copier le résultats dans ligne de la cellule active.

Par avance merci de votre aide.

Wmax67

 

[Chris401]

Re : Recherche prix avec menu déroulant

Bonjour

Un essai dans le fichier joint

Cordialement
Chris

 

[vmax67]

Re : Recherche prix avec menu déroulant

Bonsoir

merci pour le correctif, mais ça fonctionne uniquement avec la valeur plaque dans le combo2, si valeur = bloc le prix ne s'affiche pas.

Encore merci pour votre aide.

Vmax67

 

[Chris401]

Re : Recherche prix avec menu déroulant

Re

Soit tu modifies le code

If ComboBox1.Value = "Bloc" Then TextBox3.Value = "1 Bloc"

par

If ComboBox1.Value = "Bloc" Then TextBox3.Value = "1"

Soit, dans la feuille BD (Plage de prix), tu modifies, pour les blocs uniquement, 1 par 1 Bloc

Chris

 

[Papou-net]

Re : Recherche prix avec menu déroulant

Bonsoir Wmax67, Chris401, le Forum,

L'erreur à l'effacement de ComboBox4 vient du fait que cette liste comporte une plage de cellules ("Feuil1!A1:A10") dans sa propriété RowSource. Il suffit de la supprimer pour remédier au problème.

C'est ce que j'ai fait dans la copie ci-jointe.

Bonne soirée.

Cordialement.

 

[vmax67]

Re : Recherche prix avec menu déroulant

Bonsoir

merci à tous.
Pour info le fichier à Chris fonctionne correctement, pas celui de Papou.

Bonne soirée

 

[Papou-net]

Re : Recherche prix avec menu déroulant

Bonsoir

merci à tous.
Pour info le fichier à Chris fonctionne correctement, pas celui de Papou.

Bonne soirée

Bonjour vmax67,

Pour info, peux-tu préciser ce qui ne fonctionne pas correctement?

J'avais omis de préciser dans ma réponse que la boucle de transfert des combobox comportait une erreur d'indexage, ce que j'avais corrigé.

A +

Cordialement.