Bonjour,
Je suis =E0 pr=E9parer un tableau Excel. J'ai plusieurs avec=20
plusieurs cellules contenant des chiffres diff=E9rents. =20
J'aimerais que lorsque la somme atteint ex. 520 que Excel=20
me l'indique en TOTAL. Comment faire?
Bonsoir el-joker, Si cela peut te rassurer (il n'y a pas de quoi disent les méchantes langues), moi non plus ! -- Amicales Salutations
"el--joker" a écrit dans le message de news:5e7301c42dde$7e9ffba0$ Rien compris ...
-----Message d'origine----- Bonjour, Je suis à préparer un tableau Excel. J'ai plusieurs avec
plusieurs cellules contenant des chiffres différents. J'aimerais que lorsque la somme atteint ex. 520 que Excel
me l'indique en TOTAL. Comment faire? .
GD
pfff... ;o))) J'va core etre traité ed' méchante lingue !!! c'étos pourtant nin difficile.... question simple, réponse simple ....
dans le module feuille correspondant : Private Sub Worksheet_SelectionChange(ByVal Target As Range) Dim Tout As Range, Total As Long Set Tout = Cells Total = Application.Sum(Tout) If Total > 520 Then MsgBox "Attention Total !!" & Chr(10) & Total, vbexclamation, "Fouteux d'gins" End If End Sub
non ??? ;o))))
"Philippe.R" a écrit dans le message de news: #
Bonsoir el-joker, Si cela peut te rassurer (il n'y a pas de quoi disent les méchantes langues), moi non plus !
-- Amicales Salutations
"el--joker" a écrit dans le message de news:5e7301c42dde$7e9ffba0$ Rien compris ...
-----Message d'origine----- Bonjour, Je suis à préparer un tableau Excel. J'ai plusieurs avec
plusieurs cellules contenant des chiffres différents. J'aimerais que lorsque la somme atteint ex. 520 que Excel
me l'indique en TOTAL. Comment faire? .
pfff...
;o)))
J'va core etre traité ed' méchante lingue !!!
c'étos pourtant nin difficile....
question simple, réponse simple ....
dans le module feuille correspondant :
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim Tout As Range, Total As Long
Set Tout = Cells
Total = Application.Sum(Tout)
If Total > 520 Then
MsgBox "Attention Total !!" & Chr(10) & Total, vbexclamation, "Fouteux
d'gins"
End If
End Sub
non ???
;o))))
"Philippe.R" <A_S_rauphil@wanadoo.fr> a écrit dans le message de news:
#nDTQ2iLEHA.3712@TK2MSFTNGP10.phx.gbl...
Bonsoir el-joker,
Si cela peut te rassurer (il n'y a pas de quoi disent les méchantes
langues), moi non plus !
--
Amicales Salutations
"el--joker" <el-joker@caramail.com> a écrit dans le message de
news:5e7301c42dde$7e9ffba0$a501280a@phx.gbl...
Rien compris ...
-----Message d'origine-----
Bonjour,
Je suis à préparer un tableau Excel. J'ai plusieurs
avec
plusieurs cellules contenant des chiffres différents.
J'aimerais que lorsque la somme atteint ex. 520 que
Excel
pfff... ;o))) J'va core etre traité ed' méchante lingue !!! c'étos pourtant nin difficile.... question simple, réponse simple ....
dans le module feuille correspondant : Private Sub Worksheet_SelectionChange(ByVal Target As Range) Dim Tout As Range, Total As Long Set Tout = Cells Total = Application.Sum(Tout) If Total > 520 Then MsgBox "Attention Total !!" & Chr(10) & Total, vbexclamation, "Fouteux d'gins" End If End Sub
non ??? ;o))))
"Philippe.R" a écrit dans le message de news: #
Bonsoir el-joker, Si cela peut te rassurer (il n'y a pas de quoi disent les méchantes langues), moi non plus !
-- Amicales Salutations
"el--joker" a écrit dans le message de news:5e7301c42dde$7e9ffba0$ Rien compris ...
-----Message d'origine----- Bonjour, Je suis à préparer un tableau Excel. J'ai plusieurs avec
plusieurs cellules contenant des chiffres différents. J'aimerais que lorsque la somme atteint ex. 520 que Excel
me l'indique en TOTAL. Comment faire? .
Philippe.R
V'la c'que c'est qu'd'etre trop compliqué ! On comprends rin ! ;o)))) -- Amicales Salutations
"GD" a écrit dans le message de news:%
pfff... ;o))) J'va core etre traité ed' méchante lingue !!! c'étos pourtant nin difficile.... question simple, réponse simple ....
dans le module feuille correspondant : Private Sub Worksheet_SelectionChange(ByVal Target As Range) Dim Tout As Range, Total As Long Set Tout = Cells Total = Application.Sum(Tout) If Total > 520 Then MsgBox "Attention Total !!" & Chr(10) & Total, vbexclamation, "Fouteux d'gins" End If End Sub
non ??? ;o))))
"Philippe.R" a écrit dans le message de news: #
Bonsoir el-joker, Si cela peut te rassurer (il n'y a pas de quoi disent les méchantes langues), moi non plus !
-- Amicales Salutations
"el--joker" a écrit dans le message de news:5e7301c42dde$7e9ffba0$ Rien compris ...
-----Message d'origine----- Bonjour, Je suis à préparer un tableau Excel. J'ai plusieurs avec
plusieurs cellules contenant des chiffres différents. J'aimerais que lorsque la somme atteint ex. 520 que Excel
me l'indique en TOTAL. Comment faire? .
V'la c'que c'est qu'd'etre trop compliqué !
On comprends rin !
;o))))
--
Amicales Salutations
"GD" <nomail@nomail.net> a écrit dans le message de news:%23bWbMJjLEHA.1032@TK2MSFTNGP12.phx.gbl...
pfff...
;o)))
J'va core etre traité ed' méchante lingue !!!
c'étos pourtant nin difficile....
question simple, réponse simple ....
dans le module feuille correspondant :
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim Tout As Range, Total As Long
Set Tout = Cells
Total = Application.Sum(Tout)
If Total > 520 Then
MsgBox "Attention Total !!" & Chr(10) & Total, vbexclamation, "Fouteux
d'gins"
End If
End Sub
non ???
;o))))
"Philippe.R" <A_S_rauphil@wanadoo.fr> a écrit dans le message de news:
#nDTQ2iLEHA.3712@TK2MSFTNGP10.phx.gbl...
Bonsoir el-joker,
Si cela peut te rassurer (il n'y a pas de quoi disent les méchantes
langues), moi non plus !
--
Amicales Salutations
"el--joker" <el-joker@caramail.com> a écrit dans le message de
news:5e7301c42dde$7e9ffba0$a501280a@phx.gbl...
Rien compris ...
-----Message d'origine-----
Bonjour,
Je suis à préparer un tableau Excel. J'ai plusieurs
avec
plusieurs cellules contenant des chiffres différents.
J'aimerais que lorsque la somme atteint ex. 520 que
Excel
V'la c'que c'est qu'd'etre trop compliqué ! On comprends rin ! ;o)))) -- Amicales Salutations
"GD" a écrit dans le message de news:%
pfff... ;o))) J'va core etre traité ed' méchante lingue !!! c'étos pourtant nin difficile.... question simple, réponse simple ....
dans le module feuille correspondant : Private Sub Worksheet_SelectionChange(ByVal Target As Range) Dim Tout As Range, Total As Long Set Tout = Cells Total = Application.Sum(Tout) If Total > 520 Then MsgBox "Attention Total !!" & Chr(10) & Total, vbexclamation, "Fouteux d'gins" End If End Sub
non ??? ;o))))
"Philippe.R" a écrit dans le message de news: #
Bonsoir el-joker, Si cela peut te rassurer (il n'y a pas de quoi disent les méchantes langues), moi non plus !
-- Amicales Salutations
"el--joker" a écrit dans le message de news:5e7301c42dde$7e9ffba0$ Rien compris ...
-----Message d'origine----- Bonjour, Je suis à préparer un tableau Excel. J'ai plusieurs avec
plusieurs cellules contenant des chiffres différents. J'aimerais que lorsque la somme atteint ex. 520 que Excel