nouvelle feuille

[marc21]

bonjour a vous tous,

avec une macro, comment faire pour inserer une nouvelle feuille qui portera le nom de la valeur de ma cellulle a1, qui est sur ma feuille1 ...

Pouvez-vous m'aider
Merci
Marc21

 

[Michel_M]

Bonsoir Marc

essaies ceci:

Sub nommernouvonglet()
Dim onglet As String
onglet = Sheets(1).Range("A1").Value
If onglet = "" Then
MsgBox "cellule A1 vide"
Exit Sub
End If
Sheets.Add.Move After:=Sheets(Sheets.Count)
Sheets(Sheets.Count).Name = onglet
Sheets(1).Select
End Sub

A+

Michel

 

[marc21]

Merci à toi, j'essaie le code dès demain,

Merci
Marc21