Incrementer une cellule en fonction d'une list

bonjour à tous et à toutes,

Désolé si le titre n'est pas très clair mais limité dans le nombre de caractère

voila j'ai trouvé sur le forum

https://forum.excel-pratique.com/viewtopic.php?t=12679

le début de code pour mon besoin

jusque là cela fonctionne. logique.

sauf que j'aurai besoin de mettre des conditions sur une stocké dans une autre feuille du même classeur ou sur la même feuille

si dans la liste je sélectionne petit alors cela incrémente F8

si dans la liste je sélectionne heron alors cela incrémentera F9

et ainsi de suite en fonction de la liste

ps: les couleur n'ont absolument aucune importance, juste pour la lisibilité ainsi que les petit commentaire

actuellement le code utilisé a été réduit a cela

Private Sub Worksheet_Change(ByVal Target As Excel.Range)
'https://www.excel-pratique.com/forum/viewtopic.php?t=12679
Dim num As Integer
Dim val_incr As Integer
Dim val_F8 As Integer

If Not Intersect(Target, Range("O1:O" & Range("D65536").End(xlUp).Row)) Is Nothing Then
val_incr = Target
val_F8 = Target.Offset(7, -9)
Target.Offset(7, -9) = val_F8 + val_incr 'nouvelle valeur de F8

End If
End Sub

en pièces jointes deux screen ( si suffisant en plus du code ci-dessus) et mon fichiers excel de base si nécessaire

sachant que par la suite la liste changera et sera plus longue et les feuilles risque d'être renommées

Merci a vous de votre coup de pouce,aide, aiguillage, etc..

et bonne journée

Bonjour

Lol ! tiens c'est moi qui avait proposé cela dans le fil... cela fait longtemps...

Si vous sélectionnez papa ou Pon, on incrémente quelle cellule

Crdlt

salut d'ailleurs aussi ancienne soit -elle, elle fonctionne très bien

en gros,

si dans la liste je sélectionne test list alors cela incrémente F8

si dans la liste je sélectionne heron alors cela incrémentera F9

si dans la liste je sélectionne petit alors cela incrémente F10

si dans la liste je sélectionne pata alors cela incrémentera F11

si dans la liste je sélectionne pon alors cela incrémente F12

sachant que cette liste sera une liste d'environ 22 noms

j'ai bien commencé a essayé de bricolé qq chose avec des if, meme tenté avec select case

aucune erreur a l'execution,

mais dans ce cas la cette macro/fonction ne fonctionne plus

Merci

Bonjour

Votre fichier en retour pour test

Cordialement

merci

presque cela

peux-tu me dire quoi modifier pour que cela incrémente de la valeur noter en O1

et non juste incrémenter de 1 a chaque modif

je suis également obligé de faire toute la liste avant de pouvoir revenir sur le premier,

alors que je peux être amener a modifier plusieurs fois le même sans avoir a toucher les autres

Private Sub Worksheet_Change(ByVal Target As Excel.Range)
'https://www.excel-pratique.com/forum/viewtopic.php?t=12679
Dim num As Integer, val_Incr As Integer
If ok = True Then Exit Sub
If Not Intersect(Target, Range("P1")) Is Nothing Then
    var_incr = Application.Match(Target, Sheets("List").Range("Listeitems"), 0)
    ok = True
    Cells(7 + var_incr, 6) = Cells(8 + var_incr, 6) + 1
    End If
var_incr = 0
ok = False

End Sub

deja merci de ton temps passé

Re

peux-tu me dire quoi modifier pour que cela incrémente de la valeur noter en O1 et non juste incrémenter de 1 a chaque modif

Il faut modifier cette ligne

Cells(7 + var_incr, 6) = Cells(7 + var_incr, 6) + Range("O1").Value

je suis également obligé de faire toute la liste avant de pouvoir revenir sur le premier, alors que je peux être amener a modifier plusieurs fois le même sans avoir a toucher les autres

Pas sur d'avoir bien compris là. Il faut juste choisir dans la liste déroulante. Le code placera l'incrément où il faut

Cordialement

Ebola a écrit :

je suis également obligé de faire toute la liste avant de pouvoir revenir sur le premier,

alors que je peux être amener a modifier plusieurs fois le même sans avoir a toucher les autres

salut

désolé pour la réponse un peu tardive

ça marche nickel

je n'ai pas pu mettre cette macro dans un autre classeur car elle ne veut pas fonctionner dans un autre classeur

mais ce n'est pas grave j'ai utiliser celui que tu as mis en exemple

quand a ma remarque je devais être fatigué

encore merci a toi