Bonjour,
cette macro plante, alors que je l'ai copier d'un autre de mes classeurs sur
lequel ça fonctionne, mais là ça fait 2h que je cherche, et je trouve pas
pourquoi. Merci de m'aider.
------
Sub SYNTHESE()
Application.ScreenUpdating = False
'(plantage ici)
Union([SYNTH1], [SYNTH2], [SYNTH3], [SYNTH4], [SYNTH5], [SYNTH6], [SYNTH7],
[SYNTH8], [SYNTH9]) _
.SpecialCells(xlCellTypeConstants, 23).EntireRow.Copy
Sheets("GA0").[A1000].End(xlUp).Offset(1, 0)
'(fin du plantage-surlignage jaune)
Sheets("GA0").Activate
Sheets("GA0").Select
Cells.Select
Selection.Interior.ColorIndex = xlNone
Selection.Borders(xlDiagonalDown).LineStyle = xlNone
Selection.Borders(xlDiagonalUp).LineStyle = xlNone
Selection.Borders(xlEdgeLeft).LineStyle = xlNone
Selection.Borders(xlEdgeTop).LineStyle = xlNone
Selection.Borders(xlEdgeBottom).LineStyle = xlNone
Selection.Borders(xlEdgeRight).LineStyle = xlNone
Selection.Borders(xlInsideVertical).LineStyle = xlNone
Selection.Borders(xlInsideHorizontal).LineStyle = xlNone
End Sub
-------------
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
Jpmonnier
Bonjour il semble qu'il manque un _ derriere ton EntireRow.Copy ... EntireRow.Copy _
-- Cordialement
"Sunburn" a écrit dans le message de news:
Bonjour, cette macro plante, alors que je l'ai copier d'un autre de mes classeurs sur lequel ça fonctionne, mais là ça fait 2h que je cherche, et je trouve pas pourquoi. Merci de m'aider. ------ Sub SYNTHESE() Application.ScreenUpdating = False '(plantage ici) Union([SYNTH1], [SYNTH2], [SYNTH3], [SYNTH4], [SYNTH5], [SYNTH6], [SYNTH7], [SYNTH8], [SYNTH9]) _ .SpecialCells(xlCellTypeConstants, 23).EntireRow.Copy Sheets("GA0").[A1000].End(xlUp).Offset(1, 0) '(fin du plantage-surlignage jaune) Sheets("GA0").Activate Sheets("GA0").Select Cells.Select Selection.Interior.ColorIndex = xlNone Selection.Borders(xlDiagonalDown).LineStyle = xlNone Selection.Borders(xlDiagonalUp).LineStyle = xlNone Selection.Borders(xlEdgeLeft).LineStyle = xlNone Selection.Borders(xlEdgeTop).LineStyle = xlNone Selection.Borders(xlEdgeBottom).LineStyle = xlNone Selection.Borders(xlEdgeRight).LineStyle = xlNone Selection.Borders(xlInsideVertical).LineStyle = xlNone Selection.Borders(xlInsideHorizontal).LineStyle = xlNone End Sub -------------
Yann
Bonjour
il semble qu'il manque un _ derriere ton EntireRow.Copy
... EntireRow.Copy _
--
Cordialement
jpmonnier-no-spam@neuf.fr
"Sunburn" <Sunburn@discussions.microsoft.com> a écrit dans le message de
news:DD9C47BC-0D98-4D6A-9AD2-A7F1C541F705@microsoft.com...
Bonjour,
cette macro plante, alors que je l'ai copier d'un autre de mes classeurs
sur
lequel ça fonctionne, mais là ça fait 2h que je cherche, et je trouve pas
pourquoi. Merci de m'aider.
------
Sub SYNTHESE()
Application.ScreenUpdating = False
'(plantage ici)
Union([SYNTH1], [SYNTH2], [SYNTH3], [SYNTH4], [SYNTH5], [SYNTH6],
[SYNTH7],
[SYNTH8], [SYNTH9]) _
.SpecialCells(xlCellTypeConstants, 23).EntireRow.Copy
Sheets("GA0").[A1000].End(xlUp).Offset(1, 0)
'(fin du plantage-surlignage jaune)
Sheets("GA0").Activate
Sheets("GA0").Select
Cells.Select
Selection.Interior.ColorIndex = xlNone
Selection.Borders(xlDiagonalDown).LineStyle = xlNone
Selection.Borders(xlDiagonalUp).LineStyle = xlNone
Selection.Borders(xlEdgeLeft).LineStyle = xlNone
Selection.Borders(xlEdgeTop).LineStyle = xlNone
Selection.Borders(xlEdgeBottom).LineStyle = xlNone
Selection.Borders(xlEdgeRight).LineStyle = xlNone
Selection.Borders(xlInsideVertical).LineStyle = xlNone
Selection.Borders(xlInsideHorizontal).LineStyle = xlNone
End Sub
-------------
Bonjour il semble qu'il manque un _ derriere ton EntireRow.Copy ... EntireRow.Copy _
-- Cordialement
"Sunburn" a écrit dans le message de news:
Bonjour, cette macro plante, alors que je l'ai copier d'un autre de mes classeurs sur lequel ça fonctionne, mais là ça fait 2h que je cherche, et je trouve pas pourquoi. Merci de m'aider. ------ Sub SYNTHESE() Application.ScreenUpdating = False '(plantage ici) Union([SYNTH1], [SYNTH2], [SYNTH3], [SYNTH4], [SYNTH5], [SYNTH6], [SYNTH7], [SYNTH8], [SYNTH9]) _ .SpecialCells(xlCellTypeConstants, 23).EntireRow.Copy Sheets("GA0").[A1000].End(xlUp).Offset(1, 0) '(fin du plantage-surlignage jaune) Sheets("GA0").Activate Sheets("GA0").Select Cells.Select Selection.Interior.ColorIndex = xlNone Selection.Borders(xlDiagonalDown).LineStyle = xlNone Selection.Borders(xlDiagonalUp).LineStyle = xlNone Selection.Borders(xlEdgeLeft).LineStyle = xlNone Selection.Borders(xlEdgeTop).LineStyle = xlNone Selection.Borders(xlEdgeBottom).LineStyle = xlNone Selection.Borders(xlEdgeRight).LineStyle = xlNone Selection.Borders(xlInsideVertical).LineStyle = xlNone Selection.Borders(xlInsideHorizontal).LineStyle = xlNone End Sub -------------
Yann
Sunburn
Ben en fait, non ça ne change rien si je met ... EntireRow.Copy_ Sheets("GA0")... Merci quand même. YANN
"Jpmonnier" a écrit :
Bonjour il semble qu'il manque un _ derriere ton EntireRow.Copy .... EntireRow.Copy _
-- Cordialement
"Sunburn" a écrit dans le message de news: > Bonjour, > cette macro plante, alors que je l'ai copier d'un autre de mes classeurs > sur > lequel ça fonctionne, mais là ça fait 2h que je cherche, et je trouve pas > pourquoi. Merci de m'aider. > ------ > Sub SYNTHESE() > Application.ScreenUpdating = False > '(plantage ici) > Union([SYNTH1], [SYNTH2], [SYNTH3], [SYNTH4], [SYNTH5], [SYNTH6], > [SYNTH7], > [SYNTH8], [SYNTH9]) _ > .SpecialCells(xlCellTypeConstants, 23).EntireRow.Copy > Sheets("GA0").[A1000].End(xlUp).Offset(1, 0) > '(fin du plantage-surlignage jaune) > Sheets("GA0").Activate > Sheets("GA0").Select > Cells.Select > Selection.Interior.ColorIndex = xlNone > Selection.Borders(xlDiagonalDown).LineStyle = xlNone > Selection.Borders(xlDiagonalUp).LineStyle = xlNone > Selection.Borders(xlEdgeLeft).LineStyle = xlNone > Selection.Borders(xlEdgeTop).LineStyle = xlNone > Selection.Borders(xlEdgeBottom).LineStyle = xlNone > Selection.Borders(xlEdgeRight).LineStyle = xlNone > Selection.Borders(xlInsideVertical).LineStyle = xlNone > Selection.Borders(xlInsideHorizontal).LineStyle = xlNone > End Sub > ------------- > > Yann
Ben en fait, non ça ne change rien si je met
... EntireRow.Copy_ Sheets("GA0")...
Merci quand même. YANN
"Jpmonnier" a écrit :
Bonjour
il semble qu'il manque un _ derriere ton EntireRow.Copy
.... EntireRow.Copy _
--
Cordialement
jpmonnier-no-spam@neuf.fr
"Sunburn" <Sunburn@discussions.microsoft.com> a écrit dans le message de
news:DD9C47BC-0D98-4D6A-9AD2-A7F1C541F705@microsoft.com...
> Bonjour,
> cette macro plante, alors que je l'ai copier d'un autre de mes classeurs
> sur
> lequel ça fonctionne, mais là ça fait 2h que je cherche, et je trouve pas
> pourquoi. Merci de m'aider.
> ------
> Sub SYNTHESE()
> Application.ScreenUpdating = False
> '(plantage ici)
> Union([SYNTH1], [SYNTH2], [SYNTH3], [SYNTH4], [SYNTH5], [SYNTH6],
> [SYNTH7],
> [SYNTH8], [SYNTH9]) _
> .SpecialCells(xlCellTypeConstants, 23).EntireRow.Copy
> Sheets("GA0").[A1000].End(xlUp).Offset(1, 0)
> '(fin du plantage-surlignage jaune)
> Sheets("GA0").Activate
> Sheets("GA0").Select
> Cells.Select
> Selection.Interior.ColorIndex = xlNone
> Selection.Borders(xlDiagonalDown).LineStyle = xlNone
> Selection.Borders(xlDiagonalUp).LineStyle = xlNone
> Selection.Borders(xlEdgeLeft).LineStyle = xlNone
> Selection.Borders(xlEdgeTop).LineStyle = xlNone
> Selection.Borders(xlEdgeBottom).LineStyle = xlNone
> Selection.Borders(xlEdgeRight).LineStyle = xlNone
> Selection.Borders(xlInsideVertical).LineStyle = xlNone
> Selection.Borders(xlInsideHorizontal).LineStyle = xlNone
> End Sub
> -------------
>
> Yann
Ben en fait, non ça ne change rien si je met ... EntireRow.Copy_ Sheets("GA0")... Merci quand même. YANN
"Jpmonnier" a écrit :
Bonjour il semble qu'il manque un _ derriere ton EntireRow.Copy .... EntireRow.Copy _
-- Cordialement
"Sunburn" a écrit dans le message de news: > Bonjour, > cette macro plante, alors que je l'ai copier d'un autre de mes classeurs > sur > lequel ça fonctionne, mais là ça fait 2h que je cherche, et je trouve pas > pourquoi. Merci de m'aider. > ------ > Sub SYNTHESE() > Application.ScreenUpdating = False > '(plantage ici) > Union([SYNTH1], [SYNTH2], [SYNTH3], [SYNTH4], [SYNTH5], [SYNTH6], > [SYNTH7], > [SYNTH8], [SYNTH9]) _ > .SpecialCells(xlCellTypeConstants, 23).EntireRow.Copy > Sheets("GA0").[A1000].End(xlUp).Offset(1, 0) > '(fin du plantage-surlignage jaune) > Sheets("GA0").Activate > Sheets("GA0").Select > Cells.Select > Selection.Interior.ColorIndex = xlNone > Selection.Borders(xlDiagonalDown).LineStyle = xlNone > Selection.Borders(xlDiagonalUp).LineStyle = xlNone > Selection.Borders(xlEdgeLeft).LineStyle = xlNone > Selection.Borders(xlEdgeTop).LineStyle = xlNone > Selection.Borders(xlEdgeBottom).LineStyle = xlNone > Selection.Borders(xlEdgeRight).LineStyle = xlNone > Selection.Borders(xlInsideVertical).LineStyle = xlNone > Selection.Borders(xlInsideHorizontal).LineStyle = xlNone > End Sub > ------------- > > Yann
Jpmonnier
Tu dois avoir un espace après Copy puis ton _
-- Cordialement
"Sunburn" a écrit dans le message de news:
Ben en fait, non ça ne change rien si je met ... EntireRow.Copy_ Sheets("GA0")... Merci quand même. YANN
"Jpmonnier" a écrit :
Bonjour il semble qu'il manque un _ derriere ton EntireRow.Copy .... EntireRow.Copy _
-- Cordialement
"Sunburn" a écrit dans le message de news: > Bonjour, > cette macro plante, alors que je l'ai copier d'un autre de mes > classeurs > sur > lequel ça fonctionne, mais là ça fait 2h que je cherche, et je trouve > pas > pourquoi. Merci de m'aider. > ------ > Sub SYNTHESE() > Application.ScreenUpdating = False > '(plantage ici) > Union([SYNTH1], [SYNTH2], [SYNTH3], [SYNTH4], [SYNTH5], [SYNTH6], > [SYNTH7], > [SYNTH8], [SYNTH9]) _ > .SpecialCells(xlCellTypeConstants, 23).EntireRow.Copy > Sheets("GA0").[A1000].End(xlUp).Offset(1, 0) > '(fin du plantage-surlignage jaune) > Sheets("GA0").Activate > Sheets("GA0").Select > Cells.Select > Selection.Interior.ColorIndex = xlNone > Selection.Borders(xlDiagonalDown).LineStyle = xlNone > Selection.Borders(xlDiagonalUp).LineStyle = xlNone > Selection.Borders(xlEdgeLeft).LineStyle = xlNone > Selection.Borders(xlEdgeTop).LineStyle = xlNone > Selection.Borders(xlEdgeBottom).LineStyle = xlNone > Selection.Borders(xlEdgeRight).LineStyle = xlNone > Selection.Borders(xlInsideVertical).LineStyle = xlNone > Selection.Borders(xlInsideHorizontal).LineStyle = xlNone > End Sub > ------------- > > Yann
Tu dois avoir un espace après Copy puis ton _
--
Cordialement
jpmonnier-no-spam@neuf.fr
"Sunburn" <Sunburn@discussions.microsoft.com> a écrit dans le message de
news:B2C85F19-C01A-4B72-A59D-A62DC1F19910@microsoft.com...
Ben en fait, non ça ne change rien si je met
... EntireRow.Copy_ Sheets("GA0")...
Merci quand même. YANN
"Jpmonnier" a écrit :
Bonjour
il semble qu'il manque un _ derriere ton EntireRow.Copy
.... EntireRow.Copy _
--
Cordialement
jpmonnier-no-spam@neuf.fr
"Sunburn" <Sunburn@discussions.microsoft.com> a écrit dans le message de
news:DD9C47BC-0D98-4D6A-9AD2-A7F1C541F705@microsoft.com...
> Bonjour,
> cette macro plante, alors que je l'ai copier d'un autre de mes
> classeurs
> sur
> lequel ça fonctionne, mais là ça fait 2h que je cherche, et je trouve
> pas
> pourquoi. Merci de m'aider.
> ------
> Sub SYNTHESE()
> Application.ScreenUpdating = False
> '(plantage ici)
> Union([SYNTH1], [SYNTH2], [SYNTH3], [SYNTH4], [SYNTH5], [SYNTH6],
> [SYNTH7],
> [SYNTH8], [SYNTH9]) _
> .SpecialCells(xlCellTypeConstants, 23).EntireRow.Copy
> Sheets("GA0").[A1000].End(xlUp).Offset(1, 0)
> '(fin du plantage-surlignage jaune)
> Sheets("GA0").Activate
> Sheets("GA0").Select
> Cells.Select
> Selection.Interior.ColorIndex = xlNone
> Selection.Borders(xlDiagonalDown).LineStyle = xlNone
> Selection.Borders(xlDiagonalUp).LineStyle = xlNone
> Selection.Borders(xlEdgeLeft).LineStyle = xlNone
> Selection.Borders(xlEdgeTop).LineStyle = xlNone
> Selection.Borders(xlEdgeBottom).LineStyle = xlNone
> Selection.Borders(xlEdgeRight).LineStyle = xlNone
> Selection.Borders(xlInsideVertical).LineStyle = xlNone
> Selection.Borders(xlInsideHorizontal).LineStyle = xlNone
> End Sub
> -------------
>
> Yann
Ben en fait, non ça ne change rien si je met ... EntireRow.Copy_ Sheets("GA0")... Merci quand même. YANN
"Jpmonnier" a écrit :
Bonjour il semble qu'il manque un _ derriere ton EntireRow.Copy .... EntireRow.Copy _
-- Cordialement
"Sunburn" a écrit dans le message de news: > Bonjour, > cette macro plante, alors que je l'ai copier d'un autre de mes > classeurs > sur > lequel ça fonctionne, mais là ça fait 2h que je cherche, et je trouve > pas > pourquoi. Merci de m'aider. > ------ > Sub SYNTHESE() > Application.ScreenUpdating = False > '(plantage ici) > Union([SYNTH1], [SYNTH2], [SYNTH3], [SYNTH4], [SYNTH5], [SYNTH6], > [SYNTH7], > [SYNTH8], [SYNTH9]) _ > .SpecialCells(xlCellTypeConstants, 23).EntireRow.Copy > Sheets("GA0").[A1000].End(xlUp).Offset(1, 0) > '(fin du plantage-surlignage jaune) > Sheets("GA0").Activate > Sheets("GA0").Select > Cells.Select > Selection.Interior.ColorIndex = xlNone > Selection.Borders(xlDiagonalDown).LineStyle = xlNone > Selection.Borders(xlDiagonalUp).LineStyle = xlNone > Selection.Borders(xlEdgeLeft).LineStyle = xlNone > Selection.Borders(xlEdgeTop).LineStyle = xlNone > Selection.Borders(xlEdgeBottom).LineStyle = xlNone > Selection.Borders(xlEdgeRight).LineStyle = xlNone > Selection.Borders(xlInsideVertical).LineStyle = xlNone > Selection.Borders(xlInsideHorizontal).LineStyle = xlNone > End Sub > ------------- > > Yann
Papyjac
Bonjour Sunburn
Moi, ce que je trouve curieus c'est le nombre 23 : je ne connais pas ce paramètre là : XlSpecialCellsValue peut être l'une de ces constantes XlSpecialCellsValue. xlErrors xlLogical xlNumbers xlTextValues -- Papyjac
"Sunburn" a écrit :
Bonjour, cette macro plante, alors que je l'ai copier d'un autre de mes classeurs sur lequel ça fonctionne, mais là ça fait 2h que je cherche, et je trouve pas pourquoi. Merci de m'aider. ------ Sub SYNTHESE() Application.ScreenUpdating = False '(plantage ici) Union([SYNTH1], [SYNTH2], [SYNTH3], [SYNTH4], [SYNTH5], [SYNTH6], [SYNTH7], [SYNTH8], [SYNTH9]) _ .SpecialCells(xlCellTypeConstants, 23).EntireRow.Copy Sheets("GA0").[A1000].End(xlUp).Offset(1, 0) '(fin du plantage-surlignage jaune) Sheets("GA0").Activate Sheets("GA0").Select Cells.Select Selection.Interior.ColorIndex = xlNone Selection.Borders(xlDiagonalDown).LineStyle = xlNone Selection.Borders(xlDiagonalUp).LineStyle = xlNone Selection.Borders(xlEdgeLeft).LineStyle = xlNone Selection.Borders(xlEdgeTop).LineStyle = xlNone Selection.Borders(xlEdgeBottom).LineStyle = xlNone Selection.Borders(xlEdgeRight).LineStyle = xlNone Selection.Borders(xlInsideVertical).LineStyle = xlNone Selection.Borders(xlInsideHorizontal).LineStyle = xlNone End Sub -------------
Yann
Bonjour Sunburn
Moi, ce que je trouve curieus c'est le nombre 23 : je ne connais pas ce
paramètre là :
XlSpecialCellsValue peut être l'une de ces constantes XlSpecialCellsValue.
xlErrors
xlLogical
xlNumbers
xlTextValues
--
Papyjac
"Sunburn" a écrit :
Bonjour,
cette macro plante, alors que je l'ai copier d'un autre de mes classeurs sur
lequel ça fonctionne, mais là ça fait 2h que je cherche, et je trouve pas
pourquoi. Merci de m'aider.
------
Sub SYNTHESE()
Application.ScreenUpdating = False
'(plantage ici)
Union([SYNTH1], [SYNTH2], [SYNTH3], [SYNTH4], [SYNTH5], [SYNTH6], [SYNTH7],
[SYNTH8], [SYNTH9]) _
.SpecialCells(xlCellTypeConstants, 23).EntireRow.Copy
Sheets("GA0").[A1000].End(xlUp).Offset(1, 0)
'(fin du plantage-surlignage jaune)
Sheets("GA0").Activate
Sheets("GA0").Select
Cells.Select
Selection.Interior.ColorIndex = xlNone
Selection.Borders(xlDiagonalDown).LineStyle = xlNone
Selection.Borders(xlDiagonalUp).LineStyle = xlNone
Selection.Borders(xlEdgeLeft).LineStyle = xlNone
Selection.Borders(xlEdgeTop).LineStyle = xlNone
Selection.Borders(xlEdgeBottom).LineStyle = xlNone
Selection.Borders(xlEdgeRight).LineStyle = xlNone
Selection.Borders(xlInsideVertical).LineStyle = xlNone
Selection.Borders(xlInsideHorizontal).LineStyle = xlNone
End Sub
-------------
Moi, ce que je trouve curieus c'est le nombre 23 : je ne connais pas ce paramètre là : XlSpecialCellsValue peut être l'une de ces constantes XlSpecialCellsValue. xlErrors xlLogical xlNumbers xlTextValues -- Papyjac
"Sunburn" a écrit :
Bonjour, cette macro plante, alors que je l'ai copier d'un autre de mes classeurs sur lequel ça fonctionne, mais là ça fait 2h que je cherche, et je trouve pas pourquoi. Merci de m'aider. ------ Sub SYNTHESE() Application.ScreenUpdating = False '(plantage ici) Union([SYNTH1], [SYNTH2], [SYNTH3], [SYNTH4], [SYNTH5], [SYNTH6], [SYNTH7], [SYNTH8], [SYNTH9]) _ .SpecialCells(xlCellTypeConstants, 23).EntireRow.Copy Sheets("GA0").[A1000].End(xlUp).Offset(1, 0) '(fin du plantage-surlignage jaune) Sheets("GA0").Activate Sheets("GA0").Select Cells.Select Selection.Interior.ColorIndex = xlNone Selection.Borders(xlDiagonalDown).LineStyle = xlNone Selection.Borders(xlDiagonalUp).LineStyle = xlNone Selection.Borders(xlEdgeLeft).LineStyle = xlNone Selection.Borders(xlEdgeTop).LineStyle = xlNone Selection.Borders(xlEdgeBottom).LineStyle = xlNone Selection.Borders(xlEdgeRight).LineStyle = xlNone Selection.Borders(xlInsideVertical).LineStyle = xlNone Selection.Borders(xlInsideHorizontal).LineStyle = xlNone End Sub -------------
Yann
ctac
Bonjour,
C'est la somme de tes quatre constantes. Voir l'aide SpecialCells, méthode
ctac
"Papyjac" a écrit dans le message de news:
Bonjour Sunburn
Moi, ce que je trouve curieus c'est le nombre 23 : je ne connais pas ce paramètre là : XlSpecialCellsValue peut être l'une de ces constantes XlSpecialCellsValue. xlErrors xlLogical xlNumbers xlTextValues -- Papyjac
Bonjour,
C'est la somme de tes quatre constantes.
Voir l'aide SpecialCells, méthode
ctac
"Papyjac" <Papyjac@discussions.microsoft.com> a écrit dans le message de
news: F27A747D-8798-4CE0-AE9F-9D174201C463@microsoft.com...
Bonjour Sunburn
Moi, ce que je trouve curieus c'est le nombre 23 : je ne connais pas ce
paramètre là :
XlSpecialCellsValue peut être l'une de ces constantes XlSpecialCellsValue.
xlErrors
xlLogical
xlNumbers
xlTextValues
--
Papyjac
C'est la somme de tes quatre constantes. Voir l'aide SpecialCells, méthode
ctac
"Papyjac" a écrit dans le message de news:
Bonjour Sunburn
Moi, ce que je trouve curieus c'est le nombre 23 : je ne connais pas ce paramètre là : XlSpecialCellsValue peut être l'une de ces constantes XlSpecialCellsValue. xlErrors xlLogical xlNumbers xlTextValues -- Papyjac