Inserer nouvelle feuille , mais rester sur l'active sheet!

Claudy · 7 Avril 2014

Bonsoir...
ça doit être simple , mais j'y arrive pas!
Comment insérer une nouvelle feuille "log" tout en restant sur la feuille active, donc ne pas activer la nouvelle feuille "Log" .
un peu dans le genre:

Sub testazerty()
On Error Resume Next
zaza = ActiveSheet.Range("A1")
Sheets.Add.Name = "Log"
GoTo zaza'pour retourner sur la feuille d'origine
End Sub

A+
Merci d'avance,
Claudy

Paf · 7 Avril 2014

Re : Inserer nouvelle feuille , mais rester sur l'active sheet!

Bonjour,

peut-être comme ceci:

Code:

Sub testazerty()
  On Error Resume Next
  zaza = ActiveSheet.Index
  Sheets.Add.Name = "Log"
  Worksheets(zaza).activate 'pour retourner sur la feuille d'origine
End Sub

A+

david84 · 7 Avril 2014

Re : Inserer nouvelle feuille , mais rester sur l'active sheet!

Bonsoir,

Code:

Sub testazerty()
On Error Resume Next
zaza = ActiveSheet.Name
Sheets.Add.Name = "Log"
Sheets(zaza).Activate
End Sub

A+

Claudy · 7 Avril 2014

Re : Inserer nouvelle feuille , mais rester sur l'active sheet!

Heu merci...
avec .index ça marchait pas!
mais j'ai alors essayé avec .name et ça roule!

Sub testazerty2()
On Error Resume Next
zaza = ActiveSheet.Name
Sheets.Add.Name = "Log"
Worksheets(zaza).Activate 'pour retourner sur la feuille d'origine
End Sub

Bonne soirée,
Claudy

Inserer nouvelle feuille , mais rester sur l'active sheet!

Claudy

XLDnaute Accro

Paf

XLDnaute Barbatruc

david84

XLDnaute Barbatruc

Claudy

XLDnaute Accro

Discussions similaires

Inserer nouvelle feuille , mais rester sur l'active sheet!

Claudy

XLDnaute Accro

Paf

XLDnaute Barbatruc

david84

XLDnaute Barbatruc

Claudy

XLDnaute Accro

Discussions similaires

Privacy & Transparency

Privacy & Transparency