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