Copier mot surligné dans un combobox
geogeo75
-
pijaku Messages postés 13513 Date d'inscription Statut Modérateur Dernière intervention -
pijaku Messages postés 13513 Date d'inscription Statut Modérateur Dernière intervention -
Bonjour,
J'ai crée un userform pour valider une commande. Dans ma userform, il ya une liste déroulante (Combo Box) ou je choisis mon produit parmi ceux que mon entreprise vend. Exemple: pain, gâteau, pizza, boisson etc...
J'aimerais que quand je choisis admettons "Boisson" dans ma liste, la valeur "Boisson" se copie dans ma Feuille "Produits" en cellule "G4", et cela sans utiliser un bouton de validation, mais juste quand je clique sur le produit dans ma liste...
Ma liste déroulante se nomme "liste_produit_vendu" et ma userform "Nouvelle_commande"
le code écrit est celui-ci, mais rien ne s'affiche en G4... sauf la valeur 0
Private Sub liste_produit_vendu_Change()
Sheets("Produits").Range("G4").Value = Val(Me.liste_produit_vendu.Value)
End Sub
Auriez-vous une idée??
Merci d'avance
J'ai crée un userform pour valider une commande. Dans ma userform, il ya une liste déroulante (Combo Box) ou je choisis mon produit parmi ceux que mon entreprise vend. Exemple: pain, gâteau, pizza, boisson etc...
J'aimerais que quand je choisis admettons "Boisson" dans ma liste, la valeur "Boisson" se copie dans ma Feuille "Produits" en cellule "G4", et cela sans utiliser un bouton de validation, mais juste quand je clique sur le produit dans ma liste...
Ma liste déroulante se nomme "liste_produit_vendu" et ma userform "Nouvelle_commande"
le code écrit est celui-ci, mais rien ne s'affiche en G4... sauf la valeur 0
Private Sub liste_produit_vendu_Change()
Sheets("Produits").Range("G4").Value = Val(Me.liste_produit_vendu.Value)
End Sub
Auriez-vous une idée??
Merci d'avance
A voir également:
- Copier mot surligné dans un combobox
- Trousseau mot de passe iphone - Guide
- Mot de passe administrateur - Guide
- Comment copier une vidéo youtube - Guide
- Mot de passe bios perdu - Guide
- Super copier - Télécharger - Gestion de fichiers
Du coup j'ai une autre question. J'ai une text box dans laquelle je souhaite taper un nouveau montant de TVA.
Et j'aimerais que ce montant s'affiche en pourcentage (pour ne pas tomber sur un utilisateur qui me mettrait 20 au lieu de 20%...)
As-tu une idée?
J'ai regardé des codes mais ça en marche pas.
Private Sub Nouvelle_TVA_Change()
'affichage'
Nouvelle_TVA.Value = Format(Nouvelle_TVA.Value, "0.00%")
'récupération de la valeur'
Nouvelle_TVA.Value = Replace(Nouvelle_TVA.Value, "%", "")
Nouvelle_TVA.Value = Replace(Nouvelle_TVA.Value, " ", "")
Nouvelle_TVA.Value = Replace(Nouvelle_TVA.Value, ",", ".")
Nouvelle_TVA.Value = Val(Nouvelle_TVA.Value)
End Sub
Avec ce code rien ne s'affiche dans ma text box Nouvelle_TVA. Idem si je mets Nouvelle_TVA.Value= Format (Pourcent)
...
C'est le problème quand tu laisses la saisie à un utilisateur... Tu ne peux rien y faire. Certains vont t'écrire 20, d'autres 20,00% (avec virgule), d'autres 20.00% (avec point), d'autres 20%, et les plus forts écriront : "moi"...
Dans le cas qui nous intéresse, il s'agit de montants de TVA, donc quelque chose de fixe (même s'ils évoluent...) mais que tu souhaites pouvoir modifier...
Pour cela, je te recommande l'utilisation, non pas d'un textbox, mais d'une combobox ou listbox, qui permettront de faire un choix et non pas de saisir.
En gros, c'est toi, par un code qui va leur indiquer les seules valeurs que les utilisateurs peuvent indiquer.
Dis moi...
Merci beaucoup!!
A+