bonjour
je fais
Private Sub Worksheet_Change(ByVal Target As Range)
'Debug.Print Target.Address
Intersect([deb_travaux_t].EntireColumn, Target.EntireRow) =
Application.WorksheetFunction.Sum(Cells(Target.Row, 5), Cells(Target.Row,
11))
End Sub
çà boucle pendant un bout de temps, puis ok, mais comme je rajoute des
totaux, il me faut une à 2 secondes à chaque saisie
bon, je comprends que je "change" aprés un "change" mais ?????
Merci
encore de la neige au sol en mayenne, Comment çà JPS , tu t'en fous ????
:o))
--
Pierre
MVP Access
j'ai mis If Target.Column = [deb_travaux_t].Column Then Exit Sub avant, évidement
-- Pierre MVP Access
"Pierre CFI [mvp]" a écrit dans le message de news:
bonjour je fais Private Sub Worksheet_Change(ByVal Target As Range)
'Debug.Print Target.Address Intersect([deb_travaux_t].EntireColumn, Target.EntireRow) = Application.WorksheetFunction.Sum(Cells(Target.Row, 5), Cells(Target.Row, 11)) End Sub
çà boucle pendant un bout de temps, puis ok, mais comme je rajoute des totaux, il me faut une à 2 secondes à chaque saisie bon, je comprends que je "change" aprés un "change" mais ????? Merci encore de la neige au sol en mayenne, Comment çà JPS , tu t'en fous ???? :o)) -- Pierre MVP Access
j'ai mis
If Target.Column = [deb_travaux_t].Column Then Exit Sub
avant, évidement
--
Pierre
MVP Access
"Pierre CFI [mvp]" <XXX_pierresalaun@wanadoo> a écrit dans le message de
news: OGTjYKsQHHA.2256@TK2MSFTNGP02.phx.gbl...
bonjour
je fais
Private Sub Worksheet_Change(ByVal Target As Range)
'Debug.Print Target.Address
Intersect([deb_travaux_t].EntireColumn, Target.EntireRow) =
Application.WorksheetFunction.Sum(Cells(Target.Row, 5), Cells(Target.Row,
11))
End Sub
çà boucle pendant un bout de temps, puis ok, mais comme je rajoute des
totaux, il me faut une à 2 secondes à chaque saisie
bon, je comprends que je "change" aprés un "change" mais ?????
Merci
encore de la neige au sol en mayenne, Comment çà JPS , tu t'en fous ????
:o))
--
Pierre
MVP Access
j'ai mis If Target.Column = [deb_travaux_t].Column Then Exit Sub avant, évidement
-- Pierre MVP Access
"Pierre CFI [mvp]" a écrit dans le message de news:
bonjour je fais Private Sub Worksheet_Change(ByVal Target As Range)
'Debug.Print Target.Address Intersect([deb_travaux_t].EntireColumn, Target.EntireRow) = Application.WorksheetFunction.Sum(Cells(Target.Row, 5), Cells(Target.Row, 11)) End Sub
çà boucle pendant un bout de temps, puis ok, mais comme je rajoute des totaux, il me faut une à 2 secondes à chaque saisie bon, je comprends que je "change" aprés un "change" mais ????? Merci encore de la neige au sol en mayenne, Comment çà JPS , tu t'en fous ???? :o)) -- Pierre MVP Access
Pierre CFI [mvp]
merci, je prends aussi
-- Pierre MVP Access
"AV" a écrit dans le message de news:
Désactive les évènements avant le calcul et réactive après :
