Vlookup dans Textbox

youky(BJ)

XLDnaute Barbatruc

• 8 Juillet 2012

• #2

Re : Vlookup dans Textbox

Bonsoir,
je te donne les indications que pour le 1er Magasin.
Je pense qu'il sera facile de comprendre et modifier la macro.
Mets la propriété du textbox8 . . . .Enabled=False (et de tous ceux dont tu ne veux pas être modifié)

Code:

Private Sub TextBox3_Change()
If TextBox3 = "" Then TextBox8 = "": Exit Sub
TextBox8 = Application.VLookup(CDbl(TextBox3), Feuil2.[A1:B90000], 2, False)
End Sub

Je pense qu'il n'ai pas utile d'avoir 4 pages pour les tournées cela limiterait les textbox mais cela reste à voir.
Bruno

 

Vote positif 0 Vote négatif

L

Louloute34

XLDnaute Nouveau

• 8 Juillet 2012

• #3

Re : Vlookup dans Textbox

Pour le nombre de pages, je suis en train de voir, mais je penses que tu as raison et je vais remettre des boutons d'option c'est plus beaucoup plus simple.

Ça fonctionne parfaitement et mon projet avance, un grand merci !

 

Vote positif 0 Vote négatif

L

Louloute34

XLDnaute Nouveau

• 8 Juillet 2012

• #4

Re : Vlookup dans Textbox

Par contre est-ce que tu c comment je pourrais bloqué la saisie quand le numéro ne correspond à rien et quand on essaye de saisir le magasin 2 alors que le magasin 1 n'est pas rempli ?

 

Pièces jointes

• Tournée.xlsm

  31.8 KB · Affichages: 50
• Tournée.xlsm

  31.8 KB · Affichages: 52
• Tournée.xlsm

  31.8 KB · Affichages: 46

Vote positif 0 Vote négatif

youky(BJ)

XLDnaute Barbatruc

• 9 Juillet 2012

• #5

Re : Vlookup dans Textbox

Mets tous les textbox.enabled=false sauf textbox3
on va utiliser le change du textbox8 pour changer l'enabled
Private Sub TextBox8_Change()
TextBox4.Enabled = IIf(TextBox8 = "", False, True)
End Sub
Faire pareil pour textbox9 - 10 - 11 (pas utile pour le 12)
Finalement j'ai fait dans ton fichier
Bruno

 

Pièces jointes

• Tournée.xlsm

  34.5 KB · Affichages: 57
• Tournée.xlsm

  34.5 KB · Affichages: 62
• Tournée.xlsm

  34.5 KB · Affichages: 59

Vote positif 0 Vote négatif

L

Louloute34

XLDnaute Nouveau

• 9 Juillet 2012

• #6

Re : Vlookup dans Textbox

Merci beaucoup, le seul truc c que lorsqu'on modifie une donnée déjà saisie, elle n’apparaît plus dans la case grisé au dessus. et si on tape un code qui n'existe pas, est-ce qu'on peut avoir un message d'erreur ?

 

Vote positif 0 Vote négatif

youky(BJ)

XLDnaute Barbatruc

• 9 Juillet 2012

• #7

Re : Vlookup dans Textbox

Voici une autre façon de procéder.
Ici code fait pour le 1er textbox

Code:

Private Sub TextBox3_Change()
TextBox2 = TextBox3.Value
If TextBox3 = "" Then TextBox8 = "": Exit Sub
On Error Resume Next
lig = Application.Match(CDbl(TextBox3), Feuil2.[A1:A10000], 0)
If Not IsNumeric(lig) Or Err > 0 Then
MsgBox "incorrect": TextBox3 = "": Exit Sub
Else
TextBox8 = Feuil2.Cells(lig, 2)
End If
End Sub

Bruno

 

Vote positif 0 Vote négatif

L

Louloute34

XLDnaute Nouveau

• 11 Juillet 2012

• #8

Re : Vlookup dans Textbox

Bonsoir !

J'ai travaillé mon userform avec votre aide, j'ai intégré un textbox.locked pour que l'on ne puisse pas revenir en arrière sans appuyer sur le bouton correction. Mais maintenant je suis bloqué je ne peux pas saisir plus qu'un seul chiffre dans mes cases.

Avez-vous une idée sur mon erreur ?

Cdlt

 

Pièces jointes

• Tournée (2).xlsm

  39.7 KB · Affichages: 59

Dernière édition: 11 Juillet 2012

Vote positif 0 Vote négatif

Y

Yaloo

XLDnaute Barbatruc

• 11 Juillet 2012

• #9

Re : Vlookup dans Textbox

Bonsoir Louloute,

Il est très bien ton fichier, mais tu l'a enregistré au format xlsx donc sans macro ni Userform.

A revoir

Martial

 

Vote positif 0 Vote négatif

L

Louloute34

XLDnaute Nouveau

• 11 Juillet 2012

• #10

Re : Vlookup dans Textbox

Ah ouii c vrai... c mieux en .xlsm

Merci

 

Vote positif 0 Vote négatif

Y

Yaloo

XLDnaute Barbatruc

• 11 Juillet 2012

• #11

Re : Vlookup dans Textbox

Re,

Peut être avec TextBox3_Exit , tu bloques ta saisie lorsque tu sors de ton TextBox.

VB:

Private Sub TextBox3_Change()
TextBox2 = TextBox3.Value
If TextBox3 = "" Then TextBox8 = "": Exit Sub
On Error Resume Next
lig = Application.Match(CDbl(TextBox3), Feuil2.[A1:A10000], 0)
If Not IsNumeric(lig) Or Err > 0 Then
MsgBox "Magasin inconnu": TextBox3 = "": Exit Sub
Else
TextBox8 = Feuil2.Cells(lig, 2)
End If
End Sub

Private Sub TextBox3_Exit(ByVal Cancel As MSForms.ReturnBoolean)
TextBox3.Locked = True
End Sub

A essayer

Martial

 

Vote positif 0 Vote négatif

L

Louloute34

XLDnaute Nouveau

• 12 Juillet 2012

• #12

Re : Vlookup dans Textbox

Ça fonctionne parfaitement !

Merci beaucoup !!!

 

Vote positif 0 Vote négatif