dNouveau venudidex01Inscrit le :17/01/2014Dernière activité :19/05/2014 à 17:30Version d'Excel :2010Messages2Votes0Fichiers0Téléchargements0SujetsMessagesStatistiquesVotes reçus Messages postés par didex01DateAuteur du sujetSujetExtrait du message17/01/2014 à 12:33didex01Erreur dans code VBAMerci grandement Jean Eric, Cela marche après cette petite modification : Public Sub obtenirPrix() Dim Pièce Dim Prix As Variant Pièce = InputBox("No de pièce SVP", "Recherche prix") If Pièce = "" Then Exit Sub On Error Resume Next Prix = Application.VLookup(Pièce, Range("a:b"), 2, False) If IsError...17/01/2014 à 10:02didex01Erreur dans code VBAJe débute en programmation et j'ai fait un exercice tiré d'un bouquin. Et si je vous écrit c'est que cela ne fonctionne pas Voilà ce que j'ai tapé : Sub obtenirPrix() Dim Pièce As Variant Dim Prix As Double Pièce = InputBox("No de pièce SVP") Prix = WorksheetFunction.VLookup(Pièce, Range("ListePrix"...Forums