Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Applications Microsoft Office Excel message d'attente

message d'attente

7 réponses
Avatar
andrea
encore une question

Pendant qu'excel calcule les sous totaux

j'aimerais qu'il y ait un message qui dit "merci de patienter"

c'est possible ?

merci d'avance

============================
Range("B1").Select
Selection.CurrentRegion.Select
Selection.Sort Key1:=Range("B2"), Order1:=xlAscending,
Key2:=Range("I2") _
, Order2:=xlAscending, Header:=xlGuess, OrderCustom:=1,
MatchCase:= _
False, Orientation:=xlTopToBottom,
DataOption1:=xlSortTextAsNumbers, _
DataOption2:=xlSortNormal
Selection.Subtotal GroupBy:=2, Function:=xlSum, TotalList:=Array(6,
17), _
Replace:=True, PageBreaks:=False, SummaryBelowData:=True
=============================
Signaler un problème avec ce contenu

7 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Avatar
lSteph
Bonjour,

Le 19/11/2006, andrea a supposé :
Pendant qu'excel calcule les sous totaux
j'aimerais qu'il y ait un message ..


Application.Statusbar= "merci de patienter"
Range("B1").Select
Selection.CurrentRegion.Select
Selection.Sort Key1:=Range("B2"), Order1:=xlAscending, Key2:=Range("I2")
_
, Order2:=xlAscending, Header:=xlGuess, OrderCustom:=1, MatchCase:=
_
False, Orientation:=xlTopToBottom, DataOption1:=xlSortTextAsNumbers,
_
DataOption2:=xlSortNormal
Selection.Subtotal GroupBy:=2, Function:=xlSum, TotalList:=Array(6, 17),
_
Replace:=True, PageBreaks:úlse, SummaryBelowData:=True
Application.Statusbar= false

''''''''''

'Cdlt
'lSteph

--
- -

Avatar
daniel
bonjour,
tout ça trouvé sur ce forum au fil des jours.
bonne réception.

http://cjoint.com/?ltkEcBUpX2
Avatar
MichDenis
fichier exemple là http://cjoint.com/?ltkXnNucva


"andrea" a écrit dans le message de news:

encore une question

Pendant qu'excel calcule les sous totaux

j'aimerais qu'il y ait un message qui dit "merci de patienter"

c'est possible ?

merci d'avance

=========================== Range("B1").Select
Selection.CurrentRegion.Select
Selection.Sort Key1:=Range("B2"), Order1:=xlAscending,
Key2:=Range("I2") _
, Order2:=xlAscending, Header:=xlGuess, OrderCustom:=1,
MatchCase:= _
False, Orientation:=xlTopToBottom,
DataOption1:=xlSortTextAsNumbers, _
DataOption2:=xlSortNormal
Selection.Subtotal GroupBy:=2, Function:=xlSum, TotalList:=Array(6,
17), _
Replace:=True, PageBreaks:úlse, SummaryBelowData:=True
=============================
Avatar
andrea
merci
tout fontionne bien

mais la fonction sous total met un temps fou pour s'éxécuter

mon tableau à environ 300 lignes et 15 colonnes



MichDenis a écrit:

fichier exemple là http://cjoint.com/?ltkXnNucva


"andrea" a écrit dans le message de news:

encore une question

Pendant qu'excel calcule les sous totaux

j'aimerais qu'il y ait un message qui dit "merci de patienter"

c'est possible ?

merci d'avance

=========================== > Range("B1").Select
Selection.CurrentRegion.Select
Selection.Sort Key1:=Range("B2"), Order1:=xlAscending,
Key2:=Range("I2") _
, Order2:=xlAscending, Header:=xlGuess, OrderCustom:=1,
MatchCase:= _
False, Orientation:=xlTopToBottom,
DataOption1:=xlSortTextAsNumbers, _
DataOption2:=xlSortNormal
Selection.Subtotal GroupBy:=2, Function:=xlSum, TotalList:=Array(6,
17), _
Replace:=True, PageBreaks:úlse, SummaryBelowData:=True
============================ >



Avatar
andrea
en fait j'ai eu le temps de compter jusqu'a 95
il y a une somme sur une seule colonne

andrea a écrit:

merci
tout fontionne bien

mais la fonction sous total met un temps fou pour s'éxécuter

mon tableau à environ 300 lignes et 15 colonnes



MichDenis a écrit:

fichier exemple là http://cjoint.com/?ltkXnNucva


"andrea" a écrit dans le message de news:

encore une question

Pendant qu'excel calcule les sous totaux

j'aimerais qu'il y ait un message qui dit "merci de patienter"

c'est possible ?

merci d'avance

=========================== >> Range("B1").Select
Selection.CurrentRegion.Select
Selection.Sort Key1:=Range("B2"), Order1:=xlAscending,
Key2:=Range("I2") _
, Order2:=xlAscending, Header:=xlGuess, OrderCustom:=1,
MatchCase:= _
False, Orientation:=xlTopToBottom,
DataOption1:=xlSortTextAsNumbers, _
DataOption2:=xlSortNormal
Selection.Subtotal GroupBy:=2, Function:=xlSum, TotalList:=Array(6,
17), _
Replace:=True, PageBreaks:úlse, SummaryBelowData:=True
============================ >>






Avatar
MichDenis
| merci
| tout fontionne bien

| mais la fonction sous total met un temps fou pour s'éxécuter

| mon tableau à environ 300 lignes et 15 colonnes


Je n'ai pas de fonction "Sous-Total" dans le fichier soumis !
;-)
Avatar
andrea
je fais exécuter "donnée, sous total" somme sur quantité

MichDenis a écrit:
| merci
| tout fontionne bien

| mais la fonction sous total met un temps fou pour s'éxécuter

| mon tableau à environ 300 lignes et 15 colonnes


Je n'ai pas de fonction "Sous-Total" dans le fichier soumis !
;-)