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 -
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
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 excel - Guide
- Pavé numérique bloqué - Guide
- Déplacer colonne excel - Guide