Discussion :

[comanche]

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 !

[maxime115]

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Label1.Caption = Textbox1.Text

[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 !!

[SilkyRoad]

bonsoir

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[comanche]

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