Valeur numérique Excel et TextBox

Fermé
maalxe Messages postés 6 Date d'inscription mercredi 16 janvier 2013 Statut Membre Dernière intervention 20 janvier 2014 - 16 janv. 2013 à 01:46
f894009 Messages postés 17190 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 16 mai 2024 - 16 janv. 2013 à 08:06
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 17190 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 16 mai 2024 1 706
16 janv. 2013 à 08:06
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