XL 2016 créer un onglet automatiquement

bobafric

XLDnaute Occasionnel
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

XLDnaute Accro
Bonjour bobafric,

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

VB:
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
 
Dernière édition:

bobafric

XLDnaute Occasionnel
Bonjour bobafric,

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

VB:
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

XLDnaute Barbatruc
Bonjour bobafric, softmama,

Un code un peu plus complet car on peut avoir des erreurs :
VB:
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+
 

Pièces jointes

  • Créer feuilles(1).xlsm
    16.4 KB · Affichages: 6
Haut Bas