Microsoft 365 VBA Récupérer le format texte d'une date pour nommer un onglet

E

eric72

XLDnaute Accro

• 6 Décembre 2023

• #2

Bonjour,
as-tu essayé cela :
=TEXTE(c1;"jj/mm/aa")

 

Vote positif 0 Vote négatif

E

eric72

XLDnaute Accro

• 6 Décembre 2023

• #3

Pour nommer ton onglet avec une macro:

VB:

Sub RenameSheet()

Feuil1.Name = Feuil1.Range("e6")

End Sub

 

Vote positif 0 Vote négatif

Eric C

XLDnaute Barbatruc

• 6 Décembre 2023

• #4

Bonjour le forum
Bonjour chriss6999
Oupssss -Pas rafraichi : bonjour eric72

Format personnalisé en C1: jj mm yyyy
puis :

VB:

Private Sub Worksheet_Change(ByVal Target As Range)
   If Target.Address <> "$C$1" Then Exit Sub
   Me.Name = Target.Value
   End Sub

Bonne journée à toutes & à tous
Eric c

 

Dernière édition: 6 Décembre 2023

Vote positif 0 Vote négatif

patricktoulon

XLDnaute Barbatruc

• 6 Décembre 2023

• #5

Eric C à dit:

Bonjour le forum
Bonjour chriss6999
Oupssss -Pas rafraichi : bonjour eric72

Format personnalisé en C1: jj mm yyyy
puis :

VB:

Private Sub Worksheet_Change(ByVal Target As Range)
   If Target.Address <> "$C$1" Then Exit Sub
   Me.Name = Target.Value
   End Sub

Bonne journée à toutes & à tous
Eric c

Cliquez pour agrandir...

et ma soeur elle bat le beurre


sinon je crois que c'est mieux comme ça

VB:

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Address <> "$C$1" Then Exit Sub
    If Target = "" Then Exit Sub
    Me.Name = Target.Text
End Sub

bonne nuit 🤣

 

Vote positif 0 Vote négatif

Phil69970

XLDnaute Barbatruc

• 6 Décembre 2023

• #6

Bonjour à tous

Voici ma version évidement le choix de la feuille est modifiable

Merci de ton retour

 

Pièces jointes

• Renommer V1.xlsm

  16.4 KB · Affichages: 4

Vote positif 0 Vote négatif

Eric C

XLDnaute Barbatruc

• 6 Décembre 2023

• #7

Bonjour le fil

@patrick (je ne savais pas que ta soeur était crémière... 🤣
- Ne sachant pas au départ comment la date était insérée ou d'où elle provenait (code - formule), j'ai fait au plus simple.

 

Vote positif 0 Vote négatif

patricktoulon

XLDnaute Barbatruc

• 6 Décembre 2023

• #8

re

- Ne sachant pas au départ comment la date était insérée ou d'où elle provenait (code - formule), j'ai fait au plus simple.

Cliquez pour agrandir...

une date c'est une date elle a donc les separateurs qui sont imcompatibles avec les nom de feuilles
c'est la base les caractères interdits
et surtout ne pas confondre (.text/.value) et qui puis est avec des dates

 

Vote positif 0 Vote négatif

chris6999

XLDnaute Impliqué

• 6 Décembre 2023

• #9

Bonjour et merci à tous pour vos réponses.

La solution est donc simplement
ActiveSheet.Name = Range("C1").Text
car ma cellule C1 est déjà en format personnalisé comme préconisé dans plusieurs propositions.

Merci encore et bonne soirée à tous

 

Vote positif 0 Vote négatif