Multiplier une cellule automatiquement par60

Question

Bonjour,

Je souhaiterais trouver un fonction qui multiplie automatiquement ma cellule par 60 quand je rentre mon chiffre dans cette même cellule.

Est ce qu'il n'existerai pas une formule que l'on met en arrière plan et qui s'execute que lors de la saisie d'un nombre dans la cellule.

Merci d'avance

triwix · Answer

Peut-être une macro, sinon pourquoi ne pas utiliser 2 feuilles identiques, dans la première on entre les infos, la seconde affiche le résultat voulu

Raymond PENTIER · Answer

Il faut choisir :
Dans une même cellule, tu peux saisir soit une donnée, soit une formule, pas les deux.
Pourquoi vouloir faire des économies de cellules ? Ta feuille contient déjà des milliers de cellules ?
Et ta multiplication est une action isolée, ou une opération répétitive ?

gilou · Answer

bonjour
            une solution a la gilou qui repond a ta question ; sans plus  ( par precaution il faut  2 clics )
http://www.cijoint.fr/cjlink.php?file=cj200909/cijCQ1nKjj.xls 
    a+

gilou · Answer

re 
    il n'y a rien de compliqué   clic droit sur feuil1 > viualiser le code  si quequ'un peut t'aider à securiser la manip ;
comme tu l'a remarqué il faut faire gaffe  60> 3600>......  ; je suis nul en vba .......
 c'etait un debut de reponse

gilou · Answer

re 
    si tu prefere un seul clc  : dans declartions tu choisis selection change tu cop/col le """code""" et tu vires toute la partie before .... ou tu mets une '  devant chaque ligne a ne plus utiliser

michel_m · Answer

Bonjour

Private Sub Worksheet_Change(ByVal Target As Range)
Static flag As Boolean

If Target.Address = "$A$1" Then
    If flag = True Then
        flag = False
        Exit Sub
    End If
    flag = True
    Target = Target * 60
End If

End Sub

installation comme l'a expliqué Gilou

michel_m · Answer

re,
excusez moi (où avais-je la tête ?)

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$A$1" Then
    Application.EnableEvents = False
    Target = Target * 60
    Application.EnableEvents = True
End If
End Sub

Multiplier une cellule automatiquement par60

7 réponses

Discussions similaires

Newsletters