Bonjour
 
j'ai besoin d'un petit coup de pouce :
 
sous Excel, dans l'onglet 2, j'ai fais une base de données du style :
 
Légume           Prix
Pomme            3
Poire               4
Haricot            5
 
Dans l'onglet 1, pour facturer plus rapidement, j'ai fait un menu déroulant, ainsi on clique sur la cellule, sélectionne le légume et il s'affiche sans avoir besoin de le taper.
 
Cependant, j'aimerais que dans la cellule à côté s'affiche automatiquement le prix correspondant
 
 
Je pense que c'est faisable, mais je ne vois pas bien comment faire    
 
un script qui tourne en permanence et regarde si la valeur dans la cellule légume est égale à un légume de la base de donnée, et remplit donc la case prix si c'est le cas ?
 
 
Merci d'avance pour votre aide  

dans l'évenement change de la feuille, tu fais un test sur la colonne de la modif (target.column) et tu traites selon le résultat du test.

d'accord, je vais chercher sur cette piste
 
merci bien

Pour l'instant, j'ai écrit une partie de programme qui marche, sauf sur un point :
 
excel détecte un changement n'importe où sur toute la feuille, donc si la programme vient à modifier la valeur d'une cellule ailleur, il s'arrête et reprend de zéro, et ainsi de suite jusqu'à l'infini ...
 
il me faudrait un moyen de restreindre la recherche de changement de valeur seulement sur les plages B17:B23
 
c'est possible ?
 

Dim Facture As Excel.Worksheet
Dim DB As Excel.Worksheet
 
 
 
Private Sub Worksheet_Change(ByVal Target As Range)
    
    Marqueur = 0
    Marqueur = 1
    
    Set Facture = ThisWorkbook.Worksheets(1)
    Set DB = ThisWorkbook.Worksheets(2)
    
    If Target.Count = 1 Then
        
        If Target.Value <> "" Then
        For Each Cellule In DB.Range("A1:A100" )
        
        
                If Target.Value = Cellule.Value Then
                    LigneFacture = Target.Row
                    LigneDB = Cellule.Row
                   Facture.Cells(LigneFacture, 5).Value = DB.Cells(LigneDB, 2).Value
                    Exit For
                End If
         Next
 
 
 
........

if target.row >16 and target.row < 24 and target.column = 2 then

D'accord, je suis vraiment un boulet ...
merci à toi