Discussion :

[croky23]

Bonjour le forum
Chaque feuille de mon fichier est nommé avec cette formule

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

ActiveSheet.Name = "PDG" & "_" & [année]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

ActiveSheet.Name = "P1" & "_" & [année]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

ActiveSheet.Name = "P2" & "_" & [année]

etc etc

année étant le nom d'une cellule dans PDG qui correspond à une date .
donc des que je change cette date je dois ouvrir chaque feuille pour que la mise a jour des noms des onglets se fasse.
Question
il y a t il moyen d'automatiser dés que je change la valeur de cellule [année]
merci de d'aide
amicalement

[RyuAutodidacte]

Bonjour,
oui tu peux utiliser les évènement d'une feuille ou d'un classeur au changement de la cellule voulu (avec utilisation Intersect en plus) :
Les liens :
Les évènements dans la feuille de calcul Excel
Les évènements du module objet ThisWorkbook, dans Excel


tu utliseras surtout change dans ton cas :
II-E. Worksheet_Change

après selon les paramètre tu pourrais le faire sur le classeur en une seule fois
II-20. Workbook_SheetChange

Donc au changement de la cellule voulu, vérification si le nom de la feuille différent de "PDG" & "_" & [année] par exemple
si c'est le cas changé le nom
la réponse au si devrait être true ou false

Edit : qq petits ajouts + petite modif

[croky23]

merci beaucoup pour la réaction rapide
Mais je dois rectifier mon niveau qui est vraiment un débutant en vba, et je dois t'avouer que je n'ai pas tout compris dans ta solution.
si tu peux m'aiguiller davantage je t'en serai reconnaissant
merci

[RyuAutodidacte]

juste avec les liens données un test rapide :
Intersect ici sert juste à cibler le changement de la cellule incriminé moi j'ai choisi A1 renommé "année" (pour Intersect si les autres cellules de la feuille sont modifiés la macro ne s'applique pas)

ici j'ai fait au plus simple j'ai choisi l'événement de la feuille donc le code est à mettre dans la feuille concerné; l'évènement choisi est (au changement de la feuille) :
Private Sub Worksheet_Change(ByVal Target As Range)

ce qui donne avec un test de réponse par MsgBox (change l'année de la cellule, une différente, puis remet la même)

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
Private Sub Worksheet_Change(ByVal Target As Range)
    If Not Application.Intersect(Target, Range("A1")) Is Nothing Then
        MsgBox ActiveSheet.Name = "PDG" & "_" & [année]
    End If
End Sub

Edit : donc au final on aura :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
Private Sub Worksheet_Change(ByVal Target As Range)
    If Not Application.Intersect(Target, Range("A1")) Is Nothing Then
        If ActiveSheet.Name <> "PDG" & "_" & [année] Then
            ActiveSheet.Name = "PDG" & "_" & [année]
        End If
    End If
End Sub

Voilà je suis allé au plus simple.
PS : Pense à utiliser l'aide avec en te positionnant sur la partie du code voulu puis faire F1

[croky23]

re
j'ai donc mis

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
 
Private Sub Worksheet_Change(ByVal Target As Range)
    If Not Application.Intersect(Target, Range("A1")) Is Nothing Then
        If ActiveSheet.Name <> "PDG" & "_" & [année] Then
            ActiveSheet.Name = "PDG" & "_" & [année]
        End If
    End If
End Sub

dans le code de ma page PDG
mais il se passe rien ou alors j'ai rien pigé
merci

[RyuAutodidacte]

sans plus d'explication difficile de dire pourquoi
voilà un fichier exemple, année est en A1 - modifie A1 manuellement
Test.xls