Bonjour
J'ai cette
formule:SOMMEPROD(((JOURSEM(Dt;2)=$A$14)*(MOIS(Dt)=D$1)*(TR=$C17)*q tes))
qui s'applique à 120 cellules. Elle me sert à synthétiser des donn ées de la
feuille saisie
Le soucis c'est la lenteur de calcul à chaque fois que j'entre des don nées
sur la feuille saisie.
Avec un Sommeprod c'est la première fois que cela m'arrive alors que le
classeur fait 192 ko
Merci
---
Antivirus avast! : message Sortant sain.
Base de donnees virale (VPS) : 000715-0, 20/02/2007
Analyse le : 21/02/2007 08:24:39
avast! - copyright (c) 1988-2007 ALWIL Software.http://www.avast.com
Bonjour
J'ai cette
formule:SOMMEPROD(((JOURSEM(Dt;2)=$A$14)*(MOIS(Dt)=D$1)*(TR=$C17)*q tes))
qui s'applique à 120 cellules. Elle me sert à synthétiser des donn ées de la
feuille saisie
Le soucis c'est la lenteur de calcul à chaque fois que j'entre des don nées
sur la feuille saisie.
Avec un Sommeprod c'est la première fois que cela m'arrive alors que le
classeur fait 192 ko
Merci
---
Antivirus avast! : message Sortant sain.
Base de donnees virale (VPS) : 000715-0, 20/02/2007
Analyse le : 21/02/2007 08:24:39
avast! - copyright (c) 1988-2007 ALWIL Software.http://www.avast.com
Bonjour
J'ai cette
formule:SOMMEPROD(((JOURSEM(Dt;2)=$A$14)*(MOIS(Dt)=D$1)*(TR=$C17)*q tes))
qui s'applique à 120 cellules. Elle me sert à synthétiser des donn ées de la
feuille saisie
Le soucis c'est la lenteur de calcul à chaque fois que j'entre des don nées
sur la feuille saisie.
Avec un Sommeprod c'est la première fois que cela m'arrive alors que le
classeur fait 192 ko
Merci
---
Antivirus avast! : message Sortant sain.
Base de donnees virale (VPS) : 000715-0, 20/02/2007
Analyse le : 21/02/2007 08:24:39
avast! - copyright (c) 1988-2007 ALWIL Software.http://www.avast.com
Bonjour
J'ai cette
formule:SOMMEPROD(((JOURSEM(Dt;2)=$A$14)*(MOIS(Dt)=D$1)*(TR=$C17)*qtes))
qui s'applique à 120 cellules. Elle me sert à synthétiser des données de
la
feuille saisie
Le soucis c'est la lenteur de calcul à chaque fois que j'entre des
données
sur la feuille saisie.
Avec un Sommeprod c'est la première fois que cela m'arrive alors que le
classeur fait 192 ko
Merci
---
Antivirus avast! : message Sortant sain.
Base de donnees virale (VPS) : 000715-0, 20/02/2007
Analyse le : 21/02/2007 08:24:39
avast! - copyright (c) 1988-2007 ALWIL Software.http://www.avast.com
Bonjour
J'ai cette
formule:SOMMEPROD(((JOURSEM(Dt;2)=$A$14)*(MOIS(Dt)=D$1)*(TR=$C17)*qtes))
qui s'applique à 120 cellules. Elle me sert à synthétiser des données de
la
feuille saisie
Le soucis c'est la lenteur de calcul à chaque fois que j'entre des
données
sur la feuille saisie.
Avec un Sommeprod c'est la première fois que cela m'arrive alors que le
classeur fait 192 ko
Merci
---
Antivirus avast! : message Sortant sain.
Base de donnees virale (VPS) : 000715-0, 20/02/2007
Analyse le : 21/02/2007 08:24:39
avast! - copyright (c) 1988-2007 ALWIL Software.http://www.avast.com
Bonjour
J'ai cette
formule:SOMMEPROD(((JOURSEM(Dt;2)=$A$14)*(MOIS(Dt)=D$1)*(TR=$C17)*qtes))
qui s'applique à 120 cellules. Elle me sert à synthétiser des données de
la
feuille saisie
Le soucis c'est la lenteur de calcul à chaque fois que j'entre des
données
sur la feuille saisie.
Avec un Sommeprod c'est la première fois que cela m'arrive alors que le
classeur fait 192 ko
Merci
---
Antivirus avast! : message Sortant sain.
Base de donnees virale (VPS) : 000715-0, 20/02/2007
Analyse le : 21/02/2007 08:24:39
avast! - copyright (c) 1988-2007 ALWIL Software.http://www.avast.com
merci,
Mais en fait ce n'est pas cela qui ralentit. J'ai simplifié le tableau des
SOMMEPROD il ne fait plus que 25 cellules et le problême reste entier s ur la
feuille saisie.
Je crois que c'est mon code:
Private Sub Worksheet_Change(ByVal Target As Range)
Application.ScreenUpdating = False
Application.Calculation = xlManual
If Target.Column >= 1 And Target.Column <= 6 And Target.Count = 1 Then
Application.EnableEvents = False
Target.Copy
Target.Offset(1, 0).PasteSpecial Paste:=xlPasteValidation
Application.CutCopyMode = False
Application.EnableEvents = True
ActiveCell.Offset(-1, 1).Select
ActiveWorkbook.RefreshAll
Application.Calculation = xlAutomatic
Application.ScreenUpdating = True
End If
End Sub
Sur mes stats 2006 le tableau as plus de 4800 lignes c'est très lent sur
2007 j'en suis déjà à 530 et j'ai peur que cela ne ralentisse au fu r et à
mesure des saisies.
Je vois pas ou cela pêche
"JB" a écrit dans le message de news:
Bonjour,
Utiliser le calcul sur ordre et appuyer sur F9 pour Maj
ou en VBA:
-Ecrire et copier la formule.
-Eliminer les formules.
Sub Calcul()
[G8].FormulaR1C1 = "=SUMPRODUCT((WEEKDAY(Dates,
2)=RC6)*(MONTH(Dates)=R7C)*Ca)"
[G8].Copy
Range("G8:I13").PasteSpecial
Paste:=xlPasteFormulasAndNumberFormats
Range("G8:I13").Copy
[G8].PasteSpecial Paste:=xlPasteValues
End Sub
http://cjoint.com/?cvmCj2mYT0
JB
On 21 fév, 08:24, "Pascal" wrote:Bonjour
J'ai cette
formule:SOMMEPROD(((JOURSEM(Dt;2)=$A$14)*(MOIS(Dt)=D$1)*(TR=$C17) *qtes))
qui s'applique à 120 cellules. Elle me sert à synthétiser des don nées de
la
feuille saisie
Le soucis c'est la lenteur de calcul à chaque fois que j'entre des
données
sur la feuille saisie.
Avec un Sommeprod c'est la première fois que cela m'arrive alors que le
classeur fait 192 ko
Merci
---
Antivirus avast! : message Sortant sain.
Base de donnees virale (VPS) : 000715-0, 20/02/2007
Analyse le : 21/02/2007 08:24:39
avast! - copyright (c) 1988-2007 ALWIL Software.http://www.avast.com
---
Antivirus avast! : message Entrant sain.
Base de donnees virale (VPS) : 000715-1, 21/02/2007
Analyse le : 21/02/2007 13:18:32
avast! - copyright (c) 1988-2007 ALWIL Software.http://www.avast.com
---
Antivirus avast! : message Sortant sain.
Base de donnees virale (VPS) : 000715-1, 21/02/2007
Analyse le : 21/02/2007 13:43:05
avast! - copyright (c) 1988-2007 ALWIL Software.http://www.avast.com- Mas quer le texte des messages précédents -
- Afficher le texte des messages précédents -
merci,
Mais en fait ce n'est pas cela qui ralentit. J'ai simplifié le tableau des
SOMMEPROD il ne fait plus que 25 cellules et le problême reste entier s ur la
feuille saisie.
Je crois que c'est mon code:
Private Sub Worksheet_Change(ByVal Target As Range)
Application.ScreenUpdating = False
Application.Calculation = xlManual
If Target.Column >= 1 And Target.Column <= 6 And Target.Count = 1 Then
Application.EnableEvents = False
Target.Copy
Target.Offset(1, 0).PasteSpecial Paste:=xlPasteValidation
Application.CutCopyMode = False
Application.EnableEvents = True
ActiveCell.Offset(-1, 1).Select
ActiveWorkbook.RefreshAll
Application.Calculation = xlAutomatic
Application.ScreenUpdating = True
End If
End Sub
Sur mes stats 2006 le tableau as plus de 4800 lignes c'est très lent sur
2007 j'en suis déjà à 530 et j'ai peur que cela ne ralentisse au fu r et à
mesure des saisies.
Je vois pas ou cela pêche
"JB" <jacques.boisgont...@gmail.com> a écrit dans le message de news:
1172057352.817704.85...@k78g2000cwa.googlegroups.com...
Bonjour,
Utiliser le calcul sur ordre et appuyer sur F9 pour Maj
ou en VBA:
-Ecrire et copier la formule.
-Eliminer les formules.
Sub Calcul()
[G8].FormulaR1C1 = "=SUMPRODUCT((WEEKDAY(Dates,
2)=RC6)*(MONTH(Dates)=R7C)*Ca)"
[G8].Copy
Range("G8:I13").PasteSpecial
Paste:=xlPasteFormulasAndNumberFormats
Range("G8:I13").Copy
[G8].PasteSpecial Paste:=xlPasteValues
End Sub
http://cjoint.com/?cvmCj2mYT0
JB
On 21 fév, 08:24, "Pascal" <lapl...@wanadoo.fr> wrote:
Bonjour
J'ai cette
formule:SOMMEPROD(((JOURSEM(Dt;2)=$A$14)*(MOIS(Dt)=D$1)*(TR=$C17) *qtes))
qui s'applique à 120 cellules. Elle me sert à synthétiser des don nées de
la
feuille saisie
Le soucis c'est la lenteur de calcul à chaque fois que j'entre des
données
sur la feuille saisie.
Avec un Sommeprod c'est la première fois que cela m'arrive alors que le
classeur fait 192 ko
Merci
---
Antivirus avast! : message Sortant sain.
Base de donnees virale (VPS) : 000715-0, 20/02/2007
Analyse le : 21/02/2007 08:24:39
avast! - copyright (c) 1988-2007 ALWIL Software.http://www.avast.com
---
Antivirus avast! : message Entrant sain.
Base de donnees virale (VPS) : 000715-1, 21/02/2007
Analyse le : 21/02/2007 13:18:32
avast! - copyright (c) 1988-2007 ALWIL Software.http://www.avast.com
---
Antivirus avast! : message Sortant sain.
Base de donnees virale (VPS) : 000715-1, 21/02/2007
Analyse le : 21/02/2007 13:43:05
avast! - copyright (c) 1988-2007 ALWIL Software.http://www.avast.com- Mas quer le texte des messages précédents -
- Afficher le texte des messages précédents -
merci,
Mais en fait ce n'est pas cela qui ralentit. J'ai simplifié le tableau des
SOMMEPROD il ne fait plus que 25 cellules et le problême reste entier s ur la
feuille saisie.
Je crois que c'est mon code:
Private Sub Worksheet_Change(ByVal Target As Range)
Application.ScreenUpdating = False
Application.Calculation = xlManual
If Target.Column >= 1 And Target.Column <= 6 And Target.Count = 1 Then
Application.EnableEvents = False
Target.Copy
Target.Offset(1, 0).PasteSpecial Paste:=xlPasteValidation
Application.CutCopyMode = False
Application.EnableEvents = True
ActiveCell.Offset(-1, 1).Select
ActiveWorkbook.RefreshAll
Application.Calculation = xlAutomatic
Application.ScreenUpdating = True
End If
End Sub
Sur mes stats 2006 le tableau as plus de 4800 lignes c'est très lent sur
2007 j'en suis déjà à 530 et j'ai peur que cela ne ralentisse au fu r et à
mesure des saisies.
Je vois pas ou cela pêche
"JB" a écrit dans le message de news:
Bonjour,
Utiliser le calcul sur ordre et appuyer sur F9 pour Maj
ou en VBA:
-Ecrire et copier la formule.
-Eliminer les formules.
Sub Calcul()
[G8].FormulaR1C1 = "=SUMPRODUCT((WEEKDAY(Dates,
2)=RC6)*(MONTH(Dates)=R7C)*Ca)"
[G8].Copy
Range("G8:I13").PasteSpecial
Paste:=xlPasteFormulasAndNumberFormats
Range("G8:I13").Copy
[G8].PasteSpecial Paste:=xlPasteValues
End Sub
http://cjoint.com/?cvmCj2mYT0
JB
On 21 fév, 08:24, "Pascal" wrote:Bonjour
J'ai cette
formule:SOMMEPROD(((JOURSEM(Dt;2)=$A$14)*(MOIS(Dt)=D$1)*(TR=$C17) *qtes))
qui s'applique à 120 cellules. Elle me sert à synthétiser des don nées de
la
feuille saisie
Le soucis c'est la lenteur de calcul à chaque fois que j'entre des
données
sur la feuille saisie.
Avec un Sommeprod c'est la première fois que cela m'arrive alors que le
classeur fait 192 ko
Merci
---
Antivirus avast! : message Sortant sain.
Base de donnees virale (VPS) : 000715-0, 20/02/2007
Analyse le : 21/02/2007 08:24:39
avast! - copyright (c) 1988-2007 ALWIL Software.http://www.avast.com
---
Antivirus avast! : message Entrant sain.
Base de donnees virale (VPS) : 000715-1, 21/02/2007
Analyse le : 21/02/2007 13:18:32
avast! - copyright (c) 1988-2007 ALWIL Software.http://www.avast.com
---
Antivirus avast! : message Sortant sain.
Base de donnees virale (VPS) : 000715-1, 21/02/2007
Analyse le : 21/02/2007 13:43:05
avast! - copyright (c) 1988-2007 ALWIL Software.http://www.avast.com- Mas quer le texte des messages précédents -
- Afficher le texte des messages précédents -
merci,
Mais en fait ce n'est pas cela qui ralentit. J'ai simplifié le tableau des
SOMMEPROD il ne fait plus que 25 cellules et le problême reste entier sur
la
feuille saisie.
Je crois que c'est mon code:
Private Sub Worksheet_Change(ByVal Target As Range)
Application.ScreenUpdating = False
Application.Calculation = xlManual
If Target.Column >= 1 And Target.Column <= 6 And Target.Count = 1 Then
Application.EnableEvents = False
Target.Copy
Target.Offset(1, 0).PasteSpecial Paste:=xlPasteValidation
Application.CutCopyMode = False
Application.EnableEvents = True
ActiveCell.Offset(-1, 1).Select
ActiveWorkbook.RefreshAll
Application.Calculation = xlAutomatic
Application.ScreenUpdating = True
End If
End Sub
Sur mes stats 2006 le tableau as plus de 4800 lignes c'est très lent sur
2007 j'en suis déjà à 530 et j'ai peur que cela ne ralentisse au fur et à
mesure des saisies.
Je vois pas ou cela pêche
"JB" a écrit dans le message de news:
Bonjour,
Utiliser le calcul sur ordre et appuyer sur F9 pour Maj
ou en VBA:
-Ecrire et copier la formule.
-Eliminer les formules.
Sub Calcul()
[G8].FormulaR1C1 = "=SUMPRODUCT((WEEKDAY(Dates,
2)=RC6)*(MONTH(Dates)=R7C)*Ca)"
[G8].Copy
Range("G8:I13").PasteSpecial
Paste:=xlPasteFormulasAndNumberFormats
Range("G8:I13").Copy
[G8].PasteSpecial Paste:=xlPasteValues
End Sub
http://cjoint.com/?cvmCj2mYT0
JB
On 21 fév, 08:24, "Pascal" wrote:Bonjour
J'ai cette
formule:SOMMEPROD(((JOURSEM(Dt;2)=$A$14)*(MOIS(Dt)=D$1)*(TR=$C17)*qtes))
qui s'applique à 120 cellules. Elle me sert à synthétiser des données de
la
feuille saisie
Le soucis c'est la lenteur de calcul à chaque fois que j'entre des
données
sur la feuille saisie.
Avec un Sommeprod c'est la première fois que cela m'arrive alors que le
classeur fait 192 ko
Merci
---
Antivirus avast! : message Sortant sain.
Base de donnees virale (VPS) : 000715-0, 20/02/2007
Analyse le : 21/02/2007 08:24:39
avast! - copyright (c) 1988-2007 ALWIL Software.http://www.avast.com
---
Antivirus avast! : message Entrant sain.
Base de donnees virale (VPS) : 000715-1, 21/02/2007
Analyse le : 21/02/2007 13:18:32
avast! - copyright (c) 1988-2007 ALWIL Software.http://www.avast.com
---
Antivirus avast! : message Sortant sain.
Base de donnees virale (VPS) : 000715-1, 21/02/2007
Analyse le : 21/02/2007 13:43:05
avast! - copyright (c) 1988-2007 ALWIL Software.http://www.avast.com-
Masquer le texte des messages précédents -
- Afficher le texte des messages précédents -
merci,
Mais en fait ce n'est pas cela qui ralentit. J'ai simplifié le tableau des
SOMMEPROD il ne fait plus que 25 cellules et le problême reste entier sur
la
feuille saisie.
Je crois que c'est mon code:
Private Sub Worksheet_Change(ByVal Target As Range)
Application.ScreenUpdating = False
Application.Calculation = xlManual
If Target.Column >= 1 And Target.Column <= 6 And Target.Count = 1 Then
Application.EnableEvents = False
Target.Copy
Target.Offset(1, 0).PasteSpecial Paste:=xlPasteValidation
Application.CutCopyMode = False
Application.EnableEvents = True
ActiveCell.Offset(-1, 1).Select
ActiveWorkbook.RefreshAll
Application.Calculation = xlAutomatic
Application.ScreenUpdating = True
End If
End Sub
Sur mes stats 2006 le tableau as plus de 4800 lignes c'est très lent sur
2007 j'en suis déjà à 530 et j'ai peur que cela ne ralentisse au fur et à
mesure des saisies.
Je vois pas ou cela pêche
"JB" <jacques.boisgont...@gmail.com> a écrit dans le message de news:
1172057352.817704.85...@k78g2000cwa.googlegroups.com...
Bonjour,
Utiliser le calcul sur ordre et appuyer sur F9 pour Maj
ou en VBA:
-Ecrire et copier la formule.
-Eliminer les formules.
Sub Calcul()
[G8].FormulaR1C1 = "=SUMPRODUCT((WEEKDAY(Dates,
2)=RC6)*(MONTH(Dates)=R7C)*Ca)"
[G8].Copy
Range("G8:I13").PasteSpecial
Paste:=xlPasteFormulasAndNumberFormats
Range("G8:I13").Copy
[G8].PasteSpecial Paste:=xlPasteValues
End Sub
http://cjoint.com/?cvmCj2mYT0
JB
On 21 fév, 08:24, "Pascal" <lapl...@wanadoo.fr> wrote:
Bonjour
J'ai cette
formule:SOMMEPROD(((JOURSEM(Dt;2)=$A$14)*(MOIS(Dt)=D$1)*(TR=$C17)*qtes))
qui s'applique à 120 cellules. Elle me sert à synthétiser des données de
la
feuille saisie
Le soucis c'est la lenteur de calcul à chaque fois que j'entre des
données
sur la feuille saisie.
Avec un Sommeprod c'est la première fois que cela m'arrive alors que le
classeur fait 192 ko
Merci
---
Antivirus avast! : message Sortant sain.
Base de donnees virale (VPS) : 000715-0, 20/02/2007
Analyse le : 21/02/2007 08:24:39
avast! - copyright (c) 1988-2007 ALWIL Software.http://www.avast.com
---
Antivirus avast! : message Entrant sain.
Base de donnees virale (VPS) : 000715-1, 21/02/2007
Analyse le : 21/02/2007 13:18:32
avast! - copyright (c) 1988-2007 ALWIL Software.http://www.avast.com
---
Antivirus avast! : message Sortant sain.
Base de donnees virale (VPS) : 000715-1, 21/02/2007
Analyse le : 21/02/2007 13:43:05
avast! - copyright (c) 1988-2007 ALWIL Software.http://www.avast.com-
Masquer le texte des messages précédents -
- Afficher le texte des messages précédents -
merci,
Mais en fait ce n'est pas cela qui ralentit. J'ai simplifié le tableau des
SOMMEPROD il ne fait plus que 25 cellules et le problême reste entier sur
la
feuille saisie.
Je crois que c'est mon code:
Private Sub Worksheet_Change(ByVal Target As Range)
Application.ScreenUpdating = False
Application.Calculation = xlManual
If Target.Column >= 1 And Target.Column <= 6 And Target.Count = 1 Then
Application.EnableEvents = False
Target.Copy
Target.Offset(1, 0).PasteSpecial Paste:=xlPasteValidation
Application.CutCopyMode = False
Application.EnableEvents = True
ActiveCell.Offset(-1, 1).Select
ActiveWorkbook.RefreshAll
Application.Calculation = xlAutomatic
Application.ScreenUpdating = True
End If
End Sub
Sur mes stats 2006 le tableau as plus de 4800 lignes c'est très lent sur
2007 j'en suis déjà à 530 et j'ai peur que cela ne ralentisse au fur et à
mesure des saisies.
Je vois pas ou cela pêche
"JB" a écrit dans le message de news:
Bonjour,
Utiliser le calcul sur ordre et appuyer sur F9 pour Maj
ou en VBA:
-Ecrire et copier la formule.
-Eliminer les formules.
Sub Calcul()
[G8].FormulaR1C1 = "=SUMPRODUCT((WEEKDAY(Dates,
2)=RC6)*(MONTH(Dates)=R7C)*Ca)"
[G8].Copy
Range("G8:I13").PasteSpecial
Paste:=xlPasteFormulasAndNumberFormats
Range("G8:I13").Copy
[G8].PasteSpecial Paste:=xlPasteValues
End Sub
http://cjoint.com/?cvmCj2mYT0
JB
On 21 fév, 08:24, "Pascal" wrote:Bonjour
J'ai cette
formule:SOMMEPROD(((JOURSEM(Dt;2)=$A$14)*(MOIS(Dt)=D$1)*(TR=$C17)*qtes))
qui s'applique à 120 cellules. Elle me sert à synthétiser des données de
la
feuille saisie
Le soucis c'est la lenteur de calcul à chaque fois que j'entre des
données
sur la feuille saisie.
Avec un Sommeprod c'est la première fois que cela m'arrive alors que le
classeur fait 192 ko
Merci
---
Antivirus avast! : message Sortant sain.
Base de donnees virale (VPS) : 000715-0, 20/02/2007
Analyse le : 21/02/2007 08:24:39
avast! - copyright (c) 1988-2007 ALWIL Software.http://www.avast.com
---
Antivirus avast! : message Entrant sain.
Base de donnees virale (VPS) : 000715-1, 21/02/2007
Analyse le : 21/02/2007 13:18:32
avast! - copyright (c) 1988-2007 ALWIL Software.http://www.avast.com
---
Antivirus avast! : message Sortant sain.
Base de donnees virale (VPS) : 000715-1, 21/02/2007
Analyse le : 21/02/2007 13:43:05
avast! - copyright (c) 1988-2007 ALWIL Software.http://www.avast.com-
Masquer le texte des messages précédents -
- Afficher le texte des messages précédents -
