Multiplication automatique dans une cellule

[Schenker]

Bonjour,

J'aimerais savoir s'il est possible de prédéfinir un calcul dans la cellule dans laquelle on saisit... C'est à dire, s'il est possible de définir à l'avance une opération et que dès que l'on saisit un chiffre dans la cellule, ce chiffre s'incorpore dans l'opération prédéfinie et Excel affiche le résultat final. Bon, je donne un exemple :

Je suis dans la cellule A1. Je saisis "4" et je souhaite que ce "4" soit multiplié automatiquement par "10" par exemple et que le résultat "40" s'affiche dans la même cellule A1. Et ce pour n'importe quel nombre saisi, "5" qui donne "50", etc.

Si ce n'est pas clair, n'hésitez pas à me poser plus de questions...

Merci d'avance.

 

[jeanpierre]

Re : Multiplication automatique dans une cellule

Bonsoir Schenker,

Par formule et dans la même cellule, ce n'est pas possible, si j'ai bien compris (soit une saisie, soit une formule).

Par macro, c'est possible, mais ce sera écrit en dur, donc pas très exploitable à la longue.

Encore ejecté par Tab. pfiouuu

Tu précises...

 

[Schenker]

Re : Multiplication automatique dans une cellule

Bon... si c'est trop compliqué, ce n'est pas grave, je trouverai un autre moyen plus simple.

Merci beaucoup !!

 

[jeanpierre]

Re : Multiplication automatique dans une cellule

Re,

Il ne faut pas baisser les bras.

Bien expliquer le but, le sens, etc.... voire mettre un fichier joint avec ce que l'on a et ce que l'on veut à côté...

 

[kjin]

Re : Multiplication automatique dans une cellule

Bonsoir,
Sub multiplie()
[A1].Value = [A1].Value * 10
end Sub

devrait faire l'affaire
A+
kjin

PS: salut JP ; c'est quoi ce pb de tab que je croise régulièrement dans tes messages ? elle est coincée ou quoi

 

[jeanpierre]

Re : Multiplication automatique dans une cellule

Re, Bonsoir kjin,

Simplement lorsque que je veux taper a et que je touche Tab (j'ai pourtant des doigts très fins) le message est envoyé alors que je n'ai pas encore fini mon explication....

Voilà, fais l'expérience, tu verras

Bonne soirée à tous.

Jean-Pierre

 

[JCGL]

Re : Multiplication automatique dans une cellule

Bonjour à tous,

Un essai avec choix de l'opérateur en D1 et du Nombre en E1

A+

 

[Cousinhub]

Re : Multiplication automatique dans une cellule

Bonsoir,

JC

Pour info, ton code, on pourrait l'écrire comme ceci :

For Each cel In [A1:A20]
    cel.Value = Evaluate(cel.Value & [D1] & [E1])
Next cel

Mais juste, pour info.....

 

[JCGL]

Re : Multiplication automatique dans une cellule

Bonjour à tous,
Salut BH² ,

Entièrement d'accord avec toi mon ami ...

A++
A+ tous

 

[Schenker]

Re : Multiplication automatique dans une cellule

Bonsoir,

Avec : Sub multiplie()
[A1].Value = [A1].Value * 10
end Sub, cela fonctionne très bien !

Merci beaucoup pour vos conseils !