1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36
|
Private Sub cmb_ref1_Change()
On Error Resume Next
Dim libelle As String
Dim reference As String
Dim prix As Single
Dim poids, prixcarton, prixdétail, prixcartonpromo, prixdétailpromo As Double
Sheets("source").Select
reference = Me.cmb_ref1.Text
Cells.Find(What:=reference, After:=ActiveCell, LookIn:=xlFormulas, LookAt _
:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext).Activate
'faire apparaitre le libéllé
libelle = ActiveCell.Offset(0, 3).Text
Me.txt_lib1.Text = libelle
'faire apparaitre le poids
poids = ActiveCell.Offset(0, 4).Value
Me.txt_poids1.Value = poids
'faire apparaitre le poids
poids = ActiveCell.Offset(0, 4).Value
Me.txt_poids1.Value = poids
'faire apparaitre le prix au carton
prixcarton = ActiveCell.Offset(0, 8).Value
txt_prix_carton1.Value = prixcarton
'faire apparaitre le prix au détail
prixdétail = ActiveCell.Offset(0, 9).Value
txt_prix_detail1.Value = prixdétail
'faire apparaitre le prix au carton promo
prixcartonpromo = ActiveCell.Offset(0, 13).Value
txt_prixpromo_carton1.Value = prixcartonpromo
'faire apparaitre le prix au détail promo
prixdétailpromo = ActiveCell.Offset(0, 14).Value
txt_prixpromo_detail1.Value = prixdétailpromo
End Sub |
Partager