Bonjour ! j'ai la macro suivante qui vise =E0 avoir deux=20
sous totaux diff=E9rents sur la m=EAme ligne d'une feuille=20
soustot_A: des sous totaux sommes qui existent d=E9j=E0 sur=20
une colonne G et des sous totaux MIN sur la colonne B,=20
sous totaux que je cr=E9=E9 dans une feuille "transit" qui=20
sera supprim=E9e ensuite=20
Sub rajout_dates()
Sheets("soustot_A").Select
' d=E9roulage des sous totaux
ActiveSheet.Outline.ShowLevels RowLevels:=3D3
Range("A1", [G1].End(xlDown)).Select
Selection.copy
' creation de la feuille de transit
Set nvlleFeuille =3D Worksheets.Add
nvlleFeuille.Name =3D "transit"
Range("A1").Select
ActiveSheet.Paste
Application.CutCopyMode =3D False
' suppression des sous totaux existants
Sheets("transit").Select
Range("A1", [D1].End(xlDown)).Select
Selection.RemoveSubtotal
' sous totaux date mini
Range("A1", [D1].End(xlDown)).Select
Selection.Subtotal GroupBy:=3D4, Function:=3DxlMin,=20
TotalList:=3DArray(3), _
Replace:=3DTrue, PageBreaks:=3DFalse,=20
SummaryBelowData:=3DTrue
'copie de la colonne des dates vers la feuille soustot_A
Sheets("transit").Select
Columns("C:C").Select
Selection.copy
Sheets("soustot_A").Select
Columns("B:B").Select
ActiveSheet.Paste
Application.CutCopyMode =3D False
End sub
bonjour gaston n'aurais-tu pas fait la gaffe d'écrire ta proc dans le module de la feuille transit au lieu de l'écrire dans un module du classeur? jps
gaston a écrit:
Bonjour ! j'ai la macro suivante qui vise à avoir deux sous totaux différents sur la même ligne d'une feuille soustot_A: des sous totaux sommes qui existent déjà sur une colonne G et des sous totaux MIN sur la colonne B, sous totaux que je créé dans une feuille "transit" qui sera supprimée ensuite
Sub rajout_dates() Sheets("soustot_A").Select ' déroulage des sous totaux ActiveSheet.Outline.ShowLevels RowLevels:=3 Range("A1", [G1].End(xlDown)).Select Selection.copy ' creation de la feuille de transit Set nvlleFeuille = Worksheets.Add nvlleFeuille.Name = "transit" Range("A1").Select ActiveSheet.Paste Application.CutCopyMode = False ' suppression des sous totaux existants Sheets("transit").Select Range("A1", [D1].End(xlDown)).Select Selection.RemoveSubtotal ' sous totaux date mini Range("A1", [D1].End(xlDown)).Select Selection.Subtotal GroupBy:=4, Function:=xlMin, TotalList:=Array(3), _ Replace:=True, PageBreaks:úlse, SummaryBelowData:=True 'copie de la colonne des dates vers la feuille soustot_A Sheets("transit").Select Columns("C:C").Select Selection.copy Sheets("soustot_A").Select Columns("B:B").Select ActiveSheet.Paste Application.CutCopyMode = False End sub
la dernière méthode Activesheet.Paste échoue ! Pourquoi à votre avis ?
bonjour gaston
n'aurais-tu pas fait la gaffe d'écrire ta proc dans le module de la
feuille transit au lieu de l'écrire dans un module du classeur?
jps
gaston a écrit:
Bonjour ! j'ai la macro suivante qui vise à avoir deux
sous totaux différents sur la même ligne d'une feuille
soustot_A: des sous totaux sommes qui existent déjà sur
une colonne G et des sous totaux MIN sur la colonne B,
sous totaux que je créé dans une feuille "transit" qui
sera supprimée ensuite
Sub rajout_dates()
Sheets("soustot_A").Select
' déroulage des sous totaux
ActiveSheet.Outline.ShowLevels RowLevels:=3
Range("A1", [G1].End(xlDown)).Select
Selection.copy
' creation de la feuille de transit
Set nvlleFeuille = Worksheets.Add
nvlleFeuille.Name = "transit"
Range("A1").Select
ActiveSheet.Paste
Application.CutCopyMode = False
' suppression des sous totaux existants
Sheets("transit").Select
Range("A1", [D1].End(xlDown)).Select
Selection.RemoveSubtotal
' sous totaux date mini
Range("A1", [D1].End(xlDown)).Select
Selection.Subtotal GroupBy:=4, Function:=xlMin,
TotalList:=Array(3), _
Replace:=True, PageBreaks:úlse,
SummaryBelowData:=True
'copie de la colonne des dates vers la feuille soustot_A
Sheets("transit").Select
Columns("C:C").Select
Selection.copy
Sheets("soustot_A").Select
Columns("B:B").Select
ActiveSheet.Paste
Application.CutCopyMode = False
End sub
la dernière méthode Activesheet.Paste échoue ! Pourquoi à
votre avis ?
bonjour gaston n'aurais-tu pas fait la gaffe d'écrire ta proc dans le module de la feuille transit au lieu de l'écrire dans un module du classeur? jps
gaston a écrit:
Bonjour ! j'ai la macro suivante qui vise à avoir deux sous totaux différents sur la même ligne d'une feuille soustot_A: des sous totaux sommes qui existent déjà sur une colonne G et des sous totaux MIN sur la colonne B, sous totaux que je créé dans une feuille "transit" qui sera supprimée ensuite
Sub rajout_dates() Sheets("soustot_A").Select ' déroulage des sous totaux ActiveSheet.Outline.ShowLevels RowLevels:=3 Range("A1", [G1].End(xlDown)).Select Selection.copy ' creation de la feuille de transit Set nvlleFeuille = Worksheets.Add nvlleFeuille.Name = "transit" Range("A1").Select ActiveSheet.Paste Application.CutCopyMode = False ' suppression des sous totaux existants Sheets("transit").Select Range("A1", [D1].End(xlDown)).Select Selection.RemoveSubtotal ' sous totaux date mini Range("A1", [D1].End(xlDown)).Select Selection.Subtotal GroupBy:=4, Function:=xlMin, TotalList:=Array(3), _ Replace:=True, PageBreaks:úlse, SummaryBelowData:=True 'copie de la colonne des dates vers la feuille soustot_A Sheets("transit").Select Columns("C:C").Select Selection.copy Sheets("soustot_A").Select Columns("B:B").Select ActiveSheet.Paste Application.CutCopyMode = False End sub
la dernière méthode Activesheet.Paste échoue ! Pourquoi à votre avis ?
gaston
je fais souvent des gaffes, c'est vrai, mais non , celle- là je l'ai pas faite ;-)
-----Message d'origine----- bonjour gaston n'aurais-tu pas fait la gaffe d'écrire ta proc dans le module de la
feuille transit au lieu de l'écrire dans un module du classeur?
jps
gaston a écrit:
Bonjour ! j'ai la macro suivante qui vise à avoir deux sous totaux différents sur la même ligne d'une feuille soustot_A: des sous totaux sommes qui existent déjà sur une colonne G et des sous totaux MIN sur la colonne B, sous totaux que je créé dans une feuille "transit" qui sera supprimée ensuite
Sub rajout_dates() Sheets("soustot_A").Select ' déroulage des sous totaux ActiveSheet.Outline.ShowLevels RowLevels:=3 Range("A1", [G1].End(xlDown)).Select Selection.copy ' creation de la feuille de transit Set nvlleFeuille = Worksheets.Add nvlleFeuille.Name = "transit" Range("A1").Select ActiveSheet.Paste Application.CutCopyMode = False ' suppression des sous totaux existants Sheets("transit").Select Range("A1", [D1].End(xlDown)).Select Selection.RemoveSubtotal ' sous totaux date mini Range("A1", [D1].End(xlDown)).Select Selection.Subtotal GroupBy:=4, Function:=xlMin, TotalList:=Array(3), _ Replace:=True, PageBreaks:úlse, SummaryBelowData:=True 'copie de la colonne des dates vers la feuille soustot_A Sheets("transit").Select Columns("C:C").Select Selection.copy Sheets("soustot_A").Select Columns("B:B").Select ActiveSheet.Paste Application.CutCopyMode = False End sub
la dernière méthode Activesheet.Paste échoue ! Pourquoi à
votre avis ?
.
je fais souvent des gaffes, c'est vrai, mais non , celle-
là je l'ai pas faite ;-)
-----Message d'origine-----
bonjour gaston
n'aurais-tu pas fait la gaffe d'écrire ta proc dans le
module de la
feuille transit au lieu de l'écrire dans un module du
classeur?
jps
gaston a écrit:
Bonjour ! j'ai la macro suivante qui vise à avoir deux
sous totaux différents sur la même ligne d'une feuille
soustot_A: des sous totaux sommes qui existent déjà sur
une colonne G et des sous totaux MIN sur la colonne B,
sous totaux que je créé dans une feuille "transit" qui
sera supprimée ensuite
Sub rajout_dates()
Sheets("soustot_A").Select
' déroulage des sous totaux
ActiveSheet.Outline.ShowLevels RowLevels:=3
Range("A1", [G1].End(xlDown)).Select
Selection.copy
' creation de la feuille de transit
Set nvlleFeuille = Worksheets.Add
nvlleFeuille.Name = "transit"
Range("A1").Select
ActiveSheet.Paste
Application.CutCopyMode = False
' suppression des sous totaux existants
Sheets("transit").Select
Range("A1", [D1].End(xlDown)).Select
Selection.RemoveSubtotal
' sous totaux date mini
Range("A1", [D1].End(xlDown)).Select
Selection.Subtotal GroupBy:=4, Function:=xlMin,
TotalList:=Array(3), _
Replace:=True, PageBreaks:=False,
SummaryBelowData:=True
'copie de la colonne des dates vers la feuille soustot_A
Sheets("transit").Select
Columns("C:C").Select
Selection.copy
Sheets("soustot_A").Select
Columns("B:B").Select
ActiveSheet.Paste
Application.CutCopyMode = False
End sub
la dernière méthode Activesheet.Paste échoue ! Pourquoi
à
je fais souvent des gaffes, c'est vrai, mais non , celle- là je l'ai pas faite ;-)
-----Message d'origine----- bonjour gaston n'aurais-tu pas fait la gaffe d'écrire ta proc dans le module de la
feuille transit au lieu de l'écrire dans un module du classeur?
jps
gaston a écrit:
Bonjour ! j'ai la macro suivante qui vise à avoir deux sous totaux différents sur la même ligne d'une feuille soustot_A: des sous totaux sommes qui existent déjà sur une colonne G et des sous totaux MIN sur la colonne B, sous totaux que je créé dans une feuille "transit" qui sera supprimée ensuite
Sub rajout_dates() Sheets("soustot_A").Select ' déroulage des sous totaux ActiveSheet.Outline.ShowLevels RowLevels:=3 Range("A1", [G1].End(xlDown)).Select Selection.copy ' creation de la feuille de transit Set nvlleFeuille = Worksheets.Add nvlleFeuille.Name = "transit" Range("A1").Select ActiveSheet.Paste Application.CutCopyMode = False ' suppression des sous totaux existants Sheets("transit").Select Range("A1", [D1].End(xlDown)).Select Selection.RemoveSubtotal ' sous totaux date mini Range("A1", [D1].End(xlDown)).Select Selection.Subtotal GroupBy:=4, Function:=xlMin, TotalList:=Array(3), _ Replace:=True, PageBreaks:úlse, SummaryBelowData:=True 'copie de la colonne des dates vers la feuille soustot_A Sheets("transit").Select Columns("C:C").Select Selection.copy Sheets("soustot_A").Select Columns("B:B").Select ActiveSheet.Paste Application.CutCopyMode = False End sub
la dernière méthode Activesheet.Paste échoue ! Pourquoi à
votre avis ?
.
sabatier
merdum de merdum alors gaston... je croyais car chez moi ta proc marche bien dans un module du classeur... alors je ne vois pas où est le chibrelot...navré jps
gaston a écrit:
je fais souvent des gaffes, c'est vrai, mais non , celle- là je l'ai pas faite ;-)
-----Message d'origine----- bonjour gaston n'aurais-tu pas fait la gaffe d'écrire ta proc dans le
module de la
feuille transit au lieu de l'écrire dans un module du
classeur?
jps
gaston a écrit:
Bonjour ! j'ai la macro suivante qui vise à avoir deux sous totaux différents sur la même ligne d'une feuille soustot_A: des sous totaux sommes qui existent déjà sur une colonne G et des sous totaux MIN sur la colonne B, sous totaux que je créé dans une feuille "transit" qui sera supprimée ensuite
Sub rajout_dates() Sheets("soustot_A").Select ' déroulage des sous totaux ActiveSheet.Outline.ShowLevels RowLevels:=3 Range("A1", [G1].End(xlDown)).Select Selection.copy ' creation de la feuille de transit Set nvlleFeuille = Worksheets.Add nvlleFeuille.Name = "transit" Range("A1").Select ActiveSheet.Paste Application.CutCopyMode = False ' suppression des sous totaux existants Sheets("transit").Select Range("A1", [D1].End(xlDown)).Select Selection.RemoveSubtotal ' sous totaux date mini Range("A1", [D1].End(xlDown)).Select Selection.Subtotal GroupBy:=4, Function:=xlMin, TotalList:=Array(3), _ Replace:=True, PageBreaks:úlse, SummaryBelowData:=True 'copie de la colonne des dates vers la feuille soustot_A Sheets("transit").Select Columns("C:C").Select Selection.copy Sheets("soustot_A").Select Columns("B:B").Select ActiveSheet.Paste Application.CutCopyMode = False End sub
la dernière méthode Activesheet.Paste échoue ! Pourquoi
à
votre avis ?
.
merdum de merdum alors gaston...
je croyais car chez moi ta proc marche bien dans un module du classeur...
alors je ne vois pas où est le chibrelot...navré
jps
gaston a écrit:
je fais souvent des gaffes, c'est vrai, mais non , celle-
là je l'ai pas faite ;-)
-----Message d'origine-----
bonjour gaston
n'aurais-tu pas fait la gaffe d'écrire ta proc dans le
module de la
feuille transit au lieu de l'écrire dans un module du
classeur?
jps
gaston a écrit:
Bonjour ! j'ai la macro suivante qui vise à avoir deux
sous totaux différents sur la même ligne d'une feuille
soustot_A: des sous totaux sommes qui existent déjà sur
une colonne G et des sous totaux MIN sur la colonne B,
sous totaux que je créé dans une feuille "transit" qui
sera supprimée ensuite
Sub rajout_dates()
Sheets("soustot_A").Select
' déroulage des sous totaux
ActiveSheet.Outline.ShowLevels RowLevels:=3
Range("A1", [G1].End(xlDown)).Select
Selection.copy
' creation de la feuille de transit
Set nvlleFeuille = Worksheets.Add
nvlleFeuille.Name = "transit"
Range("A1").Select
ActiveSheet.Paste
Application.CutCopyMode = False
' suppression des sous totaux existants
Sheets("transit").Select
Range("A1", [D1].End(xlDown)).Select
Selection.RemoveSubtotal
' sous totaux date mini
Range("A1", [D1].End(xlDown)).Select
Selection.Subtotal GroupBy:=4, Function:=xlMin,
TotalList:=Array(3), _
Replace:=True, PageBreaks:úlse,
SummaryBelowData:=True
'copie de la colonne des dates vers la feuille soustot_A
Sheets("transit").Select
Columns("C:C").Select
Selection.copy
Sheets("soustot_A").Select
Columns("B:B").Select
ActiveSheet.Paste
Application.CutCopyMode = False
End sub
la dernière méthode Activesheet.Paste échoue ! Pourquoi
merdum de merdum alors gaston... je croyais car chez moi ta proc marche bien dans un module du classeur... alors je ne vois pas où est le chibrelot...navré jps
gaston a écrit:
je fais souvent des gaffes, c'est vrai, mais non , celle- là je l'ai pas faite ;-)
-----Message d'origine----- bonjour gaston n'aurais-tu pas fait la gaffe d'écrire ta proc dans le
module de la
feuille transit au lieu de l'écrire dans un module du
classeur?
jps
gaston a écrit:
Bonjour ! j'ai la macro suivante qui vise à avoir deux sous totaux différents sur la même ligne d'une feuille soustot_A: des sous totaux sommes qui existent déjà sur une colonne G et des sous totaux MIN sur la colonne B, sous totaux que je créé dans une feuille "transit" qui sera supprimée ensuite
Sub rajout_dates() Sheets("soustot_A").Select ' déroulage des sous totaux ActiveSheet.Outline.ShowLevels RowLevels:=3 Range("A1", [G1].End(xlDown)).Select Selection.copy ' creation de la feuille de transit Set nvlleFeuille = Worksheets.Add nvlleFeuille.Name = "transit" Range("A1").Select ActiveSheet.Paste Application.CutCopyMode = False ' suppression des sous totaux existants Sheets("transit").Select Range("A1", [D1].End(xlDown)).Select Selection.RemoveSubtotal ' sous totaux date mini Range("A1", [D1].End(xlDown)).Select Selection.Subtotal GroupBy:=4, Function:=xlMin, TotalList:=Array(3), _ Replace:=True, PageBreaks:úlse, SummaryBelowData:=True 'copie de la colonne des dates vers la feuille soustot_A Sheets("transit").Select Columns("C:C").Select Selection.copy Sheets("soustot_A").Select Columns("B:B").Select ActiveSheet.Paste Application.CutCopyMode = False End sub
la dernière méthode Activesheet.Paste échoue ! Pourquoi
à
votre avis ?
.
michdenis
Bonjour Gaston,
Si tu remplaces dans ta macro cette section :
'copie de la colonne des dates vers la feuille soustot_A Sheets("transit").Select Columns("C:C").Select Selection.copy Sheets("soustot_A").Select Columns("B:B").Select ActiveSheet.Paste Application.CutCopyMode = False
Par : 'copie de la colonne des dates vers la feuille soustot_A Sheets("transit").Columns("C:C").Copy _ Sheets("soustot_A").Columns("B:B")
Est-ce que cela résout ton problème ?
Salutations!
"gaston" a écrit dans le message de news:19f6901c41d63$7ff55990$ je fais souvent des gaffes, c'est vrai, mais non , celle- là je l'ai pas faite ;-)
-----Message d'origine----- bonjour gaston n'aurais-tu pas fait la gaffe d'écrire ta proc dans le module de la
feuille transit au lieu de l'écrire dans un module du classeur?
jps
gaston a écrit:
Bonjour ! j'ai la macro suivante qui vise à avoir deux sous totaux différents sur la même ligne d'une feuille soustot_A: des sous totaux sommes qui existent déjà sur une colonne G et des sous totaux MIN sur la colonne B, sous totaux que je créé dans une feuille "transit" qui sera supprimée ensuite
Sub rajout_dates() Sheets("soustot_A").Select ' déroulage des sous totaux ActiveSheet.Outline.ShowLevels RowLevels:=3 Range("A1", [G1].End(xlDown)).Select Selection.copy ' creation de la feuille de transit Set nvlleFeuille = Worksheets.Add nvlleFeuille.Name = "transit" Range("A1").Select ActiveSheet.Paste Application.CutCopyMode = False ' suppression des sous totaux existants Sheets("transit").Select Range("A1", [D1].End(xlDown)).Select Selection.RemoveSubtotal ' sous totaux date mini Range("A1", [D1].End(xlDown)).Select Selection.Subtotal GroupBy:=4, Function:=xlMin, TotalList:=Array(3), _ Replace:=True, PageBreaks:úlse, SummaryBelowData:=True 'copie de la colonne des dates vers la feuille soustot_A Sheets("transit").Select Columns("C:C").Select Selection.copy Sheets("soustot_A").Select Columns("B:B").Select ActiveSheet.Paste Application.CutCopyMode = False End sub
la dernière méthode Activesheet.Paste échoue ! Pourquoi à
votre avis ?
.
Bonjour Gaston,
Si tu remplaces dans ta macro cette section :
'copie de la colonne des dates vers la feuille soustot_A
Sheets("transit").Select
Columns("C:C").Select
Selection.copy
Sheets("soustot_A").Select
Columns("B:B").Select
ActiveSheet.Paste
Application.CutCopyMode = False
Par :
'copie de la colonne des dates vers la feuille soustot_A
Sheets("transit").Columns("C:C").Copy _
Sheets("soustot_A").Columns("B:B")
Est-ce que cela résout ton problème ?
Salutations!
"gaston" <anonymous@discussions.microsoft.com> a écrit dans le message de
news:19f6901c41d63$7ff55990$a301280a@phx.gbl...
je fais souvent des gaffes, c'est vrai, mais non , celle-
là je l'ai pas faite ;-)
-----Message d'origine-----
bonjour gaston
n'aurais-tu pas fait la gaffe d'écrire ta proc dans le
module de la
feuille transit au lieu de l'écrire dans un module du
classeur?
jps
gaston a écrit:
Bonjour ! j'ai la macro suivante qui vise à avoir deux
sous totaux différents sur la même ligne d'une feuille
soustot_A: des sous totaux sommes qui existent déjà sur
une colonne G et des sous totaux MIN sur la colonne B,
sous totaux que je créé dans une feuille "transit" qui
sera supprimée ensuite
Sub rajout_dates()
Sheets("soustot_A").Select
' déroulage des sous totaux
ActiveSheet.Outline.ShowLevels RowLevels:=3
Range("A1", [G1].End(xlDown)).Select
Selection.copy
' creation de la feuille de transit
Set nvlleFeuille = Worksheets.Add
nvlleFeuille.Name = "transit"
Range("A1").Select
ActiveSheet.Paste
Application.CutCopyMode = False
' suppression des sous totaux existants
Sheets("transit").Select
Range("A1", [D1].End(xlDown)).Select
Selection.RemoveSubtotal
' sous totaux date mini
Range("A1", [D1].End(xlDown)).Select
Selection.Subtotal GroupBy:=4, Function:=xlMin,
TotalList:=Array(3), _
Replace:=True, PageBreaks:úlse,
SummaryBelowData:=True
'copie de la colonne des dates vers la feuille soustot_A
Sheets("transit").Select
Columns("C:C").Select
Selection.copy
Sheets("soustot_A").Select
Columns("B:B").Select
ActiveSheet.Paste
Application.CutCopyMode = False
End sub
la dernière méthode Activesheet.Paste échoue ! Pourquoi
à
'copie de la colonne des dates vers la feuille soustot_A Sheets("transit").Select Columns("C:C").Select Selection.copy Sheets("soustot_A").Select Columns("B:B").Select ActiveSheet.Paste Application.CutCopyMode = False
Par : 'copie de la colonne des dates vers la feuille soustot_A Sheets("transit").Columns("C:C").Copy _ Sheets("soustot_A").Columns("B:B")
Est-ce que cela résout ton problème ?
Salutations!
"gaston" a écrit dans le message de news:19f6901c41d63$7ff55990$ je fais souvent des gaffes, c'est vrai, mais non , celle- là je l'ai pas faite ;-)
-----Message d'origine----- bonjour gaston n'aurais-tu pas fait la gaffe d'écrire ta proc dans le module de la
feuille transit au lieu de l'écrire dans un module du classeur?
jps
gaston a écrit:
Bonjour ! j'ai la macro suivante qui vise à avoir deux sous totaux différents sur la même ligne d'une feuille soustot_A: des sous totaux sommes qui existent déjà sur une colonne G et des sous totaux MIN sur la colonne B, sous totaux que je créé dans une feuille "transit" qui sera supprimée ensuite
Sub rajout_dates() Sheets("soustot_A").Select ' déroulage des sous totaux ActiveSheet.Outline.ShowLevels RowLevels:=3 Range("A1", [G1].End(xlDown)).Select Selection.copy ' creation de la feuille de transit Set nvlleFeuille = Worksheets.Add nvlleFeuille.Name = "transit" Range("A1").Select ActiveSheet.Paste Application.CutCopyMode = False ' suppression des sous totaux existants Sheets("transit").Select Range("A1", [D1].End(xlDown)).Select Selection.RemoveSubtotal ' sous totaux date mini Range("A1", [D1].End(xlDown)).Select Selection.Subtotal GroupBy:=4, Function:=xlMin, TotalList:=Array(3), _ Replace:=True, PageBreaks:úlse, SummaryBelowData:=True 'copie de la colonne des dates vers la feuille soustot_A Sheets("transit").Select Columns("C:C").Select Selection.copy Sheets("soustot_A").Select Columns("B:B").Select ActiveSheet.Paste Application.CutCopyMode = False End sub
la dernière méthode Activesheet.Paste échoue ! Pourquoi à