J'ai fait un USF avec Textbox 1 = Code Client et Texbox 2 = Infos sur client
entré en TB1 (info dans une feuille).
Pour faire apparaitre dans le TB 2 les infos, JB m'a conseillé
d'utiliserVLookUp, mais ca na pas marché, Je ne sait pas ou placer
l'instruction.
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
isabelle
bonjour Jean Pierre,
il faut mettre ces commandes (celle de JB ou la mienne) dans une macro événementielle, c'est à toi de déterminer sur quel événement cette commande doit s'exécuter. est ce que ce sera suite à un click d'un bouton ou autre ? j'attend les instructions pour la suite...
isabelle
Bonjour,
J'ai fait un USF avec Textbox 1 = Code Client et Texbox 2 = Infos sur client entré en TB1 (info dans une feuille). Pour faire apparaitre dans le TB 2 les infos, JB m'a conseillé d'utiliserVLookUp, mais ca na pas marché, Je ne sait pas ou placer l'instruction.
il faut mettre ces commandes (celle de JB ou la mienne) dans une macro événementielle,
c'est à toi de déterminer sur quel événement cette commande doit s'exécuter.
est ce que ce sera suite à un click d'un bouton ou autre ?
j'attend les instructions pour la suite...
isabelle
Bonjour,
J'ai fait un USF avec Textbox 1 = Code Client et Texbox 2 = Infos sur client
entré en TB1 (info dans une feuille).
Pour faire apparaitre dans le TB 2 les infos, JB m'a conseillé
d'utiliserVLookUp, mais ca na pas marché, Je ne sait pas ou placer
l'instruction.
il faut mettre ces commandes (celle de JB ou la mienne) dans une macro événementielle, c'est à toi de déterminer sur quel événement cette commande doit s'exécuter. est ce que ce sera suite à un click d'un bouton ou autre ? j'attend les instructions pour la suite...
isabelle
Bonjour,
J'ai fait un USF avec Textbox 1 = Code Client et Texbox 2 = Infos sur client entré en TB1 (info dans une feuille). Pour faire apparaitre dans le TB 2 les infos, JB m'a conseillé d'utiliserVLookUp, mais ca na pas marché, Je ne sait pas ou placer l'instruction.
Private Sub ChoixProduit_Change() Me.Prix = Application.VLookup(Me.ChoixProduit, [BdProduit], 2, False) End Sub
BDProduit est un champ nommé (Feuil2!A2:B100) (les champs nommés sont par défaut connus dans tout e classeur)
Cordialement JB
Bonjour,
J'ai fait un USF avec Textbox 1 = Code Client et Texbox 2 = Infos sur client entré en TB1 (info dans une feuille). Pour faire apparaitre dans le TB 2 les infos, JB m'a conseillé d'utiliserVLookUp, mais ca na pas marché, Je ne sait pas ou placer l'instruction.
Private Sub ChoixProduit_Change()
Me.Prix = Application.VLookup(Me.ChoixProduit, [BdProduit], 2, False)
End Sub
BDProduit est un champ nommé (Feuil2!A2:B100) (les champs nommés sont
par défaut connus dans tout e classeur)
Cordialement JB
Bonjour,
J'ai fait un USF avec Textbox 1 = Code Client et Texbox 2 = Infos sur client
entré en TB1 (info dans une feuille).
Pour faire apparaitre dans le TB 2 les infos, JB m'a conseillé
d'utiliserVLookUp, mais ca na pas marché, Je ne sait pas ou placer
l'instruction.
Private Sub ChoixProduit_Change() Me.Prix = Application.VLookup(Me.ChoixProduit, [BdProduit], 2, False) End Sub
BDProduit est un champ nommé (Feuil2!A2:B100) (les champs nommés sont par défaut connus dans tout e classeur)
Cordialement JB
Bonjour,
J'ai fait un USF avec Textbox 1 = Code Client et Texbox 2 = Infos sur client entré en TB1 (info dans une feuille). Pour faire apparaitre dans le TB 2 les infos, JB m'a conseillé d'utiliserVLookUp, mais ca na pas marché, Je ne sait pas ou placer l'instruction.
Bonsoir, et merci pour vos réponses JB et Isabelle
J'ai testé (les deux versions) avec : Private Sub TB_CodeArt1_Exit(ByVal Cancel As MSForms.ReturnBoolean) If TB_CodeArt1.Value <> "" Then TB_DésignArt1 = Application.VLookup(TB_CodeArt1, [ArtTest], 2, False) End If End Sub
Ca marche un peu, mais si on veut modifier le CodeArticle ca marche pu
De plus j'ai testé :
Private Sub TB_CodeArt1_Change() Dim T As String T = UCase(TB_CodeArt1) TB_CodeArt1 = T
If TB_CodeArt1.Value <> "" Then TB_DésignArt1 = Application.VLookup(TB_CodeArt1, [ArtTest], 2, False) End If End Sub
Et là ca marche pas non pu. Est ce à cause de l'instruction pour toujours écrire en MAJ ? JPB
Bonsoir, et merci pour vos réponses JB et Isabelle
J'ai testé (les deux versions) avec :
Private Sub TB_CodeArt1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
If TB_CodeArt1.Value <> "" Then
TB_DésignArt1 = Application.VLookup(TB_CodeArt1, [ArtTest], 2, False)
End If
End Sub
Ca marche un peu, mais si on veut modifier le CodeArticle ca marche pu
De plus j'ai testé :
Private Sub TB_CodeArt1_Change()
Dim T As String
T = UCase(TB_CodeArt1)
TB_CodeArt1 = T
If TB_CodeArt1.Value <> "" Then
TB_DésignArt1 = Application.VLookup(TB_CodeArt1, [ArtTest], 2, False)
End If
End Sub
Et là ca marche pas non pu. Est ce à cause de l'instruction pour toujours
écrire en MAJ ?
JPB
Bonsoir, et merci pour vos réponses JB et Isabelle
J'ai testé (les deux versions) avec : Private Sub TB_CodeArt1_Exit(ByVal Cancel As MSForms.ReturnBoolean) If TB_CodeArt1.Value <> "" Then TB_DésignArt1 = Application.VLookup(TB_CodeArt1, [ArtTest], 2, False) End If End Sub
Ca marche un peu, mais si on veut modifier le CodeArticle ca marche pu
De plus j'ai testé :
Private Sub TB_CodeArt1_Change() Dim T As String T = UCase(TB_CodeArt1) TB_CodeArt1 = T
If TB_CodeArt1.Value <> "" Then TB_DésignArt1 = Application.VLookup(TB_CodeArt1, [ArtTest], 2, False) End If End Sub
Et là ca marche pas non pu. Est ce à cause de l'instruction pour toujours écrire en MAJ ? JPB
isabelle
si tu peut, dépose ton fichier ici :
http://www.cjoint.com
on pourra regarder de plus près
isabelle
Bonsoir, et merci pour vos réponses JB et Isabelle
J'ai testé (les deux versions) avec : Private Sub TB_CodeArt1_Exit(ByVal Cancel As MSForms.ReturnBoolean) If TB_CodeArt1.Value <> "" Then TB_DésignArt1 = Application.VLookup(TB_CodeArt1, [ArtTest], 2, False) End If End Sub
Ca marche un peu, mais si on veut modifier le CodeArticle ca marche pu
De plus j'ai testé :
Private Sub TB_CodeArt1_Change() Dim T As String T = UCase(TB_CodeArt1) TB_CodeArt1 = T
If TB_CodeArt1.Value <> "" Then TB_DésignArt1 = Application.VLookup(TB_CodeArt1, [ArtTest], 2, False) End If End Sub
Et là ca marche pas non pu. Est ce à cause de l'instruction pour toujours écrire en MAJ ? JPB
si tu peut, dépose ton fichier ici :
http://www.cjoint.com
on pourra regarder de plus près
isabelle
Bonsoir, et merci pour vos réponses JB et Isabelle
J'ai testé (les deux versions) avec :
Private Sub TB_CodeArt1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
If TB_CodeArt1.Value <> "" Then
TB_DésignArt1 = Application.VLookup(TB_CodeArt1, [ArtTest], 2, False)
End If
End Sub
Ca marche un peu, mais si on veut modifier le CodeArticle ca marche pu
De plus j'ai testé :
Private Sub TB_CodeArt1_Change()
Dim T As String
T = UCase(TB_CodeArt1)
TB_CodeArt1 = T
If TB_CodeArt1.Value <> "" Then
TB_DésignArt1 = Application.VLookup(TB_CodeArt1, [ArtTest], 2, False)
End If
End Sub
Et là ca marche pas non pu. Est ce à cause de l'instruction pour toujours
écrire en MAJ ?
JPB
Bonsoir, et merci pour vos réponses JB et Isabelle
J'ai testé (les deux versions) avec : Private Sub TB_CodeArt1_Exit(ByVal Cancel As MSForms.ReturnBoolean) If TB_CodeArt1.Value <> "" Then TB_DésignArt1 = Application.VLookup(TB_CodeArt1, [ArtTest], 2, False) End If End Sub
Ca marche un peu, mais si on veut modifier le CodeArticle ca marche pu
De plus j'ai testé :
Private Sub TB_CodeArt1_Change() Dim T As String T = UCase(TB_CodeArt1) TB_CodeArt1 = T
If TB_CodeArt1.Value <> "" Then TB_DésignArt1 = Application.VLookup(TB_CodeArt1, [ArtTest], 2, False) End If End Sub
Et là ca marche pas non pu. Est ce à cause de l'instruction pour toujours écrire en MAJ ? JPB
Jean Pierre Belfort
C'est fait :
http://cjoint.com/?iwilAnXHBd
Il y a tous mes soucis ici Vlookup Calcul de durée de production
Merci pour votre aide
C'est fait :
http://cjoint.com/?iwilAnXHBd
Il y a tous mes soucis ici
Vlookup
Calcul de durée de production
