XL 2016 créer un onglet automatiquement

bobafric · 6 Avril 2021

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 · 6 Avril 2021

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

bobafric · 6 Avril 2021

Softmama à dit:
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 · 6 Avril 2021

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+

XL 2016 créer un onglet automatiquement

bobafric

XLDnaute Occasionnel

Softmama

XLDnaute Accro

bobafric

XLDnaute Occasionnel

job75

XLDnaute Barbatruc

Pièces jointes

Discussions similaires