Nom de l onglet = contenu de cellule

Bonjour.
Tu mets le code suivant dans la feuille 1 :
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address <> Range("B10").Address Then Exit Sub
Sheets(2).Name = Target
End Sub
Cordialement.
Daniel
"LeSurCitaire" <donzel-gargand.jacques@tiscali.fr> a écrit dans le message
de news: 1126952475.104811.222180@f14g2000cwb.googlegroups.com...
Bonjour,

Après plusieurs recherches, je n'ai pas trouvé ce qui me conviendrai

J'aimerai nomme l'onglet de la feuille 2 en fonction du contenu de la
cellule B10 de la feuille 1

J'ai donc cherche sur le forum mais je n'ai trouve que ceci
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
[A1] = Me.Name
End Sub

Mais etant debutant en vba je n'arrive pas a l'adapter

J'aurais encore besoinde vous, j'ai adpaté le code de Daniel comme ci
dessous
Mais ca marche pas et je ne comprend pas pourquoi
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address <> Range("A8").Address Then Exit Sub
Sheets(6).Name = Target
If Target.Address <> Range("A9").Address Then Exit Sub
Sheets(7).Name = Target
If Target.Address <> Range("A10").Address Then Exit Sub
Sheets(8).Name = Target
If Target.Address <> Range("A11").Address Then Exit Sub
Sheets(9).Name = Target
If Target.Address <> Range("A12").Address Then Exit Sub
Sheets(10).Name = Target
If Target.Address <> Range("A13").Address Then Exit Sub
Sheets(11).Name = Target
If Target.Address <> Range("A14").Address Then Exit Sub
Sheets(12).Name = Target
If Target.Address <> Range("A15").Address Then Exit Sub
Sheets(13).Name = Target
If Target.Address <> Range("A16").Address Then Exit Sub
Sheets(14).Name = Target
If Target.Address <> Range("A17").Address Then Exit Sub
Sheets(15).Name = Target
If Target.Address <> Range("A18").Address Then Exit Sub
Sheets(16).Name = Target
End Sub

Bonjour LeSurcitaire,

à copier dans la feuille module où l'action se déroule :

'---------------------
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("A8:A18")) Is Nothing Then
Sheets(Target.Row - 2).Name = Target
End If
End With
'---------------------


Salutations!



"LeSurCitaire" <donzel-gargand.jacques@tiscali.fr> a écrit dans le message de news:
1126976508.472145.248570@g49g2000cwa.googlegroups.com...
J'aurais encore besoinde vous, j'ai adpaté le code de Daniel comme ci
dessous
Mais ca marche pas et je ne comprend pas pourquoi
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address <> Range("A8").Address Then Exit Sub
Sheets(6).Name = Target
If Target.Address <> Range("A9").Address Then Exit Sub
Sheets(7).Name = Target
If Target.Address <> Range("A10").Address Then Exit Sub
Sheets(8).Name = Target
If Target.Address <> Range("A11").Address Then Exit Sub
Sheets(9).Name = Target
If Target.Address <> Range("A12").Address Then Exit Sub
Sheets(10).Name = Target
If Target.Address <> Range("A13").Address Then Exit Sub
Sheets(11).Name = Target
If Target.Address <> Range("A14").Address Then Exit Sub
Sheets(12).Name = Target
If Target.Address <> Range("A15").Address Then Exit Sub
Sheets(13).Name = Target
If Target.Address <> Range("A16").Address Then Exit Sub
Sheets(14).Name = Target
If Target.Address <> Range("A17").Address Then Exit Sub
Sheets(15).Name = Target
If Target.Address <> Range("A18").Address Then Exit Sub
Sheets(16).Name = Target
End Sub

Merci beaucoup