Macro calcul excel

Bonjour chtileensois,

Tu as dû certainement écrire ton texte rapidement ou tu as un problème avec ton clavier.
Il est difficile de comprendre ce que tu souhaites quand tu écris "une données manuelles". Doit-on penser à une donnée manuelle ou à des données manuelles? De quel résultat, quelle case?
Essaye de te mettre à la place de tes lecteurs. On veut bien t'aider, mais prends un peu plus de temps pour bien poser ton problème ou envoie un fichier à http://www.cijoint.fr

Cordialement mon sir

Bonjour,
Avec autant de renseignements c'est un "euphémisme" de dire "c'est façile"
.. Blaque à part, donne un peu plus de détails sur ce que tu veux faire.
A+

Il y a TOUJOURS une solution mathématqie, à condition de comprendre l'exposer ??, ce qui, dans ce cas, n'est pas évident.
Mettre un exemple de ton classeur sur CiJoint.fr, avec quelque données et surtout un exemple explicite des résultats que tu souhaite.
A+

Bonsoir

Je crois comprendre que :

tu incrémentes la cellule E31 de 1 à partir de 10 jusqu'à 100.
Dans une autre cellule : tu as un calcul qui se fait, il faut que dans D36 la valeur soit inférieure à 3600.
Est ce que c'est à ce moment que tu considères que ton calcul est juste?

Question: Une fois arrivé à 100 la valeur doit-elle revenir à 10?

Si c'est le cas , tu peux insérer cette macro dans ta feuille.

Pour cela, tu fais Alt+ F11. Dans le logicel VBE qui s'ouvre tu as normalement à gauche une fenêtre projet.
Tu dois voir tes feuilles de ton classeur. Tu doubles clic sur la feuille dans laquelle tu veux travailler. A droite s'ouvre ou est déjà ouverte une grande fenêtre normalement vide - s'il n'ya pas de macros - et tu colles la macro suivante:
------------------------------------------------------------------------------
Public Chgt As Boolean

Private Sub Worksheet_Change(ByVal Target As Range)
Dim a As String
a = Target.Address
If Range("E31") = "" Then Range("E31") = 10
If a <> "$D$36" Or Chgt = True Then Chgt = False: GoTo fin

If Range("E31") > 100 Or Range("E31") < 10 Then Range("E31") = 10
If Range("D36") < 3600 Then
Chgt = True
Range("E31") = Range("E31") + 1

End If
fin:
End Sub
-------------------------------------------------------------------------------
Elle met à 10 E31 si la cellule est vide ou si elle dépasse 100.
Elle incrémente automatiquement E31 quand la cellule D36 est inférieure à 3600.

Cordialement

Patgnr

je viens de tester

la valeur e31 reste à 10 et ne s'increment pas même si D36 est >3600.

je n'est pas reussi à acceder à http://www.cijoint.fr pour vous envoyer un exemple de mon prolème

Bonsoir

Dès que tu peux mettre le fichier, je regarderai.
Est-ce que la sécutrité macro est dévalidée?

bonjour

j'ai reussi à mettre le fichier
voici le lien
http://www.cijoint.fr/cjlink.php?file=cj201012/cij4VMVvWK.xls

je penses que la securité macro est desactivé mais je ne suis pas expert.

merci

Bonjour

J'ai refait la macro qui est maintenant plus adaptée à ton besoin. Cependant le site cijoint.fr me renvoie une page d'erreur. Dès qu'il est en fonctionnement je t'envoie le fichier.

Patgnr

bonsoir,

merci pour le fichier et la rapidité.
j'ai vu la macro, mais cela ne semble pas fonctionner pourtant les macro sont
activer.
si tu peux m'aidr pour queje puisse tester

encore merci

ps: j'ai eloigné le petit monstre de l'ordinateur (blanche neige c'est miraculeux pour ça)

Bonsoir,

Il y a une autre possibilité avec l'outil 'valeur cible' (du menu 'données') :

Cellule à définir : $D$36
Valeur à atteindre : 2600
Cellule à modifier : $E$31

Validation par ok donne 18.975 à remplacer par l'entier supérieur 19 (=> D36=2597)

eric