Macro nouvelle feuille

poipoi · 11 Février 2009

Bonjour
Mon souci: comment faire pour éviter d'avoir une message d'erreur quand une macro lance une nouvelle feuille:
Je m'explique: à l'ouverture, le 1er onglet porte la valeur de B9 qui est égale à =AUJOURDHUI().
Si je lance ma macro pour une nouvelle feuille et que je change la date, j'ai une erreur ? je comprends bien pourquoi mais comment faire en sorte de ne plus l'avoir.
et comment faire pour que la nouvelle feuille se place automatiquement en dernière position à droite ?
je joins mon fichier mais il est simplissime (mes excuses)
D'avance merci à vous

gfortin9 · 11 Février 2009

Re : Macro nouvelle feuille

Allô!

Sub Macro3()
'
' Macro3 Macro
' Macro enregistrée le 11/02/2009 par Robert Blanc
'
'
Dim DerFeuil As Integer

DerFeuil = ActiveWorkbook.Sheets.Count ' compte le nombre de feuilles du classeur

Sheets(1).Select
Sheets(1).Copy After:=Sheets(DerFeuil)
End Sub

GFortin

kjin · 11 Février 2009

Re : Macro nouvelle feuille

Bonjour,

Code:

Sub Macro3()
ActiveSheet.Copy After:=Sheets(Sheets.Count)
End Sub

et dans ThisWorkBook

Code:

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
If Target.Address = "$B$9" Then
    Sh.Name = Format(Range("B9"), "ddd dd mmm yy")
End If
End Sub

A+
kjin

Paritec · 11 Février 2009

Re : Macro nouvelle feuille

Bonjour Kjin poipoi gfortin,
regardes ton fichier en retour je pense que j'ai compris ce que tu voulais
a+
papou

poipoi · 11 Février 2009

Re : Macro nouvelle feuille

Bonjour Paritec Kjin gfortin
Tout d'abord un très grand merci à vous...
Vous avez pu constater une nouvelle fois l'étendue de mon ignorance en ce qui concerne EXCEL.
je retiens la proposition de Kjin qui répond en tous points à mes souhaits..sachant que les autres m'ont aussi apporté quelque chose..
je vous souhaite une bien agréable journée et merci encore

Macro nouvelle feuille

poipoi

XLDnaute Impliqué

Pièces jointes

gfortin9

XLDnaute Occasionnel

kjin

XLDnaute Barbatruc

Paritec

XLDnaute Barbatruc

poipoi

XLDnaute Impliqué

Discussions similaires

Macro nouvelle feuille

poipoi

XLDnaute Impliqué

Pièces jointes

gfortin9

XLDnaute Occasionnel

kjin

XLDnaute Barbatruc

Paritec

XLDnaute Barbatruc

poipoi

XLDnaute Impliqué

Discussions similaires

Privacy & Transparency

Privacy & Transparency