Mettre le nom de la feuille, dans une cellule

maval

XLDnaute Barbatruc

• 25 Avril 2013

• #16

Re : Mettre le nom de la feuille, dans une cellule

Re

Merci pour tous et bonne journée à tous

@+

Max

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 25 Avril 2013

• #17

Re : Mettre le nom de la feuille, dans une cellule

Bonjour à tous,

Code:

Private Sub Workbook_SheetActivate(ByVal Sh As Object)
If IsDate("1/" & Sh.Name) Then
  Sh.[A1].NumberFormat = "mm - yyyy"
  Sh.[A1] = CDate("1/" & Sh.Name)
End If
End Sub

A+

 

Vote positif 0 Vote négatif

Efgé

XLDnaute Barbatruc

• 25 Avril 2013

• #18

Re : Mettre le nom de la feuille, dans une cellule

Re à tous, Bonjour Job 🙂

maval à dit:

...Sur le Post11 sa ne fonctionne pas?...

Cliquez pour agrandir...

J'avais précisé :

Efgé à dit:

...mais en partant du principe élémentaire du bon "OrtOGraf" des noms de feuilles...

Cliquez pour agrandir...

De toutes façons la proposition de Job résoud le problème de belle manière 🙂

Cordialement

 

Vote positif 0 Vote négatif

maval

XLDnaute Barbatruc

• 25 Avril 2013

• #19

Re : Mettre le nom de la feuille, dans une cellule

Re,

Merci Efgé, Job

Je vous souhaite une bonne soirée

Max

 

Vote positif 0 Vote négatif