Valeur numérique Excel et TextBox

maalxe Messages postés 6 Date d'inscription   Statut Membre Dernière intervention   -  
f894009 Messages postés 17277 Date d'inscription   Statut Membre Dernière intervention   -
Bonjour. je tien a dire que je suis débutent.

je n'arrive pas a récupérer des donnée de excel avec une combobox si elle contiens seulement une valeur numérique. si elle contient une valeur alpha-numérique elle fonctionne ou simplement une valeur alpha fonctionne aussi. donc, se que j'aimerais faire ses avec ma combobox entré la valeur d'un code a barre de 14 chiffre et aller chercher les donnée de la ligne pour les affichée dans des label

voici le code qui fonctionne mes pas avec les valeur numérique

Private Sub ComboBox1_Change()


For Each c In Range([B86], [B200].End(xlUp))

If c.Offset = Me.ComboBox1 Then

UserForm1.lb_client.Caption = c.Offset(0, 1).Value
UserForm1.lb_adresse.Caption = c.Offset(0, 2).Value
UserForm1.lb_province.Caption = c.Offset(0, 3).Value
UserForm1.lb_ville.Caption = c.Offset(0, 4).Value
UserForm1.lb_code_postale.Caption = c.Offset(0, 5).Value
UserForm1.lb_telephone.Caption = c.Offset(0, 6).Value
UserForm1.lb_palette.Caption = c.Offset(0, 7).Value
UserForm1.lb_transport.Caption = c.Offset(0, 8).Value
UserForm1.lb_autre_instruction.Caption = c.Offset(0, 9).Value


End If
Next c


End Sub
A voir également:

1 réponse

f894009 Messages postés 17277 Date d'inscription   Statut Membre Dernière intervention   1 713
 
Bonjour,

Meme si vous entrez des chiffres dans une combobox ou textbox, ce sont des caracteres alpha-numerique, vous n'obtenez pas un numerique. Vous devez passer par une conversion : c.Offset = CDbl(Me.ComboBox1)

Bonne suite
0