Bonjour à tous,
Il me semble bien pourtant que nous avons déjà abordé le problème.
Combobox.value renvoie, me semble-t-il, une chaîne de caractères. Cette chaîne ne sera pas égale à une valeur numérique contenue dans une cellule même si ces deux valeurs sont représentées par le même signe.
Pour résoudre le problème, il faudrait je crois que tu testes si ta cellule est numérique. ça pourrait donner à peu près ceci (à vérifier car je ne l'ai pas testé) :
For Each Cell In Plage
if IsNumeric(Cell.Value) then comp$ = format(Cell.Value) else comp$ = Cell.Value
If comp$ = 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
Dis moi si avec cette modification ta comparaison fonctionne.
Bonne fin d'après-midi
@+