Multiplier une cellule automatiquement par60
lilou
-
michel_m Messages postés 18903 Date d'inscription Statut Contributeur Dernière intervention -
michel_m Messages postés 18903 Date d'inscription Statut Contributeur Dernière intervention -
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
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
Configuration: Windows XP Internet Explorer 7.0
7 réponses
-
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
-
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 ? -
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+ -
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 -
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question -
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 -
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 -
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
