Feuille résumé

Bonjour,

Alors je vous explique le contexte :

J'ai un bouton qui a pour but de créer une copie d'un template qui fonctionne.

Chaque nouvelle feuille enregistre le nom de la feuille dans un feuille nommé admin.

Exemple :

Copie du fichier template ----> test

Dans la feuille Admin en B3 : test

Sur la page accueil j'ai creer un premiere colonne qui affiche les infos de la colonne admin qui est rempli automatiquement.

Avec la formule Colonne B : =SI(ADMIN!B3="";"";ADMIN!B3)

Imaginons maintenant que dans la feuille test en A1, j'ai indiqué par exemple : société_toto

Dans la feuille accueil j'aimerais réaliser la chose suivante quand dans la colonne B j'ai l'information du nom de la page créé j'aimerais affiché dans la colonne C ( la cellule A1 de la feuille test)

Sachant que le nom de la feuille change à chaque création donc récupérer le nom de la feuille affiché dans la colonne B.

Merci

Bonjour zic04,

s.t.p. joint un fichier avec le détail du résultat voulu.

Bonjour,

Alors j'ai creer un fichier de démo pour avancer en pj.

le fichier accueil dans l'idée j'aimerais que toute les infos remonte automatiquement.

Alors je suis ouvert a faire les changement.

La subtilité à prendre en compte ---->

Création de page avec l'onglet Ajouter_Vnet ---> le nom change a chaque fois

Dans les Pages ajouter il y à aussi de l'ajout de tableau avec les numéros ajout adress space 2 3 4 5 6

Et les infos sont a remonté sur la page d'accueil.

je suis ouvert a faire des modifications sur l’ensemble du projet .

Par avance merci si vous avez des idée ou besoin d'information je suis disponible pour en ajouter sans problème.

re,

j'ai modifié la macro sur le UserForm CommandButton1_Click()

et ajouté une macro sur la page ThisWorkbook

Merci,

Peux tu m'expliquer comment fonctionne la macro sur la page ThisWorkbook ?

Car je vois pas de changement sur la page d'accueil il y a surement une subtilité qui m’échappe

zic04 a écrit :

Merci,

Peux tu m'expliquer comment fonctionne la macro sur la page ThisWorkbook ?

Car je vois pas de changement sur la page d'accueil il y a surement une subtilité qui m’échappe

re,

sur la macro CommandButton1_Click() du UserForm

j'ai ajouté le code

    With Sheets("Accueil")
        rw = .Cells(Rows.Count, "E").End(xlUp).Row + 1
        Debug.Print DEST.Value
        .Range("E" & rw) = DEST. Value
    End With

en premier lieu, ce code ajouté est pour inscrive le nom de la nouvelle feuille créée dans la colonne E de la feuille "Accueil"

est ce que ce code s'exécute bien ?

par la suite la macro sur la page ThisWorkbook

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
    rw = Application.Match(Sh.Name, Sheets("Accueil").Range("e:e"), 0)
    Select Case Target.Address(0, 0)
     Case "A1": Sheets("Accueil").Cells(rw, "H") = Target.Value
'     Case " ": autre adresse à transférer
    End Select
End Sub

le nom de l'objet Sh As Object est la feuille ou se produit un changement sur la cellule

A1, ce nom sera trouvé sur l'onglet Sheets("Accueil").Range("E:E")

la macro sur la page ThisWorkbook trouve le nom de la feuille sur Sheets("Accueil").Range("E:E")

par le code

rw = Application.Match(Sh.Name, Sheets("Accueil").Range("E:E"), 0)

l'objet Target As Range est la cellule ou s'est effectué un changenent, dans ce cas, lorsque la cellule A1 de la nouvelle feuille est modifiée.

puis transfert la valeur sur la ligne rw trouvée

Case "A1": Sheets("Accueil").Cells(rw, "H") = Target.Value

Merci,

J'ai bien quelque modification dans les scripts par contre la feuille Accueil ne fonctionne pas.

Il y à toujours la feuille de modèle que j'avais réalisé le nom de la colonne E va etre cherché dans le dossier ADMIN.

Tu as ajouté un bouton sur la page accueil ?

Merci

zic04 a écrit :

Tu as ajouté un bouton sur la page accueil ?

non,

est que tu veux dire que lorsque tu appuies sur le bouton "Ajouter_Vnet"

le nom de la nouvelle feuille créée ne s'inscrit pas dans la colonne E de la feuille "Accueil" ?