[VBA-E] relation label / textbox

Version imprimable

06/04/2007, 11h46
comanche

[VBA-E] relation label / textbox

bonjour a tous

quel code taper pour faire apparaitre dans un label une donnée dépendant d'une textbox?

je m'explique : admettons que sur la feuil1 sous exel la colonne A soit une référence et la B soit la dénomination. j'aimerai que en rentrant une référence (par exemple celle située dans la case A3) dans ma textbox1 s'affiche dans mon label1 la dénomination correspondante (soit la valeur de la case B3)

merci d'avance !
06/04/2007, 12h08
maxime115

Pour donner a un label le texte d'une textbox il faut tou simplement faire :

Code:

Label1.Caption = Textbox1.Text
06/04/2007, 13h11
comanche

ah mince j'ai mal du poser ma question : je ne veux pas que le label reçoive le texte du textbox mais une valeur qui corresponde a la donnée entrée dans le textbox : il faudrait que le programme recherche le code barre entré dans le text box (tous les codes barre sont référencés par exemple dans la colonne A) puis associe a ce code la ligne sur laquelle il se situe (par exemple ligne 6) pour donner au label la valeur d'une autre colonne (par exemple une dénomination rentrée dans la colonne B) située sur la meme ligne.

en résumé, si je rentre dans mon textbox1 le code barre entré en A6, il faudrait que le label reçoive la valeur de B6 (et non le code barre entré dans textbox1!!)

merci !!

bonsoir

J'espère que cet exemple pourra t'aider:

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Private Sub CommandButton1_Click()
    Dim i As Integer
 
    On Error Resume Next
    'Recherche le contenu du textbox dans la plage A1:A100
    i = Application.Match(TextBox1, Range("A1:A100"), 0)
 
    'Si la donnée, est trouvée on récupère la données de la colonne B
    If i > 1 Then
        Label1 = Cells(i, 2)
        Else
        Label1 = "non trouvé"
    End If
End Sub

michel

06/04/2007, 23h35
comanche

merci beaucoup SilkyRoad !!!
c'est exactement ce que je cherchais je suis comblé !
merci beaucoup !