macro actualiser mes onglets

[arrazki]

Bonjour,


j'ai une macro qui me permet de modifier mes le nom de mes onglet du fichier automatiquement en fonction d'un nombre d'élémént. Le problème c'est que mes onglet ne se mettent pas à jour automatiquement, je doit avec fois actualiser manuelement! avez vous une solution.

La cellule D31 contient une formule, je doit à chaque me mettre sur cette celulle faire entrée pour mettre à jour mon onglet.(macro)
je cherche une solution qui mette à jour automatiquement la macro

Voici ma macro

Private Sub Worksheet_Change(ByVal Target As Range)
'MAcro Dan le 08/12/2010
If Not Intersect(Target, Range("D31")) Is Nothing Then
ActiveSheet.Name = "Bulgarie-" & Target

End If
End Sub

 

[Pierrot93]

Re : macro actualiser mes onglets

Bonjour,

essaye ceci, dans le module de la feuille :

Option Explicit
Private Sub Worksheet_Calculate()
Me.Name = "Bulgarie-" & Range("D31").Value
End Sub

bonne journée
@+

 

[arrazki]

Re : macro actualiser mes onglets

bonjour,

ta macro ne marche pas,

Voici mon fichier, le but c'est que tous les onglet s'actualise automatiquement

 

[Pierrot93]

Re : macro actualiser mes onglets

Re,
et si...

 

[arrazki]

Re : macro actualiser mes onglets

re,

Merci ça marche

 

[arrazki]

Re : macro actualiser mes onglets

en faite non je n'y arrive pas

 

[Pierrot93]

Re : macro actualiser mes onglets

Re,

bah... ca marche ou ca marche pas ? message d'erreur ou pas le résultat attendu.... dans le fichier, pas le code proposé, donc forcément....