Mettre à jour onglet selon contenu cellule

[TheProdigy]

Bonjour à tout le monde;:

Existe-t-il un moyen pour mettre à jour un onglet date qui devrait être le même qu'une cellule donnée?

Par exemple l'onglet devrait être liée à une cellule et doit afficher 16.02.2009

Merci

 

[Temjeh]

Re : Mettre à jour onglet selon contenu cellule

Bonjour

Dans la feuil:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Range("A1").Value = "" Then Exit Sub
Feuil1.Name = Range("A1").Text
End Sub

A+

Temjeh

 

[PascalXLD]

Re : Mettre à jour onglet selon contenu cellule

Bonjour

si j'ai bien compris code à mettre dans le code de la feuille où se trouve ta cellule. Dan sl'exemple c'est la cellule A1 qui contient la date

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("A1")) Is Nothing Then
If Range("A1") <> "" Then ActiveSheet.Name = Format(Range("A1"), "dd.mm.yyyy")
End If
End Sub

 

[Guest]

Re : Mettre à jour onglet selon contenu cellule

Bonjour,

Quand tu dis mettre à jour un onglet, tu parles de son nom?

Si oui:

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Address(0, 0) = "C2" Then
        If IsDate(Target.Text) Then ActiveSheet.Name = Format(Target, "dd.mm.yyyy")
    End If
End Sub

Où C2 contient la date

A+
Salut Pascal🙂

 

[TheProdigy]

Re : Mettre à jour onglet selon contenu cellule

Merci à tous;
Je testerai

 

[TheProdigy]

Re : Mettre à jour onglet selon contenu cellule

Merci à tous,
Mais cela ne marche pas parceque ma cellule contient une formule de type

=DROITE('C:\Documents and Settings\adil\Bureau\[TelechargerDonnees.xls]TelechargerDonnees'!$A$3;10)[/CODE

 

[PascalXLD]

Re : Mettre à jour onglet selon contenu cellule

RE

Je ne vois pas pourquoi cela ne marche pas même avec une formule

 

[TheProdigy]

Re : Mettre à jour onglet selon contenu cellule

Ci-joint les deux fichiers.
Cordialement

 

[PascalXLD]

Re : Mettre à jour onglet selon contenu cellule

RE

Retires ta macro et essaies celle-ci dans le thisworkbook

Private Sub Workbook_Activate()
If IsDate(Range("D2")) Then ActiveSheet.Name = Format(Range("D2"), "dd.mm.yyyy")
End Sub

 

[TheProdigy]

Re : Mettre à jour onglet selon contenu cellule

Merci encore pas,
Mais ça a marché comme suit

Private Sub Workbook_Open()
If IsDate(Sheets(1).Range("D2")) Then ActiveSheet.Name = Format(Sheets(1).Range("D2"), "dd.mm.yyyy")
End Sub

Comment adapter L'onglet selon la phrase suivante = [Le cours au "dd.mm.yyyy"]

Merci

 

[PascalXLD]

Re : Mettre à jour onglet selon contenu cellule

re

tu mets

If IsDate(Sheets(1).Range("D2")) Then ActiveSheet.Name = " Le cours au " & Format(Sheets(1).Range("D2"), "dd.mm.yyyy")

 

[TheProdigy]

Re : Mettre à jour onglet selon contenu cellule

Merci infiniment.