Z
zon
Guest
Bonjour à toutes et à tous,
J'ai eu beau chercher dans les fils de discussion, je n'ai pas trouvé réponse à mon problème.
Voici le code de combobox :
Private Sub ComboBox2_Change()
Dim Plage As Range
Dim Cell As Range
Set Plage = Sheets("TARIFblueriver").Range("B2:B" & DerLigne)
For Each Cell In Plage
If Cell.Value = ComboBox2.Value Then
'prix en euro TTC
TextBox1 = Cell.Offset(0, 3).Value
'Prix d'achat HT
TextBox2 = Cell.Offset(0, 4).Value
'liste des consommables
ComboBox1 = Cell.Offset(0, 1).Value
'Quantité mis par défaut à 1
TextBox3 = 1
TextBox4 = Cell.Offset(0, 2)
End If
Next Cell
End Sub
DerLigne étant initialiser avec l'USF.
Mes textbox se mettent bien à jour quand la cellule contient un chaîne commençant par un caractère de l'alphabet mais pas avec un chiffre.
Merci aux âmes charitables qui pourront m'aider. (Dieu sait qu'il y en a sur ce forum)
A+++
J'ai eu beau chercher dans les fils de discussion, je n'ai pas trouvé réponse à mon problème.
Voici le code de combobox :
Private Sub ComboBox2_Change()
Dim Plage As Range
Dim Cell As Range
Set Plage = Sheets("TARIFblueriver").Range("B2:B" & DerLigne)
For Each Cell In Plage
If Cell.Value = ComboBox2.Value Then
'prix en euro TTC
TextBox1 = Cell.Offset(0, 3).Value
'Prix d'achat HT
TextBox2 = Cell.Offset(0, 4).Value
'liste des consommables
ComboBox1 = Cell.Offset(0, 1).Value
'Quantité mis par défaut à 1
TextBox3 = 1
TextBox4 = Cell.Offset(0, 2)
End If
Next Cell
End Sub
DerLigne étant initialiser avec l'USF.
Mes textbox se mettent bien à jour quand la cellule contient un chaîne commençant par un caractère de l'alphabet mais pas avec un chiffre.
Merci aux âmes charitables qui pourront m'aider. (Dieu sait qu'il y en a sur ce forum)
A+++