XL 2013 Liste déroulante et sélection de cellule

Jean_Valjean

XLDnaute Nouveau
Bonjour la communauté,

Je bute sur un problème pas bien compliqué : j'ai un tableau avec des fromages (colonne D) et des quantités (colonne E), j'ai besoin de sélectionner un des fromages à l'aide d'une liste déroulante et que le fromage sélectionné soit annoté d'un "1" dans la colonne C du tableau.

J'arrive à identifier la cellule dans laquelle se trouve le fromage choisi mais je n'arrive pas à sélectionner sa cellule ni me déplacer d'une cellule vers la gauche pour remplir la cellule correspondante de la colonne C. Pour résumer lorsque je sélectionne camembert dans la liste déroulante je chercher écrire 1 en C4.

Merci de votre aide.
 

Pièces jointes

  • Selection_fromages.xlsm
    20.3 KB · Affichages: 2
Solution
Bonjour,
Je n'ai pas bien compris le but, alors :
1- On veut à chaque choix incrémenter la colonne C :
VB:
If Cell.Value = fromage Then
    Cell.Offset(0, -1) = Cell.Offset(0, -1) + 1
End If
2- On veut juste mettre un 1 dans la bonne ligne :
Code:
If Cell.Value = fromage Then
    [C4:C100].ClearContents
    Cell.Offset(0, -1) = 1
End If
En PJ la solution 1 est implémentée, la 2 est en commentaire. A ajuster suivant besoin.

sylvanu

XLDnaute Barbatruc
Supporter XLD
Bonjour,
Je n'ai pas bien compris le but, alors :
1- On veut à chaque choix incrémenter la colonne C :
VB:
If Cell.Value = fromage Then
    Cell.Offset(0, -1) = Cell.Offset(0, -1) + 1
End If
2- On veut juste mettre un 1 dans la bonne ligne :
Code:
If Cell.Value = fromage Then
    [C4:C100].ClearContents
    Cell.Offset(0, -1) = 1
End If
En PJ la solution 1 est implémentée, la 2 est en commentaire. A ajuster suivant besoin.
 

Pièces jointes

  • Selection_fromages.xlsm
    19.1 KB · Affichages: 9

Discussions similaires

Réponses
12
Affichages
429

Statistiques des forums

Discussions
313 309
Messages
2 097 033
Membres
106 812
dernier inscrit
Excellou74