Bonjour,
Un code générique à adapter :
Sub MAJ_prix()
Dim Lig As Long, Produit As String, Prix As Single
Produit = InputBox("Quel est le produit à mettre à jour ?", "Produit", "Pomme")
Prix = InputBox("Quel est le nouveau prix des " & Produit & "s ?", "Prix")
With Sheets("NomFeuille") 'Précise la feuille de travail
For Lig = 2 To .Range("A" & Rows.Count).End(xlUp).Row ' Boucle sur les lignes complétées
If .Range("A" & Lig) = Produit Then .Range("B" & Lig) = Prix 'Remplacement des prix sur le produit indiqué
Next Lig
End With
MsgBox "Mise à jour terminée !"
End Sub
L'InputBox produit peut être remplacé par une liste déroulante dans une cellule pour le choix du produit, préalable à l'exécution de la macro, ou un UserForm contenant une liste déroulante.