MaximeRoth
XLDnaute Junior
Bonjour,
Je souhaiterai faire une interface VBA pour une inscription dans une base de donnée.
Pour faciliter et optimiser l'utilisation de cette interface, je souhaiterai faire un auto-remplissage de certaines textbox.
En effet certaines valeurs de textbox dépendraient de la valeur de la première textbox.
Pour cela j'ai utilisé la recherche vertical pour faire des croisements dans un tableau avec la valeur de la textbox et les valeurs associées.
Ce code marche très bien dans la cas ou la valeur de la textbox1 correspond à une des valeurs de la colonne B ou quand la textbox1 est vide. Le seul problème est lorsque ma valeur ne correspond à aucune valeur dans la colonne B mon programme plante car il ne peut pas lancer de recherche vu que la valeur ne correspond à aucune valeur.
J'ai donc pensé à faire une pré-étape visant à déterminer si la valeur de la textbox 1 correspond à une valeur de la colonne B. Mais je n'ai aucune idée de quelle fonction utiliser. Auriez vous une idée ?
Je suis débutant sous Excel donc ma méthode n'est peut être pas la plus adaptée, si vous avez une autre idée je suis preneur.
Merci d'avance
Max
Je souhaiterai faire une interface VBA pour une inscription dans une base de donnée.
Pour faciliter et optimiser l'utilisation de cette interface, je souhaiterai faire un auto-remplissage de certaines textbox.
En effet certaines valeurs de textbox dépendraient de la valeur de la première textbox.
Pour cela j'ai utilisé la recherche vertical pour faire des croisements dans un tableau avec la valeur de la textbox et les valeurs associées.
Code:
With Sheets("Numero_de_Serie")
If TextBox1.Value = "" Then
MsgBox "Entrez un code svp", , "Erreur"
ElseIf TextBox1.Value = WorksheetFunction.VLookup(TextBox1.Value, Sheets("Base_Article").Range("B3:B32"), 1, False) Then
TextBox2.Value = WorksheetFunction.VLookup(TextBox1.Value, Sheets("Base_Article").Range("B3: D32"), 2, False)
ElseIf TextBox1.Value <> WorksheetFunction.VLookup(TextBox1.Value, Sheets("Base_Article").Range("B3:B32"), 1, False) Then
MsgBox "Code non reconnu", , "Erreur"
End If
Ce code marche très bien dans la cas ou la valeur de la textbox1 correspond à une des valeurs de la colonne B ou quand la textbox1 est vide. Le seul problème est lorsque ma valeur ne correspond à aucune valeur dans la colonne B mon programme plante car il ne peut pas lancer de recherche vu que la valeur ne correspond à aucune valeur.
J'ai donc pensé à faire une pré-étape visant à déterminer si la valeur de la textbox 1 correspond à une valeur de la colonne B. Mais je n'ai aucune idée de quelle fonction utiliser. Auriez vous une idée ?
Je suis débutant sous Excel donc ma méthode n'est peut être pas la plus adaptée, si vous avez une autre idée je suis preneur.
Merci d'avance
Max