Valeur numérique Excel et TextBox
maalxe
Messages postés
6
Statut
Membre
-
f894009 Messages postés 17414 Date d'inscription Statut Membre Dernière intervention -
f894009 Messages postés 17414 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
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:
- Valeur numérique Excel et TextBox
- Word et excel gratuit - Guide
- Liste déroulante excel - Guide
- Si et ou excel - Guide
- Déplacer colonne excel - Guide
- Pavé numérique bloqué - Guide