marco d'incrementation automatique jusqu'a une valeur maximum

pierrejean

XLDnaute Barbatruc

• 20 Mai 2016

• #16

Re : marco d'incrementation automatique jusqu'a une valeur maximum

Re

Un essai
Mais je crois que quelqu'un fait erreur puisque les résultats des produits 1 et 4 ne sont pas ceux attendus

 

Pièces jointes

• calcul Rw automatique.xlsm

  27 KB · Affichages: 47
• calcul Rw automatique.xlsm

  27 KB · Affichages: 50

Vote positif 0 Vote négatif

S

Si...

XLDnaute Barbatruc

• 20 Mai 2016

• #17

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 !

 

Pièces jointes

• Solveur.xlsm

  89.8 KB · Affichages: 46
• Solveur.xlsm

  89.8 KB · Affichages: 44

Vote positif 0 Vote négatif

H

Hieu

XLDnaute Impliqué

• 20 Mai 2016

• #18

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 !

 

Vote positif 0 Vote négatif

S

serval

XLDnaute Occasionnel

• 22 Mai 2016

• #19

Re : marco d'incrementation automatique jusqu'a une valeur maximum

Bonjour,

actuellement, avec la macro du fichier, il faut cliquer dans sur le boutton de la feuille "Calcul Rw" pour lancer la macro.

serait-il possible de lancer la macro en mettant le boutton dans la feuil1 ou en cliquant dans la celulle A1 de la feuil1
Merci de votre aide

 

Pièces jointes

• calcul Rw automatique FINAL.xlsm

  28.4 KB · Affichages: 58
• calcul Rw automatique FINAL.xlsm

  28.4 KB · Affichages: 61

Dernière édition: 22 Mai 2016

Vote positif 0 Vote négatif

pierrejean

XLDnaute Barbatruc

• 22 Mai 2016

• #20

Re : marco d'incrementation automatique jusqu'a une valeur maximum

Re

Vois si cela convient

 

Pièces jointes

• calcul Rw automatique FINAL.xlsm

  26.9 KB · Affichages: 48
• calcul Rw automatique FINAL.xlsm

  26.9 KB · Affichages: 63

Vote positif 0 Vote négatif

S

serval

XLDnaute Occasionnel

• 25 Mai 2016

• #21

Re : marco d'incrementation automatique jusqu'a une valeur maximum

Merciiii, c'est parfait, ca fonctionne à merveille 🙂

FAb

 

Vote positif 0 Vote négatif