probleme de macro

[lemou01]

Bonjour,

Voici mon petit problème avec l'enregistreur de macro j'ai pu automatiser une partie de mon travail mais le problème que je rencontre est le suivant :

une partie du code :

Sheets("3ème trimestre").Select
Sheets.Add
Sheets("Feuil10").Select
Sheets("Feuil10").Move Before:=Sheets(11)
Sheets("Feuil10").Select
Sheets("Feuil10").Name = "Impression 3"
Range("B2:G29").Select
Selection.Borders(xlDiagonalDown).LineStyle = xlNone
Selection.Borders(xlDiagonalUp).LineStyle = xlNone

au niveau de la création des feuilles j'aimerais que celle-ci se crée automatiquement c'est à a dire une nouvellle feuille a chque foi que j'enclenche la macro et non pas comme il est dit au dessus la feuil10.

Comprenez vous mon problème ou vous avez besoin de plus de détails ?

 

[Catrice]

Re : probleme de macro

Bonjour,

A adapter :

Sub Test()
Set Var1 = Sheets.Add(After:=Sheets(Sheets.Count)) 'Ou before, je ne sais pas ce qu tu veux faire exactement
Var1.Name = "Impression 3"
With Range("B2:G29")
    .Borders(xlDiagonalDown).LineStyle = xlNone
    .Borders(xlDiagonalUp).LineStyle = xlNone
End With
End Sub

 

[mutzik]

Re : probleme de macro

Bonjour,

euh ...... pourquoi sélectionner sheets("3ème trimestre")
pourquoi borders(none), il n'y a jamais de borders sur une nouvelle feuille
SAUF si tu veux créer une copie de cette feuille '3eme trimestre' et enlever les bordures (ou c'est moi qui n'ai rien compris et vive le ZOP)