XL 2016 Aide pour modification Vba qui permet de creer des onglets grace à un modele

[Shpountz]

Bonjour à tous
j'ai récupéré sur le forum (mais je ne sais plus de qui...) une Vba qui me permet de creer des onglets par rapport a un modele.

Mes données se trouvent sur une feuille "Reunions"

sur laquelle je selectionne les courses en colonne "D" et qui crée les differents onglets suivant le "Modele"

Les onglets se creent

Néanmoins les cellules E1, E2, E3, L1, L2, L3, L4, R1, R2, R3 ne se modifient pas.

Si vous avez une solution je vous en remercie d'avance
Amicalement
Franois

 

[Jacky67]

Bonjour à tous
j'ai récupéré sur le forum (mais je ne sais plus de qui...) une Vba qui me permet de creer des onglets par rapport a un modele.

Mes données se trouvent sur une feuille "Reunions"
Regarde la pièce jointe 1046729

sur laquelle je selectionne les courses en colonne "D" et qui crée les differents onglets suivant le "Modele"

Les onglets se creent
Regarde la pièce jointe 1046731

Néanmoins les cellules E1, E2, E3, L1, L2, L3, L4, R1, R2, R3 ne se modifient pas.

Si vous avez une solution je vous en remercie d'avance
Amicalement
Franois

Bonjour,
Une proposition en Pj avec
Un nouveau classeur
Modification de la feuille "Modèle"
La feuille est protégée sans mot de passe pour éviter l'effacement des formules
Et ce code pour la création des feuilles
**Les mises en forme conditionnelle sont à revoir

Sub creation()
    Dim C As Range
    Application.ScreenUpdating = False
    For Each C In Sheets("Reunions").Range("d3:d" & Sheets("Reunions").Cells(Rows.Count, "d").End(xlUp).Row)
        If C.Row < 3 Then Exit Sub
        If Not existe(C) Then
            Sheets("Modèle").Copy After:=Sheets(Sheets.Count)
            ActiveSheet.Name = C
            [a1] = C
        Else
            MsgBox C & vbLf & "Cette feuille est déjà exitante", , "Information"
        End If
    Next
   Sheets("Reunions").Activate
End Sub

 

[Shpountz]

Bonjour Jacky67
Un grand merci c'est exactement ce que je recherchais.
Vu l'heure d'envoi j'espère que ce ne sont pas des insomnies !
Encore merci
Amicalement
Francois