Actualisation d'une donnée à la création d'une nouvelle feuille

[sfconstant]

Bonjour à tous et Meilleurs Voeux
Je recherche une formule capable d'actualisere une donnée dans une feuille récapitulative aprés la création d'une nouvelle feuille.

Ci-joint un fichier avec trois feuilles et une donnée en c1 qui change suivant les feuilles. J'aimerais donc que s'affiche sur la feuille récapitulative, la donnée c1 de la dernière feuille créee (feuille 4 puis 5, 6...).
Merci d'avance.
sfconstant

 

[sfconstant]

Re : Actualisation d'une donnée à la création d'une nouvelle feuille

Précision cette donnée pourrait être un nombre avec une unité (texte)

 

[Dull]

Re : Actualisation d'une donnée à la création d'une nouvelle feuille

salut

essaye cette ligne de code à placer dans le module de la feuille récapitulatif

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Sheets("Récapitulatif").Range("B1").Value = Sheets(Sheets.Count).Range("C1").Value
End Sub

Ou alors dans l'activation de la feuille

Private Sub Worksheet_Activate()
Sheets("Récapitulatif").Range("B1").Value = Sheets(Sheets.Count).Range("C1").Value
End Sub

bonne journée

 

[sfconstant]

Re : Actualisation d'une donnée à la création d'une nouvelle feuille

Merci beaucoup le premier code incorporé à la feuille récapitulative fonctionne trés bien.
Je voudrais maintenant incorporer automatiquement à la donnée de chaque feuille : Montant du mois de ... : (le mois étant le mon de la feuille). Est-ce possible ?
Merci beaucoup.

 

[Dull]

Re : Actualisation d'une donnée à la création d'une nouvelle feuille

Re sfconstant le Forum,

A condition que j'ai bien compris

Private Sub Worksheet_Activate()
If Sheets(Sheets.Count).Name = "Avril" Or ActiveSheet.Name = "Août" Then
    Sheets("Récapitulatif").Range("B1").Value = "Montant du mois d'" & Sheets(Sheets.Count).Name & " " & Sheets(Sheets.Count).Range("C1").Value
        Else
    Sheets("Récapitulatif").Range("B1").Value = "Montant du mois de " & Sheets(Sheets.Count).Name & " " & Sheets(Sheets.Count).Range("C1").Value
End If
End Sub

bonne journée

 

[sfconstant]

Re : Actualisation d'une donnée à la création d'une nouvelle feuille

Merci beaucoup pour cette solution qui fonctionne trés bien, je voudrais juste rajouter un séparateur de millier.
Merci encore . A plus.

 

[Dull]

Re : Actualisation d'une donnée à la création d'une nouvelle feuille

Salut sfconstant, le Forum

Peut-être comme cela

Private Sub Worksheet_Activate()
If Sheets(Sheets.Count).Name = "Avril" Or ActiveSheet.Name = "Août" Then
Sheets("Récapitulatif").Range("B1").Value = "Montant du mois d' " & Sheets(Sheets.Count).Name _
    & " " & [B]Format(Sheets(Sheets.Count).Range("C1"), "# ###.##") [/B]& " €"
    Else
    Sheets("Récapitulatif").Range("B1").Value = "Montant du mois de " & Sheets(Sheets.Count).Name _
    & " " & [B]Format(Sheets(Sheets.Count).Range("C1"), "# ###.##")[/B] & " €"
End If
End Sub

Bonne Journée

 

[sfconstant]

Re : Actualisation d'une donnée à la création d'une nouvelle feuille

Merci beaucoup Dull, ça marche trés bien.
Profites bien de ta Région car ici dans le Nord, il ne fait pas beau.
A +
Bonne soirée
sfconstant