Module qui donne prix en fonction du nom de produit tapé

Signaler
Messages postés
25
Date d'inscription
dimanche 29 janvier 2017
Statut
Membre
Dernière intervention
25 novembre 2019
-
ThauTheme
Messages postés
4612
Date d'inscription
mardi 21 octobre 2014
Statut
Membre
Dernière intervention
11 décembre 2019
-


Bonjour,

J'aimerais créer un module où dès que je rentre un nom de catégorie (par exemple "A-34") et bien ça m'affiche le prix que moi je veux
Sachant que j'ai un tableau à 2 colonnes (colonne produit, colonne prix)
J'aimerais mettre des InputBox et des MsgBox et je réfléchissais à mettre une fonction Array

j'ai tenté ça comme début mais je ne sais pas...:

Sub Px()
Dim Prix As Double
Prix = Array("B2", "B3", "B4", "B5", "B6", "B7", "B8", "B9")
MsgBox ("le prix du produit est " & Prix)

End Sub

en gros j'ai une liste de produit qui va des cellules A2 à A9 et une liste de prix qui va des celulles B2 à B9 et j'aimerais un inputbox où dès que je rentre le nom du produit et bien que j'ai un MsgBox avec le prix


Qu'en pensez vous et comment auriez-vous procéder ?


Configuration: Windows / Chrome 78.0.3904.108
Messages postés
4612
Date d'inscription
mardi 21 octobre 2014
Statut
Membre
Dernière intervention
11 décembre 2019
118
Bonjour Coronae, bonjour le forum,

Qu'est-ce déclencherait le lancement de l'InputBox ?

[Édition]
En double-cliquant sur une cellule avec le code ci-dessous :
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) 'au double-clic
Dim NP As Variant 'déclare la variable NP (Nom de la Pièce)
Dim O As Worksheet 'déclare la variable O (Onglet)
Dim TV As Variant 'déclare la variable TV (Tableau des Valeurs)
Dim I As Integer 'déclare la variable I (Incrément)

Set O = Worksheets("Feuil1") 'définit l'onglet O (à adapter a ton cas)
TV = Range("A1").CurrentRegion 'définit le tableau des valeurs TV
NP = Application.InputBox("Tapez le code de la pièce.", "CODE", Type:=2) 'définit le nom de la pièce NP
If NP = False Or NP = "" Then Exit Sub 'si bouton [Annuler] ou non renseigné sort de la procédure
For I = 2 To UBound(TV, 1) 'boucle sur toutes les lignes I su tableau des valeurs (en partant de la seconde)
    If TV(I, 1) = NP Then 'condition : si NP correspond a la donnée ligne I colonne 1 du tableau des données TV
        MsgBox TV(I, 2) 'message affichant la donnée en ligne I colonne 2, le prix
        Exit Sub 'sort de la procédure
    End If 'fin de la condition
Next I 'prochaine ligne de la boucle
End Sub


À plus,
ThauTheme