valeur en fonction de combobox

[natorp]

bjr à tous et à toutes

J'aimerais afficher des valeurs en fonction de texte provenant d'un userform (combobox) et afficher les 2 combobox.... c'est plus explicite dans le fichier-joint

Merci, Gérard

 

[jp14]

Re : valeur en fonction de combobox

Bonjour

Ci joint le fichier avec les procédures de l'usf modifiés.

Pour remplir les combobx j'utilise une procédure paramétrable qui permet d'afficher des colonnes et qui mémorise dans la dernière colonne (qui est cachée) le numéro de la ligne dans la feuille base de données. Les données sont triées.

Le bouton valider permet d'enregistrer les données inscrites. Un seul combobox peut être renseigné. Si le textbox correspondant n'est pas renseigné la procédure affiche un message.
Il faut modifier la largeur des combobox
A tester et à modifier.

JP

 

[BERRACHED said]

Re : valeur en fonction de combobox

Salut,Natorp,jp14

En plus de ce qui a été proposer par Jp14 voila une autre ébauche comme ca tu as l'embarras du choix.

Cordialement

 

[natorp]

Re : valeur en fonction de combobox

Merci, est-ce qu'il serait possible que les prix n'apparaissent pas dans les choix des combobox ?

cordialement, Gérard

 

[natorp]

Re : valeur en fonction de combobox

Sorry, je répondais à JP14
Gérard

 

[natorp]

Re : valeur en fonction de combobox

Bonsoir Said, merci, mais j'aimerais plutôt que les prix apparaissent dans la feuille du classeur plutôt que dans le userform, où le total du textbox6 ne s'effectue pas ?

Cordialement, Gérard

 

[BERRACHED said]

Re : valeur en fonction de combobox

Bonsoir,

pour le textbox6 je vais arrangé mais dans la feuille tu veut le prix unitaire ou le total ?

Cordialement

 

[natorp]

Re : valeur en fonction de combobox

les 2 mon capitaine Said !!
merci de ton aide , Gérard

 

[natorp]

Re : valeur en fonction de combobox

Re-bonsoir Said,
j'aimerais également que chaque valeur entrée vienne s'inscrire après la dernière ligne utilisée, actuellement ça ne fonctionne que pour les apéritifs...
encore merci....Gérard

 

[natorp]

Re : valeur en fonction de combobox

Bonsoir JP14,
après différents tests, il s'avère que rien ne se passe quand je clique sur le bouton 3, le userform apparaît bien mais aucune données entrées n'apparaissent dans la feuille...
merci de ton aide....
Bonne nuit, Gérard

 

[BERRACHED said]

Re : valeur en fonction de combobox

Ré,
une autre version j'espere te conviendra

Coprdialement

 

[natorp]

Re : valeur en fonction de combobox

merci, effectivement le prix unitaire est bien reporté dans le classeur, sauf que je préférerais que cela ne passe pas par le userform mais qu'en fonction de la valeur entrée par le combobox le prix vienne s'inscrire dans la cellule d'à côté (j'ai tenté plusieurs choses (equiv/index ou recherchev), mais je n'y arrive pas.
De plus si je ne rentre que les apéros dans un premier temps pour gagner du temps sans rien mettre dans le choix menus (combobox2) j'ai une erreur car rien n'a été saisi....
merci de ton aide....
Gérard

 

[jp14]

Re : valeur en fonction de combobox

Bonjour

Ci dessous le fichier avec les procédures corrigées
Concernant le prix j'ai indiqué que la colonne est égale à 0.
£dimcol:="80;0", _

J'ai augmenté la taille des colonnes.
La saisie est totalement libre.

Concernant l'absence d'inscription cela provenait de la recherche de la dernière ligne utilisée.
J'ai rajouté 10
.Range(col1 & "65536").End(xlUp).Row + 10

JP

 

[natorp]

Re : valeur en fonction de combobox

merci, je suis en cours de test de ton fichier qui me paraît tout à fait convenir
une petite remarque, lorsque je choisis un menu sans mettre de nb, il y a bien un message d'alerte, c'est super, sauf que je ne peux pas supprimer le choix fait dans le combobox au cas où ce fut une erreur de frappe....
merci de ton aide.....
PS : dans le paramètre "array" de la fonction remplircombo....
pour le premier tu mets : £param:=Array("a", "b")
le deuxième : £param:=Array("d", "d")
ce ne doit pas être ? : £param:=Array("d", "e")

Merci, gérard

 

[jp14]

Re : valeur en fonction de combobox

Bonjour
Effectivement il faut écrire £param:=Array("d", "e") .

Ci dessous l'userform avec une fonction pour effacer.

A tester

Après décompression il faut utiliser dans le menu fichier de l'éditeur vba l'option importer.
JP