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

Jean_Valjean · 28 Juin 2023

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.

sylvanu · 28 Juin 2023

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 · 28 Juin 2023

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.

Jean_Valjean · 28 Juin 2023

Les 2 solutions fonctionnent parfaitement, merci beaucoup je me suis arraché les cheveux sur le sujet depuis ce matin...

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

Jean_Valjean

XLDnaute Nouveau

Pièces jointes

sylvanu

sylvanu

XLDnaute Barbatruc

Pièces jointes

Jean_Valjean

XLDnaute Nouveau

Discussions similaires