Bonjour, Mettre dans le code de la feuille Private Sub Worksheet_SelectionChange(ByVal Target As Range) ActiveCell = ActiveCell * 3 End Sub Cordialement Poc "Apitos" a écrit dans le message de news:
Bonjour,
Comment faire pour voir dans une cellule ma saisie multipliée par 3.
Par exemple : Si je saisi 10, j'aimerais voir en A1 le résultat : 30.
Mais sans passer par une cellule intermédiaire.
Merci.
Bonjour,
Mettre dans le code de la feuille
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
ActiveCell = ActiveCell * 3
End Sub
Cordialement
Poc
"Apitos" <apitos@gmail.com> a écrit dans le message de news:
f63819fc-d002-46e7-af80-ecb7a09e241f@x69g2000hsx.googlegroups.com...
Bonjour,
Comment faire pour voir dans une cellule ma saisie multipliée par 3.
Par exemple : Si je saisi 10, j'aimerais voir en A1 le résultat : 30.
Bonjour, Mettre dans le code de la feuille Private Sub Worksheet_SelectionChange(ByVal Target As Range) ActiveCell = ActiveCell * 3 End Sub Cordialement Poc "Apitos" a écrit dans le message de news:
Bonjour,
Comment faire pour voir dans une cellule ma saisie multipliée par 3.
Par exemple : Si je saisi 10, j'aimerais voir en A1 le résultat : 30.
Mais sans passer par une cellule intermédiaire.
Merci.
FFO
Salut Apitos
Je profite de ce post pour satisfaire ma curiosité !!!! Je t'ai fais une ultime proposition dans ton Post "Lister dans un commentaire dans Excel" du 19/12/2007 qui est resté sans réponse peux tu m'en dire plus !!!!!
Merci d'avance
Pour cette nouvelle demande je te propose de mettre dans le VBA de la feuille ce code :
Private Sub Worksheet_Change(ByVal Target As Range) If Target.Address <> ActiveCell.Address Then Target.Activate Application.OnTime Now + TimeValue("00:00:01"), "Suite" End If End Sub
et de créer une macro que tu nomeras "Suite" dans laquelle tu mets ce code :
ActiveCell = ActiveCell * 3
Celà devrait faire Dis moi !!!!
Bonjour,
Comment faire pour voir dans une cellule ma saisie multipliée par 3.
Par exemple : Si je saisi 10, j'aimerais voir en A1 le résultat : 30.
Mais sans passer par une cellule intermédiaire.
Merci.
Salut Apitos
Je profite de ce post pour satisfaire ma curiosité !!!!
Je t'ai fais une ultime proposition dans ton Post "Lister dans un
commentaire dans Excel" du 19/12/2007 qui est resté sans réponse
peux tu m'en dire plus !!!!!
Merci d'avance
Pour cette nouvelle demande je te propose de mettre dans le VBA de la
feuille ce code :
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address <> ActiveCell.Address Then
Target.Activate
Application.OnTime Now + TimeValue("00:00:01"), "Suite"
End If
End Sub
et de créer une macro que tu nomeras "Suite" dans laquelle tu mets ce code :
ActiveCell = ActiveCell * 3
Celà devrait faire
Dis moi !!!!
Bonjour,
Comment faire pour voir dans une cellule ma saisie multipliée par 3.
Par exemple : Si je saisi 10, j'aimerais voir en A1 le résultat : 30.
Je profite de ce post pour satisfaire ma curiosité !!!! Je t'ai fais une ultime proposition dans ton Post "Lister dans un commentaire dans Excel" du 19/12/2007 qui est resté sans réponse peux tu m'en dire plus !!!!!
Merci d'avance
Pour cette nouvelle demande je te propose de mettre dans le VBA de la feuille ce code :
Private Sub Worksheet_Change(ByVal Target As Range) If Target.Address <> ActiveCell.Address Then Target.Activate Application.OnTime Now + TimeValue("00:00:01"), "Suite" End If End Sub
et de créer une macro que tu nomeras "Suite" dans laquelle tu mets ce code :
ActiveCell = ActiveCell * 3
Celà devrait faire Dis moi !!!!
Bonjour,
Comment faire pour voir dans une cellule ma saisie multipliée par 3.
Par exemple : Si je saisi 10, j'aimerais voir en A1 le résultat : 30.
Mais sans passer par une cellule intermédiaire.
Merci.
FFO
Rebonjour à toi
Je viens d'essayer et celà fonctionne encore mieux en remplaçant la ligne :
Application.OnTime Now + TimeValue("00:00:01"), "Suite"
par
Run("Suite")
Dis moi !!!!
Bonjour,
Comment faire pour voir dans une cellule ma saisie multipliée par 3.
Par exemple : Si je saisi 10, j'aimerais voir en A1 le résultat : 30.
Mais sans passer par une cellule intermédiaire.
Merci.
Rebonjour à toi
Je viens d'essayer et celà fonctionne encore mieux en remplaçant la ligne :
Application.OnTime Now + TimeValue("00:00:01"), "Suite"
par
Run("Suite")
Dis moi !!!!
Bonjour,
Comment faire pour voir dans une cellule ma saisie multipliée par 3.
Par exemple : Si je saisi 10, j'aimerais voir en A1 le résultat : 30.
Je viens d'essayer et celà fonctionne encore mieux en remplaçant la ligne :
Application.OnTime Now + TimeValue("00:00:01"), "Suite"
par
Run("Suite")
Dis moi !!!!
Bonjour,
Comment faire pour voir dans une cellule ma saisie multipliée par 3.
Par exemple : Si je saisi 10, j'aimerais voir en A1 le résultat : 30.
Mais sans passer par une cellule intermédiaire.
Merci.
Corto
<!DOCTYPE html PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN"> <html> <head> <meta content="text/html;charset=ISO-8859-1" http-equiv="Content-Type"> </head> <body bgcolor="#ffffff" text="#000000"> Bonjour Apitos,<br> A mettre dans le code source de la feuille<br> <br> Private Sub Worksheet_Change(ByVal Target As Range)<br> For Each XTG In Target.Cells<br> If <i>XTG.Column = 2</i> And XTG.ID <> "-" Then<br> XTG.ID = "-"<br> XTG.Value = 3 * XTG<br> If XTG = 0 Then XTG.ClearContents<br> End If<br> XTG.ID = ""<br> Next<br> End Sub<br> Il faut bien sûr adapter la condition XTG.column = 2 selon la zone dans laquelle tu veux multiplier les valeurs saisies par 3.<br> J'utilise la propriété ID pour identifier les cellules modifiées et éviter un appel récursif de la Sub.<br> <br> Corto<br> <br> Apitos a écrit : <blockquote cite="mid:" type="cite"> <pre wrap="">Bonjour,
Comment faire pour voir dans une cellule ma saisie multipliée par 3.
Par exemple : Si je saisi 10, j'aimerais voir en A1 le résultat : 30.
Mais sans passer par une cellule intermédiaire.
Merci. </pre> </blockquote> </body> </html>
<!DOCTYPE html PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN">
<html>
<head>
<meta content="text/html;charset=ISO-8859-1" http-equiv="Content-Type">
</head>
<body bgcolor="#ffffff" text="#000000">
Bonjour Apitos,<br>
A mettre dans le code source de la feuille<br>
<br>
Private Sub Worksheet_Change(ByVal Target As Range)<br>
For Each XTG In Target.Cells<br>
If <i>XTG.Column = 2</i> And XTG.ID <> "-" Then<br>
XTG.ID = "-"<br>
XTG.Value = 3 * XTG<br>
If XTG = 0 Then XTG.ClearContents<br>
End If<br>
XTG.ID = ""<br>
Next<br>
End Sub<br>
Il faut bien sûr adapter la condition XTG.column = 2 selon la zone dans
laquelle tu veux multiplier les valeurs saisies par 3.<br>
J'utilise la propriété ID pour identifier les cellules modifiées et
éviter un appel récursif de la Sub.<br>
<br>
Corto<br>
<br>
Apitos a écrit :
<blockquote
cite="mid:f63819fc-d002-46e7-af80-ecb7a09e241f@x69g2000hsx.googlegroups.com"
type="cite">
<pre wrap="">Bonjour,
Comment faire pour voir dans une cellule ma saisie multipliée par 3.
Par exemple : Si je saisi 10, j'aimerais voir en A1 le résultat : 30.
Mais sans passer par une cellule intermédiaire.
<!DOCTYPE html PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN"> <html> <head> <meta content="text/html;charset=ISO-8859-1" http-equiv="Content-Type"> </head> <body bgcolor="#ffffff" text="#000000"> Bonjour Apitos,<br> A mettre dans le code source de la feuille<br> <br> Private Sub Worksheet_Change(ByVal Target As Range)<br> For Each XTG In Target.Cells<br> If <i>XTG.Column = 2</i> And XTG.ID <> "-" Then<br> XTG.ID = "-"<br> XTG.Value = 3 * XTG<br> If XTG = 0 Then XTG.ClearContents<br> End If<br> XTG.ID = ""<br> Next<br> End Sub<br> Il faut bien sûr adapter la condition XTG.column = 2 selon la zone dans laquelle tu veux multiplier les valeurs saisies par 3.<br> J'utilise la propriété ID pour identifier les cellules modifiées et éviter un appel récursif de la Sub.<br> <br> Corto<br> <br> Apitos a écrit : <blockquote cite="mid:" type="cite"> <pre wrap="">Bonjour,
Comment faire pour voir dans une cellule ma saisie multipliée par 3.
Par exemple : Si je saisi 10, j'aimerais voir en A1 le résultat : 30.
Mais sans passer par une cellule intermédiaire.
Merci. </pre> </blockquote> </body> </html>
zOrg2net
Salut poc et tous, Tous mes voeux pour 2008. Le problème de ta solution poc, c'est qu'a chaque fois qu'une cellule sera active la multiplication par 3 s'éxécutera. Il vaut mieux mettre ça dans l'évènement double clic (s'est moins pratique, mais moins dangereux):
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) ActiveCell = ActiveCell * 3 End Sub
zOrg2net 7OuNet Le dicton du jour: Quand le merle chante en mai, avril est fini.
Bonjour, Mettre dans le code de la feuille Private Sub Worksheet_SelectionChange(ByVal Target As Range) ActiveCell = ActiveCell * 3 End Sub Cordialement Poc "Apitos" a écrit dans le message de news:
Bonjour,
Comment faire pour voir dans une cellule ma saisie multipliée par 3.
Par exemple : Si je saisi 10, j'aimerais voir en A1 le résultat : 30.
Mais sans passer par une cellule intermédiaire.
Merci.
Salut poc et tous,
Tous mes voeux pour 2008.
Le problème de ta solution poc, c'est qu'a chaque fois qu'une cellule sera
active la multiplication par 3 s'éxécutera. Il vaut mieux mettre ça dans
l'évènement double clic (s'est moins pratique, mais moins dangereux):
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As
Boolean)
ActiveCell = ActiveCell * 3
End Sub
zOrg2net
7OuNet
Le dicton du jour: Quand le merle chante en mai, avril est fini.
Bonjour,
Mettre dans le code de la feuille
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
ActiveCell = ActiveCell * 3
End Sub
Cordialement
Poc
"Apitos" <apitos@gmail.com> a écrit dans le message de news:
f63819fc-d002-46e7-af80-ecb7a09e241f@x69g2000hsx.googlegroups.com...
Bonjour,
Comment faire pour voir dans une cellule ma saisie multipliée par 3.
Par exemple : Si je saisi 10, j'aimerais voir en A1 le résultat : 30.
Salut poc et tous, Tous mes voeux pour 2008. Le problème de ta solution poc, c'est qu'a chaque fois qu'une cellule sera active la multiplication par 3 s'éxécutera. Il vaut mieux mettre ça dans l'évènement double clic (s'est moins pratique, mais moins dangereux):
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) ActiveCell = ActiveCell * 3 End Sub
zOrg2net 7OuNet Le dicton du jour: Quand le merle chante en mai, avril est fini.
Bonjour, Mettre dans le code de la feuille Private Sub Worksheet_SelectionChange(ByVal Target As Range) ActiveCell = ActiveCell * 3 End Sub Cordialement Poc "Apitos" a écrit dans le message de news:
Bonjour,
Comment faire pour voir dans une cellule ma saisie multipliée par 3.
Par exemple : Si je saisi 10, j'aimerais voir en A1 le résultat : 30.
Mais sans passer par une cellule intermédiaire.
Merci.
poc
Bonjour Tout à fait d'accord avec toi, ma réponse n'était pas terrible. par contre les solutions de FFO et de Corto sont parfaites. Cordialement Poc "zOrg2net" a écrit dans le message de news:
Salut poc et tous, Tous mes voeux pour 2008. Le problème de ta solution poc, c'est qu'a chaque fois qu'une cellule sera active la multiplication par 3 s'éxécutera. Il vaut mieux mettre ça dans l'évènement double clic (s'est moins pratique, mais moins dangereux):
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) ActiveCell = ActiveCell * 3 End Sub
zOrg2net 7OuNet Le dicton du jour: Quand le merle chante en mai, avril est fini.
Bonjour, Mettre dans le code de la feuille Private Sub Worksheet_SelectionChange(ByVal Target As Range) ActiveCell = ActiveCell * 3 End Sub Cordialement Poc "Apitos" a écrit dans le message de news:
Bonjour,
Comment faire pour voir dans une cellule ma saisie multipliée par 3.
Par exemple : Si je saisi 10, j'aimerais voir en A1 le résultat : 30.
Mais sans passer par une cellule intermédiaire.
Merci.
Bonjour
Tout à fait d'accord avec toi, ma réponse n'était pas terrible.
par contre les solutions de FFO et de Corto sont parfaites.
Cordialement
Poc
"zOrg2net" <zOrg2net@discussions.microsoft.com> a écrit dans le message de
news: FB521B9B-533C-45BA-BB93-FFF18BFB91D0@microsoft.com...
Salut poc et tous,
Tous mes voeux pour 2008.
Le problème de ta solution poc, c'est qu'a chaque fois qu'une cellule sera
active la multiplication par 3 s'éxécutera. Il vaut mieux mettre ça dans
l'évènement double clic (s'est moins pratique, mais moins dangereux):
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As
Boolean)
ActiveCell = ActiveCell * 3
End Sub
zOrg2net
7OuNet
Le dicton du jour: Quand le merle chante en mai, avril est fini.
Bonjour,
Mettre dans le code de la feuille
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
ActiveCell = ActiveCell * 3
End Sub
Cordialement
Poc
"Apitos" <apitos@gmail.com> a écrit dans le message de news:
f63819fc-d002-46e7-af80-ecb7a09e241f@x69g2000hsx.googlegroups.com...
Bonjour,
Comment faire pour voir dans une cellule ma saisie multipliée par 3.
Par exemple : Si je saisi 10, j'aimerais voir en A1 le résultat : 30.
Bonjour Tout à fait d'accord avec toi, ma réponse n'était pas terrible. par contre les solutions de FFO et de Corto sont parfaites. Cordialement Poc "zOrg2net" a écrit dans le message de news:
Salut poc et tous, Tous mes voeux pour 2008. Le problème de ta solution poc, c'est qu'a chaque fois qu'une cellule sera active la multiplication par 3 s'éxécutera. Il vaut mieux mettre ça dans l'évènement double clic (s'est moins pratique, mais moins dangereux):
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) ActiveCell = ActiveCell * 3 End Sub
zOrg2net 7OuNet Le dicton du jour: Quand le merle chante en mai, avril est fini.
Bonjour, Mettre dans le code de la feuille Private Sub Worksheet_SelectionChange(ByVal Target As Range) ActiveCell = ActiveCell * 3 End Sub Cordialement Poc "Apitos" a écrit dans le message de news:
Bonjour,
Comment faire pour voir dans une cellule ma saisie multipliée par 3.
Par exemple : Si je saisi 10, j'aimerais voir en A1 le résultat : 30.
Mais sans passer par une cellule intermédiaire.
Merci.
Apitos
Bonsoir,
Merci à vous tous.
Pour la solution de Corto, lorsqu'il y'a une saisie d'une chaine (Par exmple le titre de la colonne 2), il y'a declenchement d'erreur.
Bonsoir,
Merci à vous tous.
Pour la solution de Corto, lorsqu'il y'a une saisie d'une chaine (Par
exmple le titre de la colonne 2), il y'a declenchement d'erreur.
Le lien que tu me proposes ne donne pas l'intégralité de l'échange Tu devrais plutôt rechercher le Post sur ce site d'échange en mettant comme clé de recherche l'intitullé :
"Lister dans un commentaire dans Excel"
et tu trouveras ma réponse à ta dernière question
Merci de me faire part de ta réaction
Pour FFO,
merci de ton interessement de mon problème.
Je t'ai deja répondu et même poser une autre question.
Le lien que tu me proposes ne donne pas l'intégralité de l'échange
Tu devrais plutôt rechercher le Post sur ce site d'échange en mettant comme
clé de recherche l'intitullé :
"Lister dans un commentaire dans Excel"
et tu trouveras ma réponse à ta dernière question
Merci de me faire part de ta réaction
Pour FFO,
merci de ton interessement de mon problème.
Je t'ai deja répondu et même poser une autre question.
Le lien que tu me proposes ne donne pas l'intégralité de l'échange Tu devrais plutôt rechercher le Post sur ce site d'échange en mettant comme clé de recherche l'intitullé :
"Lister dans un commentaire dans Excel"
et tu trouveras ma réponse à ta dernière question
Merci de me faire part de ta réaction
Pour FFO,
merci de ton interessement de mon problème.
Je t'ai deja répondu et même poser une autre question.
