Dater automatiquement l'onglet

Bonsoir Forum

Est-il possible que les lignes 1 et 2 se transcrivent automatiquement sur l'onglet à la place des numéros de feuille ?

Ci-joint un fichier

https://www.excel-pratique.com/~files/doc2/Date_auto.xls

Merci

Adrien

Bonsoir,

essaie ce code

ActiveSheet.Name = Format(Range("A1"), "dd-mm-yy") & "_" & Range("A2")

Amicalement

Dan

Bonsoir Nad-Dan

Si je l'ai mis à la bonne place, il ne fonctionne pas parfaitement. Feuil1 de l'onglet disparait mais les lignes 1 et 2 ne s'écrivent pas à la place.

Adrien

Re,

Feuil1 de l'onglet disparait mais les lignes 1 et 2 ne s'écrivent pas à la place.

Et qu'est ce qui s'inscrit à la place de feuil 1 ???

Dan

Bonjour Dan

Il n'y a rien d'inscrit, seulement un petit _

Merci

A+

Adrien

Salut le forum

AdrienHeiser, tu as bien de quoi d'écrit en cellules A1 et A2 ?

Mytå

re,

comme le laisse sous entendre USB512, si cela ne fonctionne pas c'est que tu n'as rien en A1 et A2.

Est-ce que ton fichier est le même que celui posté ici ? J'ai des doutes là...

sinon si tes cellules sont fusionnées essaie aussi comme ceci :

Sub test()
If IsEmpty(Range("A1")) Or IsEmpty(Range("A2")) Then MsgBox "il manque une donnée en A1 ou A2": End
ActiveSheet.Name = Format(Range("A1"), "dd-mm-yy") & "_" & Range("A2")
End Sub

Dan

Bonsoir Nad-Dan

Effectivement les cellules des lignes 1 et 2 sont fusionnées de la colonne A à G.

La ligne 1 est formatée pour recevoir une date

La ligne 2 est une liste déroulante sur des types d'activités.

Je vais tester ton dernier code.

Merci

Adrien

RE

Depuis que je bidouille dans les codes, je vais au hasard aussi, ton code je l'insère où ?

J'ouvre un module ? ou je le colle dans This Workbock

Dans Général ou dans Worksheet

Merci

Adrien

Re le forum

Si tu veux l'utiliser sur plusieurs feuilles, dans ThisWorkBook

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
If IsEmpty(Range("A1")) Or IsEmpty(Range("A2")) Then MsgBox "il manque une donnée en A1 ou A2": End
ActiveSheet.Name = Format(Range("A1"), "dd-mm-yy") & "_" & Range("A2")
End Sub

Si juste pour une feuille, dans le module de la feuille

Private Sub Worksheet_Change(ByVal Target As Range)
If IsEmpty(Range("A1")) Or IsEmpty(Range("A2")) Then MsgBox "il manque une donnée en A1 ou A2": End
ActiveSheet.Name = Format(Range("A1"), "dd-mm-yy") & "_" & Range("A2")
End Sub

Mytå

Bonsoir

Merci à toutes celles et ceux qui ce sont penchés sur mon pb. Ca marche. J'ai mis le code dans This Workbook.

Merci

A+

Adrien