Discussion :

[John Parker]

Bonjour,

J'abuse un peu de ce forum ces derniers temps mais ça fait 2 jours que je me prends la tête sur une macro.
J'aimerai que si la cellule B2 (qui contient une date) de la feuille 1 est modifiée, les feuilles 1 à 4 soient renommées en fonction des cellules AA1 à AD1.
J'ai pour l'instant codifié ça dans ThisWorkBook:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
Option Explicit
 
Sub NommerFeuilles()
    Dim i As Long
        For i = 1 To 4
            Sheets(i).Name = Left([J4:M4].Cells(i), 31)
Next
End Sub
 
 
 
Private Sub Worksheet_Change(ByVal Target As Range)
 
    If Intersect(Target, Range("B2")) Is Nothing Then
        Call NommerFeuilles
    End If
 
End Sub

La fonction "NommerFeuilles()" marche très bien quand je la lance mais je n'arrive pas à la combiner avec Worksheet_Change...

Merci d'avance pour votre aide!

[78chris]

Bonjour

Code :

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

1
2
3
4
5
6
Private Sub Worksheet_Change(ByVal Target As Range)
 
    If Intersect(Target, Range("B2")) Is Nothing Then exit sub
    Call NommerFeuilles
 
End Sub

doit être dans le module de la feuille 1

Il est préférable de placer Sub NommerFeuilles() dans un module standard.

[John Parker]

C'est parfait!

Un grand merci

[Invité]

Salut,

C'est Not ... Is Nothing comme écrit implicitement par 78chris. Ça revient au même.

[John Parker]

En fait j'ai tout de même un soucis.
Etant donné que les feuilles prennent comme nom la date de chaque lundi sur 4 semaines (ex: feuille 1 = 19Aout, feuille 2 = 26Aout, feuille 3 = 2Septembre, feuille 4 = 9 Septembre), si je modifie la cellule B2 qui sert de base pour le renommage automatique des feuilles en 26Aout, j'ai un message d'erreur me disant que le nom de la feuille existe déjà. Est-il possible de forcer tout de même le renommage des 4 feuilles?

Merci

[78chris]

Bonjour

Renommer en commençant par la dernière

[John Parker]

En effet!
Merci pour l'astuce.
Sujet résolu