copie automatique d'une feuille modèle lors de sa sélection

[ottomar]

Bonjour à tous et meilleurs voeux

Excel 2003 - xppro

J'ai un classeur avec une feuille "MODELE" et je voudrais simplement (pour des raisons de... cohabitation) dupliquer cette feuille modèle lors de sa sélection (clic sur l'onglet) ça marche avec un bouton, je voudrais éviter le bouton ! Le problème est qu'à la création de la nouvelle feuille, elle se crée avec le même code dans son Worksheet_Activate, ça me fait une boucle d'une msgbox en plus : comment éviter ? (j'espère être clair)

Private Sub Worksheet_Activate()
Dim msg, style, title, reponse
msg = "Créer une nouvelle feuille de journée"
style = vbYesNo + vbExclamation + vbDefaultButton1
title = ""

reponse = MsgBox(msg, style, title)
If reponse = vbYes Then
    Sheets("MODELE").Select
    Sheets("MODELE").Copy Before:=Sheets(1)
    End If
End Sub

d'autre part, comment éviter toute écriture dans cette feuille modèle ?
il y a des moments où je me sens plus bête que d'habitude
merci pour les réponses

 

[Pierrot93]

Re : copie automatique d'une feuille modèle lors de sa sélection

Bonjour,

pour éviter la boucle, supprime la selection de la feuille, rarement utile les "select" en vba ...

reponse = MsgBox(msg, style, title)
If reponse = vbYes Then
    Sheets("MODELE").Copy Before:=Sheets(1)
    End If
End Sub

pour éviter la copie du code dans la nouvelle feuille créée, place le code dans le module "thisworkbook", en utilisant l'événement "SheetActivate" et en testant le nom de la feuille activée...

Private Sub Workbook_SheetActivate(ByVal Sh As Object)
If Sh.Name = "MODELE" Then
'ton code
End If
End Sub

bonne journée
@+