Je souhaite saisir dans une cellule A1 une somme, puis après avoir saisi « Entrée »
Si tu veux dire par là que tu veux saisir en A1 1+1 (sans le signe =) et que A2 te renvoie le résultat : Dans un module ordinaire :
Function EVAL(c As Range) EVAL = Evaluate("=" & c) End Function
En A2 de ta feuille : =EVAL(A1)
AV
Alpha
Bonjour AV En fait, je me suis mal expliqué, ta proc fonctionne très bien, mais est-il possible de : A chaque fois que je saisis un chiffre en A1 et après avoir tapé sur Entrée, le chiffre s'additionne avec celui qui est déjà dans la cellule A2. Merci beaucoup de la part de Gege.
"AV" a écrit dans le message de news:
Je souhaite saisir dans une cellule A1 une somme, puis après avoir saisi « Entrée »
Si tu veux dire par là que tu veux saisir en A1 1+1 (sans le signe =) et que A2
te renvoie le résultat : Dans un module ordinaire :
Function EVAL(c As Range) EVAL = Evaluate("=" & c) End Function
En A2 de ta feuille : =EVAL(A1)
AV
Bonjour AV
En fait, je me suis mal expliqué, ta proc fonctionne très bien, mais est-il
possible de :
A chaque fois que je saisis un chiffre en A1 et après avoir tapé sur Entrée,
le chiffre s'additionne avec celui qui est déjà dans la cellule A2.
Merci beaucoup de la part de Gege.
"AV" <alain.vallon@wanadoo.fr> a écrit dans le message de news:
OlfqsE8wDHA.4060@TK2MSFTNGP11.phx.gbl...
Je souhaite saisir dans une cellule A1 une somme, puis
après avoir saisi « Entrée »
Si tu veux dire par là que tu veux saisir en A1 1+1 (sans le signe =) et
que A2
te renvoie le résultat :
Dans un module ordinaire :
Function EVAL(c As Range)
EVAL = Evaluate("=" & c)
End Function
Bonjour AV En fait, je me suis mal expliqué, ta proc fonctionne très bien, mais est-il possible de : A chaque fois que je saisis un chiffre en A1 et après avoir tapé sur Entrée, le chiffre s'additionne avec celui qui est déjà dans la cellule A2. Merci beaucoup de la part de Gege.
"AV" a écrit dans le message de news:
Je souhaite saisir dans une cellule A1 une somme, puis après avoir saisi « Entrée »
Si tu veux dire par là que tu veux saisir en A1 1+1 (sans le signe =) et que A2
te renvoie le résultat : Dans un module ordinaire :
Function EVAL(c As Range) EVAL = Evaluate("=" & c) End Function
En A2 de ta feuille : =EVAL(A1)
AV
michdenis
Bonjour Alpha,
Dans la feuille module où l'action se déroule, copie ce qui suit :
'---------------------------- Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = Range("A1").Address Then If IsNumeric(Range("A2")) = True Then Application.EnableEvents = False Range("a1") = [sum(A1:A2)] Application.EnableEvents = True End If End If
End Sub '----------------------------
Salutations!
"Alpha" a écrit dans le message de news:epUbS$ Bonjour AV En fait, je me suis mal expliqué, ta proc fonctionne très bien, mais est-il possible de : A chaque fois que je saisis un chiffre en A1 et après avoir tapé sur Entrée, le chiffre s'additionne avec celui qui est déjà dans la cellule A2. Merci beaucoup de la part de Gege.
"AV" a écrit dans le message de news:
Je souhaite saisir dans une cellule A1 une somme, puis après avoir saisi « Entrée »
Si tu veux dire par là que tu veux saisir en A1 1+1 (sans le signe =) et que A2
te renvoie le résultat : Dans un module ordinaire :
Function EVAL(c As Range) EVAL = Evaluate("=" & c) End Function
En A2 de ta feuille : =EVAL(A1)
AV
Bonjour Alpha,
Dans la feuille module où l'action se déroule, copie ce qui suit :
'----------------------------
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = Range("A1").Address Then
If IsNumeric(Range("A2")) = True Then
Application.EnableEvents = False
Range("a1") = [sum(A1:A2)]
Application.EnableEvents = True
End If
End If
End Sub
'----------------------------
Salutations!
"Alpha" <Alpha@ducentaure.fr> a écrit dans le message de news:epUbS$AxDHA.2000@TK2MSFTNGP11.phx.gbl...
Bonjour AV
En fait, je me suis mal expliqué, ta proc fonctionne très bien, mais est-il
possible de :
A chaque fois que je saisis un chiffre en A1 et après avoir tapé sur Entrée,
le chiffre s'additionne avec celui qui est déjà dans la cellule A2.
Merci beaucoup de la part de Gege.
"AV" <alain.vallon@wanadoo.fr> a écrit dans le message de news:
OlfqsE8wDHA.4060@TK2MSFTNGP11.phx.gbl...
Je souhaite saisir dans une cellule A1 une somme, puis
après avoir saisi « Entrée »
Si tu veux dire par là que tu veux saisir en A1 1+1 (sans le signe =) et
que A2
te renvoie le résultat :
Dans un module ordinaire :
Function EVAL(c As Range)
EVAL = Evaluate("=" & c)
End Function
Dans la feuille module où l'action se déroule, copie ce qui suit :
'---------------------------- Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = Range("A1").Address Then If IsNumeric(Range("A2")) = True Then Application.EnableEvents = False Range("a1") = [sum(A1:A2)] Application.EnableEvents = True End If End If
End Sub '----------------------------
Salutations!
"Alpha" a écrit dans le message de news:epUbS$ Bonjour AV En fait, je me suis mal expliqué, ta proc fonctionne très bien, mais est-il possible de : A chaque fois que je saisis un chiffre en A1 et après avoir tapé sur Entrée, le chiffre s'additionne avec celui qui est déjà dans la cellule A2. Merci beaucoup de la part de Gege.
"AV" a écrit dans le message de news:
Je souhaite saisir dans une cellule A1 une somme, puis après avoir saisi « Entrée »
Si tu veux dire par là que tu veux saisir en A1 1+1 (sans le signe =) et que A2
te renvoie le résultat : Dans un module ordinaire :
Function EVAL(c As Range) EVAL = Evaluate("=" & c) End Function
En A2 de ta feuille : =EVAL(A1)
AV
Alpha
Merci Denis, en fait il faudrait qu'en saisissant dans la cellule A1, cela vient alimenter la cellule A2 en ajoutant la somme de la cellule A1 Ex : je saisis 10 en A1 puis entrée, la cellule A1 devient vide et A2 Puis je saisis 15 en A1 puis entrée, la cellule A1 devient vide et A2 etc. Alpha
"michdenis" a écrit dans le message de news: #
Bonjour Alpha,
Dans la feuille module où l'action se déroule, copie ce qui suit :
'---------------------------- Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = Range("A1").Address Then If IsNumeric(Range("A2")) = True Then Application.EnableEvents = False Range("a1") = [sum(A1:A2)] Application.EnableEvents = True End If End If
End Sub '----------------------------
Salutations!
"Alpha" a écrit dans le message de news:epUbS$
Bonjour AV En fait, je me suis mal expliqué, ta proc fonctionne très bien, mais est-il
possible de : A chaque fois que je saisis un chiffre en A1 et après avoir tapé sur Entrée,
le chiffre s'additionne avec celui qui est déjà dans la cellule A2. Merci beaucoup de la part de Gege.
"AV" a écrit dans le message de news:
Je souhaite saisir dans une cellule A1 une somme, puis après avoir saisi « Entrée »
Si tu veux dire par là que tu veux saisir en A1 1+1 (sans le signe =) et que A2
te renvoie le résultat : Dans un module ordinaire :
Function EVAL(c As Range) EVAL = Evaluate("=" & c) End Function
En A2 de ta feuille : =EVAL(A1)
AV
Merci Denis, en fait il faudrait qu'en saisissant dans la cellule A1, cela
vient alimenter la cellule A2 en ajoutant la somme de la cellule A1
Ex : je saisis 10 en A1 puis entrée, la cellule A1 devient vide et A2
Puis je saisis 15 en A1 puis entrée, la cellule A1 devient vide et A2
etc.
Alpha
"michdenis" <michdenis@hotmail.com> a écrit dans le message de news:
#nO0hRBxDHA.3416@tk2msftngp13.phx.gbl...
Bonjour Alpha,
Dans la feuille module où l'action se déroule, copie ce qui suit :
'----------------------------
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = Range("A1").Address Then
If IsNumeric(Range("A2")) = True Then
Application.EnableEvents = False
Range("a1") = [sum(A1:A2)]
Application.EnableEvents = True
End If
End If
End Sub
'----------------------------
Salutations!
"Alpha" <Alpha@ducentaure.fr> a écrit dans le message de
news:epUbS$AxDHA.2000@TK2MSFTNGP11.phx.gbl...
Bonjour AV
En fait, je me suis mal expliqué, ta proc fonctionne très bien, mais
est-il
possible de :
A chaque fois que je saisis un chiffre en A1 et après avoir tapé sur
Entrée,
le chiffre s'additionne avec celui qui est déjà dans la cellule A2.
Merci beaucoup de la part de Gege.
"AV" <alain.vallon@wanadoo.fr> a écrit dans le message de news:
OlfqsE8wDHA.4060@TK2MSFTNGP11.phx.gbl...
Je souhaite saisir dans une cellule A1 une somme, puis
après avoir saisi « Entrée »
Si tu veux dire par là que tu veux saisir en A1 1+1 (sans le signe =) et
que A2
te renvoie le résultat :
Dans un module ordinaire :
Function EVAL(c As Range)
EVAL = Evaluate("=" & c)
End Function
Merci Denis, en fait il faudrait qu'en saisissant dans la cellule A1, cela vient alimenter la cellule A2 en ajoutant la somme de la cellule A1 Ex : je saisis 10 en A1 puis entrée, la cellule A1 devient vide et A2 Puis je saisis 15 en A1 puis entrée, la cellule A1 devient vide et A2 etc. Alpha
"michdenis" a écrit dans le message de news: #
Bonjour Alpha,
Dans la feuille module où l'action se déroule, copie ce qui suit :
'---------------------------- Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = Range("A1").Address Then If IsNumeric(Range("A2")) = True Then Application.EnableEvents = False Range("a1") = [sum(A1:A2)] Application.EnableEvents = True End If End If
End Sub '----------------------------
Salutations!
"Alpha" a écrit dans le message de news:epUbS$
Bonjour AV En fait, je me suis mal expliqué, ta proc fonctionne très bien, mais est-il
possible de : A chaque fois que je saisis un chiffre en A1 et après avoir tapé sur Entrée,
le chiffre s'additionne avec celui qui est déjà dans la cellule A2. Merci beaucoup de la part de Gege.
"AV" a écrit dans le message de news:
Je souhaite saisir dans une cellule A1 une somme, puis après avoir saisi « Entrée »
Si tu veux dire par là que tu veux saisir en A1 1+1 (sans le signe =) et que A2
te renvoie le résultat : Dans un module ordinaire :
Function EVAL(c As Range) EVAL = Evaluate("=" & c) End Function
En A2 de ta feuille : =EVAL(A1)
AV
Alpha
Tout est Ok Denis, j'ai corrigé A1 en A2. Cela fonctionne très bien Merci beaucoup Alpha
"michdenis" a écrit dans le message de news: #
Bonjour Alpha,
Dans la feuille module où l'action se déroule, copie ce qui suit :
'---------------------------- Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = Range("A1").Address Then If IsNumeric(Range("A2")) = True Then Application.EnableEvents = False Range("a1") = [sum(A1:A2)] Application.EnableEvents = True End If End If
End Sub '----------------------------
Salutations!
"Alpha" a écrit dans le message de news:epUbS$
Bonjour AV En fait, je me suis mal expliqué, ta proc fonctionne très bien, mais est-il
possible de : A chaque fois que je saisis un chiffre en A1 et après avoir tapé sur Entrée,
le chiffre s'additionne avec celui qui est déjà dans la cellule A2. Merci beaucoup de la part de Gege.
"AV" a écrit dans le message de news:
Je souhaite saisir dans une cellule A1 une somme, puis après avoir saisi « Entrée »
Si tu veux dire par là que tu veux saisir en A1 1+1 (sans le signe =) et que A2
te renvoie le résultat : Dans un module ordinaire :
Function EVAL(c As Range) EVAL = Evaluate("=" & c) End Function
En A2 de ta feuille : =EVAL(A1)
AV
Tout est Ok Denis, j'ai corrigé A1 en A2. Cela fonctionne très bien
Merci beaucoup
Alpha
"michdenis" <michdenis@hotmail.com> a écrit dans le message de news:
#nO0hRBxDHA.3416@tk2msftngp13.phx.gbl...
Bonjour Alpha,
Dans la feuille module où l'action se déroule, copie ce qui suit :
'----------------------------
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = Range("A1").Address Then
If IsNumeric(Range("A2")) = True Then
Application.EnableEvents = False
Range("a1") = [sum(A1:A2)]
Application.EnableEvents = True
End If
End If
End Sub
'----------------------------
Salutations!
"Alpha" <Alpha@ducentaure.fr> a écrit dans le message de
news:epUbS$AxDHA.2000@TK2MSFTNGP11.phx.gbl...
Bonjour AV
En fait, je me suis mal expliqué, ta proc fonctionne très bien, mais
est-il
possible de :
A chaque fois que je saisis un chiffre en A1 et après avoir tapé sur
Entrée,
le chiffre s'additionne avec celui qui est déjà dans la cellule A2.
Merci beaucoup de la part de Gege.
"AV" <alain.vallon@wanadoo.fr> a écrit dans le message de news:
OlfqsE8wDHA.4060@TK2MSFTNGP11.phx.gbl...
Je souhaite saisir dans une cellule A1 une somme, puis
après avoir saisi « Entrée »
Si tu veux dire par là que tu veux saisir en A1 1+1 (sans le signe =) et
que A2
te renvoie le résultat :
Dans un module ordinaire :
Function EVAL(c As Range)
EVAL = Evaluate("=" & c)
End Function
Tout est Ok Denis, j'ai corrigé A1 en A2. Cela fonctionne très bien Merci beaucoup Alpha
"michdenis" a écrit dans le message de news: #
Bonjour Alpha,
Dans la feuille module où l'action se déroule, copie ce qui suit :
'---------------------------- Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = Range("A1").Address Then If IsNumeric(Range("A2")) = True Then Application.EnableEvents = False Range("a1") = [sum(A1:A2)] Application.EnableEvents = True End If End If
End Sub '----------------------------
Salutations!
"Alpha" a écrit dans le message de news:epUbS$
Bonjour AV En fait, je me suis mal expliqué, ta proc fonctionne très bien, mais est-il
possible de : A chaque fois que je saisis un chiffre en A1 et après avoir tapé sur Entrée,
le chiffre s'additionne avec celui qui est déjà dans la cellule A2. Merci beaucoup de la part de Gege.
"AV" a écrit dans le message de news:
Je souhaite saisir dans une cellule A1 une somme, puis après avoir saisi « Entrée »
Si tu veux dire par là que tu veux saisir en A1 1+1 (sans le signe =) et que A2
te renvoie le résultat : Dans un module ordinaire :
Function EVAL(c As Range) EVAL = Evaluate("=" & c) End Function