j'ai fait un post pour calculer une valeur acoustique et apres avoir relu 2 ou 3 fois le sujet, je me suis rendu compte que tout cela pouvait ce resumer de la maniere suivante:
il faut augmenter la valeur d'une cellule (initialement à 0), par pas de 1, afin qu'une somme d'autre cellules ne depasse pas 32.
afin que ce soit plus clair, je vous joints un fichier.
Re : marco d'incrementation automatique jusqu'a une valeur maximum
salut
autre solution : avec le Gestionnaire de scénarios, on peut ne pas se contenter de valeurs entières si on veut plus de précision.
VB:
Private Sub Worksheet_Change(ByVal R As Range)
If Intersect(R, [C7:R8]) Is Nothing Then Exit Sub
Application.ScreenUpdating = 0
[D14].GoalSeek 32, [D12]
[D12] = Int([D12]) 'pour des valeurs entières
End Sub
Nota : on peut facilement changer le type d'appel !
Re : marco d'incrementation automatique jusqu'a une valeur maximum
Re,
Pour les conditions, tu peux mettre <=32 et >32 (ce qui englobera toutes les possibilités).
Et tu peux remplacer "Range("s8") - Range("s7")" par "WorksheetFunction.Sum(Range("c8:r8")) - WorksheetFunction.Sum(Range("c7:r7"))". Normalement, ca marche !