XL 2016 créer un onglet automatiquement

[bobafric]

Bonjour à tous
sur une feuille Excel je voudrai créer un onglet en tapant le nom sur une cellule de la feuille 1
Exemple feuil1 cellule A1 je tape nom pour créer automatiquement un onglet nom
feuil1 cellule A2 je tape prénom pour onglet prénom
Existe t'il une macro pour ce problème?

merci d'avance pour votre aide

 

[Softmama]

Bonjour bobafric,

Ce code à placer dans le module de la feuille où vous écrivez les noms :

Private Sub Worksheet_Change(ByVal Target As Range)
  If Target.count = 1 Then
    If Target <> "" and Not Intersect(Range("A1:A3"), Target) Is Nothing Then
       ' Remplacer "A1:A3" par la plage souhaitée
      Sheets.Add
      ActiveSheet.Name = Target
    End If
  End If
End Sub

 

[bobafric]

Bonjour bobafric,

Ce code à placer dans le module de la feuille où vous écrivez les noms :

Private Sub Worksheet_Change(ByVal Target As Range)
  If Target.count = 1 Then
    If Target <> "" and Not Intersect(Range("A1:A3"), Target) Is Nothing Then
       ' Remplacer "A1:A3" par la plage souhaitée
      Sheets.Add
      ActiveSheet.Name = Target
    End If
  End If
End Sub

Bravo les gars rapide efficace et très sympa
Merci

 

[job75]

Bonjour bobafric, softmama,

Un code un peu plus complet car on peut avoir des erreurs :

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column > 1 Or Target.Count > 1 Then Exit Sub
Dim nom$
nom = Left(CStr(Target), 31)
If nom = "" Then Exit Sub
On Error Resume Next
Sheets(nom).Activate
If Err = 0 Then Exit Sub
Err = 0
Application.ScreenUpdating = False
Application.DisplayAlerts = False
Sheets.Add After:=Sheets(Sheets.Count)
ActiveSheet.Name = nom
If Err Then
    ActiveSheet.Delete
    Me.Activate
    Target.Select
    Application.ScreenUpdating = False
    MsgBox "Il y a des caractères interdits dans le nom !", 48
End If
End Sub

L'entrée de textes en colonne A crée des feuilles ou les active.

A+