Bonsoir, plm222
bonsoir, claude, jmd et dré
Pour commencer, il est inutile de s'énerver, ni de faire des diatribes...
Si claude te l'a dit amicalement, ce n'est pas la peine de te poser en victime.....
Peut-être oublies-tu de remercier les personnes qui t'ont aidé (et pour ceci, pas besoin d'être en retraite pour le faire...)
Regarde le fichier joint, dès que tu modifies une cellule de la zone E2:AB27, la valeur idoine, en fonction de la couleur, est ajoutée.
Maintenant, avec cette base, si tu veux faire une mise à jour globale, il est toujours possible de faire une boucle sur chaque cellule de la zone.
Le code :
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("E2:AB58")) Is Nothing And Target.Count = 1 Then
Application.EnableEvents = False
Select Case Target.Offset(31).Interior.ColorIndex
Case 33
Target = IIf(Target <> "", Target + 82.86, "")
Case 35
Target = IIf(Target <> "", Target + 63.6, "")
Case 39
Target = IIf(Target <> "", Target + 56.7, "")
End Select
End If
Application.EnableEvents = True
End Sub
le fichier :
https://www.excel-pratique.com/~files/doc/jDMKzessaiv1.zip