Macro pour renommer un onglet de page

Lone-wolf

XLDnaute Barbatruc

• 16 Février 2017

• #2

Bonsoir Chantal

Est-ce que tu copie la plage qui est dans la feuille Sheets("15-02-17") ?

VB:

ActiveCell.Offset(0, 1).Range("A1:E1").Copy
Sheets("15-02-17").Activate
With Activesheet
.Name = "20-02-15"
.Cells.Offset(-1, 6).Range("A1").PasteSpecial Paste:=xlPasteValues
Application.CutCopyMode = 0
Application.GoTo .Range("a2")
End With

 

Dernière édition: 16 Février 2017

Vote positif 0 Vote négatif

C

ChantalTreize

XLDnaute Occasionnel

• 16 Février 2017

• #3

Oui je recopie une cellule sur la même page que je veux renommer

 

Vote positif 0 Vote négatif

Lone-wolf

XLDnaute Barbatruc

• 16 Février 2017

• #4

Re

Je ne sais pas si c'est moi qui bagasse mais, si tu est dans la feuille 15-02-17, quel interêt à copier Ai:E1 en A1??? 😵 🙄

 

Vote positif 0 Vote négatif

C

ChantalTreize

XLDnaute Occasionnel

• 16 Février 2017

• #5

parcequelle doit etre recopier 30 fois pour avoir une feuille parjour

 

Vote positif 0 Vote négatif

Lone-wolf

XLDnaute Barbatruc

• 16 Février 2017

• #6

Ok, mais c'est beaucoup mieux comme ceci, si tu veux avoir une feuille avec la date du jour. À mettre dans ThisWorkbook.

Private Sub Workbook_NewSheet(ByVal Sh As Object)
ActiveSheet.Name = Format(Date, "dd-mm-yyyy")
End Sub

En cliquant sur l'icône à côté des onglets, tu aura la feuille renommée avec la date du jour.

Si il n'y a pas de mise en forme: Sheets(1).Range("a1:e1").Copy ActiveSheet.Range("a1")

 

Dernière édition: 16 Février 2017

Vote positif 0 Vote négatif

C

ChantalTreize

XLDnaute Occasionnel

• 16 Février 2017

• #7

Merci beaucoup ça fonctionne très bien

 

Vote positif 0 Vote négatif