copie macro onglet

gilbert_RGI

XLDnaute Barbatruc

• 30 Janvier 2014

• #2

Re : copie macro onglet

Bonjour

la réponse est dans la question

 

Vote positif 0 Vote négatif

DoubleZero

XLDnaute Barbatruc

• 30 Janvier 2014

• #3

Re : copie macro onglet

Bonjour, nonobat, gilbert_RGI, le Forum,

Un essai, avec ce code placé dans ThisWorkbook :

Code:

Option Explicit
Private Sub Workbook_SheetBeforeDoubleClick(ByVal Sh As Object, ByVal Target As Range, Cancel As Boolean)
    'noms d'onglets adapter
    If ActiveSheet.Name = "a" Or ActiveSheet.Name = "b" Then Cancel = Target.Column = 1 And Target.Count = 1
    If Cancel Then Target.EntireRow.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
End Sub

A bientôt 🙂

 

Vote positif 0 Vote négatif

N

nonobat

Guest

• 30 Janvier 2014

• #4

Re : copie macro onglet

bonjour gilbert_rgi
bonjour doublezero

j'ai essayer le code qui en effet marche tres bien en renommant l'onglet
mon probleme est que chaque jour j'ajoute un onglet auquel je donne la date du jour

ou alors faut que je fasse une macro qui me duplique mon onglet (ou il y a ma macro)
mais la non plus je ne sais pas comment faire

 

Vote positif 0 Vote négatif

gilbert_RGI

XLDnaute Barbatruc

• 30 Janvier 2014

• #5

Re : copie macro onglet

Tu peux aussi faire le contraire

CàD sur les feuilles nommées ne s'applique pas la macro

Option Explicit
Private Sub Workbook_SheetBeforeDoubleClick(ByVal Sh As Object, ByVal Target As Range, Cancel As Boolean)
'noms d'onglets adapter
If ActiveSheet.Name = "a" Or ActiveSheet.Name = "b" Then Cancel = Target.Column = 1 And Target.Count = 1
If Not Cancel Then Target.EntireRow.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
End Sub

 

Vote positif 0 Vote négatif