Bonjour Manuel, le forum,
d'après tes 2 copies d'écran, je pense que tu as une valeur non numérique en colonne K de la feuille "Beezup" ; et comme sur cette même feuille "Beezup", ça pourrait arriver aussi en colonnes BX et BW, j'ai fait plusieurs modifs dans le code VBA pour qu'il évite de planter dans ces différents cas ; mais bien sûr, il faudra quand même corriger ta valeur non numérique inadéquate.
normalement, avec les différentes modifs du code VBA, ton erreur d'incompatibilité de type ne devrait plus se produire !
et même en plus, j'ai carrément blindé en ajoutant un gestionnaire d'erreur, avec : On Error GoTo ErrData
note que maintenant, pour tes prix TTC de K ou BW ça plantera plus même si t'as des nombres avec le séparateur décimal point au lieu de la virgule ; et tiens-toi bien : idem pour la quantité BX ... des fois qu'tu voudrais saisir des quantités fractionnaires du style 2,475 (kg)
j'suis sûr qu'ça pourra t'aider, pour tes achats de viande de barbecue !
j'ai aussi inclus en Module1 la correction pour le poids :
If UCase$(.Value) = UCase$(Ref) Then 'si test vrai : correspondance trouvée
voici ton fichier blindé :
à te lire pour avoir ton avis.
dhany