Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

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

  • Initiateur de la discussion Initiateur de la discussion ottomar
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

ottomar

XLDnaute Nouveau
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)

Code:
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
 
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 ...

Code:
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...

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

bonne journée
@+
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

Réponses
3
Affichages
913
Guest
G
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…