création d'une feuille

ph.vanne

XLDnaute Junior
bonjour ,

j'aimerais pouvoir créer une macro qui crée (insère) une feuil et donne comme nom a cette feuille la valeur d'une cellule situe dans une autre feuil .

par exemple:
en sélectionnant la cellule A1 dans la feuil 1 et ayant pour valeur "1985"
la macro crée la feuil 2 et la nomme "1985"

et si je sélectionne A2, toujours dans la feuil 1 et ayant pour valeur "1986"
alors la macro crée la feuil 3 et la nomme "1986"
et ainsi de suite ...

j'ai essayé avec" enregistrement d'une macro" mais bien évidement ça ne marche pas !!

mais je ne doute pas que quelqu’un(e)parmi vous sache faire ça !

bonne journée!
 

CISCO

XLDnaute Barbatruc
Re : création d'une feuille

Bonjour

Personne pour proposer une petite macro pour aider ph.vanne ?

@ plus
 

JCGL

XLDnaute Barbatruc
Re : création d'une feuille

Bonjour à tous,

Tu aurais plus de chance sur le Forum Excel.

Peux-tu essayer :
VB:
Option Explicit

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Not Application.Intersect(Target, Range("A1:A20")) Is Nothing Then
        If Selection = "" Then Exit Sub
        Dim F As Worksheet
        On Error Resume Next
        For Each F In Worksheets
            If F.Name = Target Then MsgBox "Ce nom de feuille existe déjà !": Exit Sub
        Next F
        Sheets.Add(after:=Worksheets(Worksheets.Count)).Name = Target
    End If
    Feuil1.Activate
End Sub
A+ à tous
 
Dernière édition:

Créez un compte ou connectez vous pour répondre

Vous devez être membre afin de pouvoir répondre ici

Créer un compte

Créez un compte Excel Downloads. C'est simple!

Connexion

Vous avez déjà un compte? Connectez vous ici.

Haut Bas