demande d'explication syntaxe macro

[bpol]

bonsoir le forum,

j'ai une macro:
Sheets("récap").PrintOut
'and
Sheets("récap").Copy After:=Worksheets(Sheets.Count)
ActiveSheet.Name = Range("D12")
'and
Sheets("récap").Select
Range("A15:E265").Select
Selection.ClearContents
'and
Worksheets("tableau").Select

est ce qu'une bonne âme pourrait me traduire en français la ligne en gras car nous avons des soucis selon la version d'excel ou du pc? car la macro bug à la hauteur de cette phrase

merci

BPOL

 

[Excel-lent]

Re : demande d'explication syntaxe macro

Bonsoir Bpol

Sheets("récap").Copy After:=Worksheets(Sheets.Count)

Personnellement, en lisant ce code j'en déduis que tu veux copier la feuille "Récap", et que tu souhaite mettre cette copie après le dernier onglet.

Ce qui revient au même que la manipulation :
-> sélectionner la feuille nommé "récap"
-> cliquer sur "Edition" / "Déplacer ou copier une feuille..."
-> cocher "créer une copie"
-> sélectionner dans la liste "en dernier"
-> cliquer sur "Ok" pour valider

Si le code ci-dessus a du mal à passer, essaye celui-ci (il fonctionne très bien chez moi - Excel 2003) :

Sheets("récap").Copy After:=Sheets(Sheets.Count)

Bonne soirée

 

[bpol]

Re : demande d'explication syntaxe macro

Bonsoir Excel-lent,

et merci

Bpol

 

[Excel-lent]

Re : demande d'explication syntaxe macro

Re-bonsoir Bpol,

Pour information, ton code ci-dessous :

Sheets("récap").Select
Range("A15:E265").Select
Selection.ClearContents

Peux-être simplifié de la façon suivante (et ta macro tourneras plus vite) :

Sheets("récap").[A15:E265].ClearContents

Bonne fin de soirée