Mettre à jour onglet selon contenu cellule

Temjeh

XLDnaute Accro

• 16 Février 2009

• #2

Re : Mettre à jour onglet selon contenu cellule

Bonjour

Dans la feuil:

Code:

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

A+

Temjeh

 

Vote positif 0 Vote négatif

PascalXLD

XLDnaute Barbatruc

• 16 Février 2009

• #3

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

 

Vote positif 0 Vote négatif

G

Guest

Guest

• 16 Février 2009

• #4

Re : Mettre à jour onglet selon contenu cellule

Bonjour,

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

Si oui:

Code:

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🙂

 

Vote positif 0 Vote négatif

TheProdigy

XLDnaute Impliqué

• 16 Février 2009

• #5

Re : Mettre à jour onglet selon contenu cellule

Merci à tous;
Je testerai

 

Vote positif 0 Vote négatif

TheProdigy

XLDnaute Impliqué

• 20 Février 2009

• #6

Re : Mettre à jour onglet selon contenu cellule

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

Code:

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

 

Vote positif 0 Vote négatif

PascalXLD

XLDnaute Barbatruc

• 20 Février 2009

• #7

Re : Mettre à jour onglet selon contenu cellule

RE

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

 

Vote positif 0 Vote négatif

TheProdigy

XLDnaute Impliqué

• 20 Février 2009

• #8

Re : Mettre à jour onglet selon contenu cellule

Ci-joint les deux fichiers.
Cordialement

 

Pièces jointes

• onglet.xls

  35.5 KB · Affichages: 89
• TelechargerDonnees.xls

  13 KB · Affichages: 75
• onglet.xls

  35.5 KB · Affichages: 82
• TelechargerDonnees.xls

  13 KB · Affichages: 78
• onglet.xls

  35.5 KB · Affichages: 84
• TelechargerDonnees.xls

  13 KB · Affichages: 78

Vote positif 0 Vote négatif

PascalXLD

XLDnaute Barbatruc

• 20 Février 2009

• #9

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

 

Vote positif 0 Vote négatif

TheProdigy

XLDnaute Impliqué

• 20 Février 2009

• #10

Re : Mettre à jour onglet selon contenu cellule

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

Code:

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

 

Vote positif 0 Vote négatif

PascalXLD

XLDnaute Barbatruc

• 20 Février 2009

• #11

Re : Mettre à jour onglet selon contenu cellule

re

tu mets

Code:

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

 

Vote positif 0 Vote négatif

TheProdigy

XLDnaute Impliqué

• 20 Février 2009

• #12

Re : Mettre à jour onglet selon contenu cellule

Merci infiniment.

 

Vote positif 0 Vote négatif