Userform
Résolu/Fermé
mchotard
Messages postés
448
Date d'inscription
vendredi 6 mai 2011
Statut
Membre
Dernière intervention
15 février 2025
-
9 déc. 2014 à 15:07
baladur13 Messages postés 47345 Date d'inscription mercredi 11 avril 2007 Statut Modérateur Dernière intervention 26 février 2025 - 11 déc. 2014 à 23:47
baladur13 Messages postés 47345 Date d'inscription mercredi 11 avril 2007 Statut Modérateur Dernière intervention 26 février 2025 - 11 déc. 2014 à 23:47
2 réponses
via55
Messages postés
14512
Date d'inscription
mercredi 16 janvier 2013
Statut
Membre
Dernière intervention
18 janvier 2025
2 741
9 déc. 2014 à 15:25
9 déc. 2014 à 15:25
Bonjour
Dans l'editeurVBA ton userform affichée tu doubles clic sur ta combobox
puis tu rentres le code suivant :
Il faut adapter la référence au tableau tarif Sheets("Feuil1").Range("A3:B6"), 2, 0) avec le nom de ta feuille où il se trouve et les bonnes références de cellules
Cdlmnt
Dans l'editeurVBA ton userform affichée tu doubles clic sur ta combobox
puis tu rentres le code suivant :
Private Sub ComboBox1_Change() t = Application.WorksheetFunction.VLookup(ComboBox4.Value, Sheets("Feuil1").Range("A3:B6"), 2, 0) 'A ADAPTER TextBox16.Value = t End Sub
Il faut adapter la référence au tableau tarif Sheets("Feuil1").Range("A3:B6"), 2, 0) avec le nom de ta feuille où il se trouve et les bonnes références de cellules
Cdlmnt
mchotard
Messages postés
448
Date d'inscription
vendredi 6 mai 2011
Statut
Membre
Dernière intervention
15 février 2025
43
Modifié par pijaku le 10/12/2014 à 12:20
Modifié par pijaku le 10/12/2014 à 12:20
merci Via55
Il me semble avoir fait ce que tu m'as proposé, mais quand je rentre une lettre dans ma combobox4, j'ai un messager : "erreur de compilation, variable non définie".
Tu trouveras ci dessous ma formule adaptée à mon fichier. J'ai sans doute omis quelque chose, mais quoi?
faut-il adapté les 2,0
Désolé de te déranger à nouveau
CDLMNT
MC
Il me semble avoir fait ce que tu m'as proposé, mais quand je rentre une lettre dans ma combobox4, j'ai un messager : "erreur de compilation, variable non définie".
Tu trouveras ci dessous ma formule adaptée à mon fichier. J'ai sans doute omis quelque chose, mais quoi?
faut-il adapté les 2,0
Private Sub ComboBox4_Change() t = Application.WorksheetFunction.VLookup(ComboBox4.Value, Sheets("Constantes").Range("f33:g39"), 2, 0) 'A ADAPTER TextBox16.Value = t End Sub
Désolé de te déranger à nouveau
CDLMNT
MC
pijaku
Messages postés
12263
Date d'inscription
jeudi 15 mai 2008
Statut
Modérateur
Dernière intervention
4 janvier 2024
2 754
10 déc. 2014 à 12:20
10 déc. 2014 à 12:20
Bonjour,
Lorsque vous placez du code sur notre forum, merci d'utiliser les balises code à votre disposition.
Le mode d'emploi (au cas ou) est ICI.
Cordialement,
Pijaku
Lorsque vous placez du code sur notre forum, merci d'utiliser les balises code à votre disposition.
Le mode d'emploi (au cas ou) est ICI.
Cordialement,
Pijaku
via55
Messages postés
14512
Date d'inscription
mercredi 16 janvier 2013
Statut
Membre
Dernière intervention
18 janvier 2025
2 741
10 déc. 2014 à 14:07
10 déc. 2014 à 14:07
Bonjour mchotard
La formule est bonne, le 2 va chercher la valeur en colonne 2 en recherchant une correspondance exacte (le 0)
Si tu as ce message d'erreur c'est vraisemblablement (impossible d'en dire plus sans voir le fichier) que soit la variable t n'est pas définie alors que tu as mis Option explicit en tête de module soit qu'il ne reconnait pas le nom "Constantes"
Commence par mettre en tête de module la déclaration :
Dim t as single
Si ça ne marche toujours pas vérifie la bonne écriture du nom de ta feuille Constantes
Si malgré tout tu es toujours bloqué post un exemple allégé et anonymé de ton fichier sur cjoint.com et reviens indiquer le lien fourni
Cdlmnt
La formule est bonne, le 2 va chercher la valeur en colonne 2 en recherchant une correspondance exacte (le 0)
Si tu as ce message d'erreur c'est vraisemblablement (impossible d'en dire plus sans voir le fichier) que soit la variable t n'est pas définie alors que tu as mis Option explicit en tête de module soit qu'il ne reconnait pas le nom "Constantes"
Commence par mettre en tête de module la déclaration :
Dim t as single
Si ça ne marche toujours pas vérifie la bonne écriture du nom de ta feuille Constantes
Si malgré tout tu es toujours bloqué post un exemple allégé et anonymé de ton fichier sur cjoint.com et reviens indiquer le lien fourni
Cdlmnt
mchotard
Messages postés
448
Date d'inscription
vendredi 6 mai 2011
Statut
Membre
Dernière intervention
15 février 2025
43
>
via55
Messages postés
14512
Date d'inscription
mercredi 16 janvier 2013
Statut
Membre
Dernière intervention
18 janvier 2025
Modifié par pijaku le 11/12/2014 à 07:43
Modifié par pijaku le 11/12/2014 à 07:43
Super c'est bon avec Dim t as single, ça marche
Une dernière demande si tu peux
J'ai une textbox15 = nombre de billets
et une textbox 16 = tarif
dans une textbox 13 = montant dû, je voudrais qu'il me calcule le montant directement soit le nombre de billet * par le tarif
J'ai entré essayé 2 formules mais aucune ne marche, pourquoi?
Merci
Cdlmnt
MC
Une dernière demande si tu peux
J'ai une textbox15 = nombre de billets
et une textbox 16 = tarif
dans une textbox 13 = montant dû, je voudrais qu'il me calcule le montant directement soit le nombre de billet * par le tarif
J'ai entré essayé 2 formules mais aucune ne marche, pourquoi?
Private Sub TextBox1_Change() If Val(TextBox3.Value) <> 0 Then TextBox13 = Val(TextBox15) * Val(TextBox16) End Sub Private Sub TextBox1_Change() If Val(TextBox3.Value) <> 0 Then TextBox13.Value = Format(Val(TextBox15.Value) * Val(TextBox16.Value) End Sub
Merci
Cdlmnt
MC
via55
Messages postés
14512
Date d'inscription
mercredi 16 janvier 2013
Statut
Membre
Dernière intervention
18 janvier 2025
2 741
>
mchotard
Messages postés
448
Date d'inscription
vendredi 6 mai 2011
Statut
Membre
Dernière intervention
15 février 2025
Modifié par pijaku le 11/12/2014 à 07:43
Modifié par pijaku le 11/12/2014 à 07:43
Bonsoir
et simplement
ne marche pas ?
Sinon post un exemple de ton fichier sur cjoint.com comme demandé précédemment
Cdlmnt
et simplement
If TextBox3.Value <> 0 Then TextBox13 = TextBox15 * TextBox16
ne marche pas ?
Sinon post un exemple de ton fichier sur cjoint.com comme demandé précédemment
Cdlmnt
mchotard
Messages postés
448
Date d'inscription
vendredi 6 mai 2011
Statut
Membre
Dernière intervention
15 février 2025
43
>
via55
Messages postés
14512
Date d'inscription
mercredi 16 janvier 2013
Statut
Membre
Dernière intervention
18 janvier 2025
11 déc. 2014 à 14:58
11 déc. 2014 à 14:58
Merci via55
Comment je fais pour t'envoyer mon fichier car malgré de nombreuses tentatives je n'y arrive pas.
Dans la fenêtre de réponse je ne trouve pas
Cdlmnt
Comment je fais pour t'envoyer mon fichier car malgré de nombreuses tentatives je n'y arrive pas.
Dans la fenêtre de réponse je ne trouve pas
Cdlmnt