Nommer un onglet

[Toutchoco]

Bonjour à Tous,
Je viens de créer un modèle de fichier à une seule feuille. Je dois diffuser ce fichier et chaque destinataire recopiera la feuille initiale tant qu'il en aura besoin.
Je souhaite lorsque la cellule B5 de chaque onglet,sera renseignée, AUTOMATIQUEMENT l'onglet en question soit renommé de la valeur de B5...
Merci d'avance !
Cordi@lement

 

[qmike]

bonjour
Sheets(x).name=range('A1')

 

[David]

qmike écrit:

bonjour
Sheets(x).name=range('A1')

il voulait dire B5 😉 , bien evidemment.

tcho

 

[Toutchoco]

Merci David et qmike, mais je me suis mal exprimée.. ce que je souhaite c'est qu'en tapant 'toto' en B5 mon onglet soit AUTOMATIQUEMENT renommé 'TOTO' sans avoir à lancer la macro qui renommera ma feuille..
..

Merci d'avance

 

[myDearFriend!]

Bonsoir Toutchoco, qmike, David, le Forum.


Ci-joint un exemple qui devrait répondre à ton problème Toutchoco...

La feuille est renommée dès validation de la cellule, dès lors où l'expression saisie est autorisée en tant que nom de feuille :

Private Sub Worksheet_Change(ByVal Target As Range)
      If Not Application.Intersect(Target, Range('B5')) Is Nothing Then
            If VerifNom(Target.Text) Then
                  ActiveSheet.Name = Target.Text
            End If
      End If
End Sub

Private Function VerifNom(V As String) As Boolean
Dim i As Byte
Dim Feuille As Worksheet
      If Len(Trim(V)) > 0 Then
            VerifNom = True
            '31 caractères maxi
            If Len(V) > 31 Then
                  VerifNom = False
                  MsgBox '''' & V & ''' contient plus de 31 caractères !'
                  Exit Function
            End If
            'Caractères interdits
            For i = 1 To Len(V)
                  Select Case Mid(V, i, 1)
                  Case '/', '\', '?', '*', '[', ']'
                        VerifNom = False
                        MsgBox '''' & V & ''' contient un caractère interdit /\?*[]'
                        Exit For
                  End Select
            Next i
            'Feuille existe déjà ?
            On Error Resume Next
            Set Feuille = Worksheets(V)
            On Error GoTo 0
            If Not Feuille Is Nothing Then
                  MsgBox '''' & V & ''' existe déjà !'
                  VerifNom = False
            End If
            Set Feuille =Nothing
      End If
End Function

Cordialement. [file name=RenommeFeuille.zip size=13142]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/RenommeFeuille.zip[/file]

Message édité par: myDearFriend!, à: 25/03/2005 22:51

 

[Toutchoco]

Hello my Dear Friend et Merci ! Ta macro est all right !!