Copie d'onglet avec nom généré par une cellule

job75

XLDnaute Barbatruc

• 17 Février 2015

• #2

Re : Copie d'onglet avec nom généré par une cellule

Bonsoir fred2705,

A placer dans ThisWorkbook :

Code:

Private Sub Workbook_SheetActivate(ByVal Sh As Object)
If Sh.Name Like "Contact*)" Or Sh.Name Like "Con*ecteur*)" Then
  Application.DisplayAlerts = False
  Sh.Delete
End If
End Sub

Vous avez mis 3 "n" à "Connnecteur", mettez-en 10 si vous voulez...

A+

 

Vote positif 0 Vote négatif

F

fred2705

Guest

• 17 Février 2015

• #3

Re : Copie d'onglet avec nom généré par une cellule

Bonsoir Job75,

Effectivement 2n à connecteur suffiront 🙂

Merci ce code fonctionne bien, mais mes deux onglets (contact et connecteur) vont évoluer et on pourra ce retrouver avec des noms totalement différents! Dans ce cas y a t'il une autre solution?

Merci pour votre aide et bonne soirée.

 

Vote positif 0 Vote négatif

F

fred2705

Guest

• 17 Février 2015

• #4

Re : Copie d'onglet avec nom généré par une cellule

J'ai essayé avec le code ci dessous: Il ne copie plus par l'onglet ça c'est ok, par contre lorsque je lance la copie par le bouton macro, il fait la copie sur la dernière feuille qui existe déjà ! Arggh!

Code:

Private Sub Workbook_SheetActivate(ByVal Sh As Object)
If Sh.Name Like "*)" Then
  Application.DisplayAlerts = False
  Sh.Delete
End If
End Sub

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 17 Février 2015

• #5

Re : Copie d'onglet avec nom généré par une cellule

Message annulé.

 

Dernière édition: 17 Février 2015

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 17 Février 2015

• #6

Re : Copie d'onglet avec nom généré par une cellule

Re,

Dans vos 2 macros de copie, pour éviter le lancement de la Workbook_SheetActivate :

- mettez Application.EnableEvents = False au début

- et Application.EnableEvents = True à la fin.

Bonne nuit.

 

Vote positif 0 Vote négatif

F

fred2705

Guest

• 18 Février 2015

• #7

Re : Copie d'onglet avec nom généré par une cellule

Je vais essayer tout ça demain, merci bcp et bonne nuit

 

Vote positif 0 Vote négatif

F

fred2705

Guest

• 18 Février 2015

• #8

Re : Copie d'onglet avec nom généré par une cellule

Merci bcp, ca marche parfaitement

 

Vote positif 0 Vote négatif