Discussion :

[Maxou 10]

Bonjour à tous,

ça fait plusieurs jours que j’essaie de trouver mais sans résultat donc une fois de plus je me tourne vers vous...
je mets un chiffre dans ma case C7 et E7 ce qui me donne un résultat en D9. Ce résultat j'aimerais que ce soit le nom de la feuille...
j'aimerais que si je change une donnée en C7 ou E7, cela change automatique mon nom de feuille sans d'autre intervention de ma part....

Cela est-il faisable ?

Merci et bonne soirée

[Philippe Tulliez]

Bonjour,
Pour modifier le nom d'une feuille, c'est la propriété Name de l'objet feuille (Sheet ou Worksheet)
Pour détecter le changement de valeur dans une cellule d'une feuille (attention pas le changement renvoyé par une formule) , c'est la procédure événementielle Worksheet_Change présente dans le module d'une feuille
Pour lire le contenu d'une cellule c'est la propriété Value de l'objet Range

Petit exemple très simple où le nom de la feuille dont le CodeName est shtData est modifié par le contenu de la cellule A2 de la feuille où se trouve la procédure Worksheet_Change si le contenu de cette cellule a été modifié

Attention : dans cet exemple, aucune vérification n'est faites sur l'existence d'un nom identique ce qui génèrera inévitablement une erreur

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)
  With Target
   If .Count = 1 And .Address = "$A$2" Then
      shtData.Name = .Value
   End If
  End With
End Sub

A lire éventuellement

• Les évènements dans la feuille de calcul Excel
• Description de l'objet Feuille de calcul dans Excel
• Comment s’affranchir de la modification du nom de la feuille en utilisant son CodeName
• La gestion des erreurs dans Excel
  

[Maxou 10]

Salut,

Çà doit être une manipulation que je fais mal car je n'arrive toujours pas a faire fonctionner le code...

ton code tu le met dans un module ce qui active la création d'une macro... je n’arrive pas à la trouver dans mon classeur après et faire fonctionner cette macro

[Philippe Tulliez]

Bonjour,
La procédure événementielle que j'ai publiée se place dans le module de la feuille comme je l'ai expliqué dans la deuxième ligne de mon intervention et qui est parfaitement expliqué dans le tutoriel titré Les évènements dans la feuille de calcul Excel que j'ai référencé également dans ma réponse.
Vous avez tout en main pour réussir.

[Maxou 10]

Coucou,

Voila j'ai réussi a faire ce que je voulais. Je ne sais pas si c’était le mieux a faire mais cela fonctionne....
J'ai réussi a enlever le message d'erreur avec On "Error Resume Next" si doublon mais est-il possible de faire nom de feuille (+ 1) si il y a doublon ?

dans module j'ai fait :

Code :

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

1
2
3
4
5
6
7
8
9
10
 Sub Nom_Feuille()
    On Error Resume Next
    fichierexistant = GetAttr(fichier) And vbDirectory
        If fichierexistant = False Then
            MkDir (SauvegardeIndicators)
        End If
 
    ActiveSheet.Name = Range("C12").Value
    Range("C15").Select
End Sub

Cette macro est appeler dans la feuille avec :

Code :

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

1
2
3
4
5
Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Address = "$C$10" Or Target.Address = "$E$10" Then
        Call Nom_Feuille
    End If
End Sub

Merci encore pour votre aide cela m'aide une fois de plus beaucoup....
Bonne journée

[Philippe Tulliez]

Bonjour,

est-il possible de faire nom de feuille (+ 1) si il y a doublon ?

Lire mon billet sur le sujet Comment incrémenter le nom d’une feuille Excel lorsqu’il existe déjà ?

[Maxou 10]

Nickel une fois de plus, je vous mets mon code pour ce que ça intéresse
Merci de vos réponse.

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
Sub Nom_Feuille()
    Dim Counter As Integer
    On Error GoTo ErrHandler
 
    ActiveSheet.Name = Range("C12").Value & IIf(Counter, " (" & Counter & ")", "")
    Range("C15").Select
    On Error GoTo 0
Exit Sub
 
ErrHandler:
    With Err
        If .Number = 1004 Then
            Counter = Counter + 1
            Resume
        End If
    End With
End Sub