Création Auto Feuilles depuis modèle et modif. ultérieure

[Regueiro]

Bonjour à tous.
J'ai un code qui me créer des feuilles automatiquement depuis une feuille Modèle.
Ok pas de problème.
Mais si je veux modifier une donnée ultérieurement quel code dois-je mettre.

Sub Création_Automatique_des_Onglets()
' Adaptée d'une macro de Charlize
' Modifée par BrunoM45
Dim Modele As Worksheet, NewSheet As Worksheet
Dim base_maquette As Worksheet
Dim newSheetName As String
Dim myRng As Range
Dim myCell As Range
Dim iCtr As Long
Dim Ref_CELLULES As Variant
Dim Test As String
' Définir les variables objet
Set Modele = Worksheets("ART.0_BASE")
Set base_maquette = Worksheets("0.Soumission")


Ref_CELLULES = Array("E8", "F8", "G8", "H8")
Application.ScreenUpdating = False
With base_maquette
Set myRng = .Range("E8", .Cells(.Rows.Count, "E").End(xlUp))
End With
For Each myCell In myRng.Cells
'With myCell
'newSheetName = Modele.Range("A1")
' Définir le nom, Copie la valeur texte de la cellule
newSheetName = "ART." & (myCell.Value)
' Tester si le classeur existe en récuperant la valeur d'une cellule
On Error Resume Next
Test = Sheets(newSheetName).Range("E8")
' Si le numéro d'erreur est différend de 0, c'est que la feuille n'existe pas
If Err.Number <> 0 Then
' On fait une copie du modèle
Modele.Copy After:=Worksheets(Worksheets.Count)
' On renomme la copie
ActiveSheet.Name = newSheetName
' On attibue les valeurs dans cette feuille
For iCtr = LBound(Ref_CELLULES) To UBound(Ref_CELLULES)
ActiveSheet.Range(Ref_CELLULES(iCtr)).Value = myCell.Offset(0, iCtr).Value
Next iCtr
End If
Next myCell
Application.ScreenUpdating = True
' Il faut peut-être penser à effacer les variables objet
Set Modele = Nothing
Set base_maquette = Nothing
Set myRng = Nothing
End Sub

Merci de votre Aide
A+

 

[Regueiro]

Re : Création Auto Feuilles depuis modèle et modif. ultérieure

Bonjour à tous.
Je relance ma discussion.
Est-ce que l'énoncé de mon problème est mal rédigé.
Ou auriez-vous besoin d'un bout de fichier.
Vous pouvez regarder dans cette discussion.
Post N° 73

https://www.excel-downloads.com/threads/adox-catalog-lister-noms-feuilles-sans.185275/

Merci.
A+

 

[Regueiro]

Re : Création Auto Feuilles depuis modèle et modif. ultérieure

Bonjour à tous.
Je crois que j'ai trouver mon bonheur avec un exemple de boisgontier. ( Comme par hasard ) 😕
Je vous ljoint e fichier.
Je vais essayer de le déchiffrer et l'appliquer sur mon fichier.
Je reviens dès que possible ??

Par contre sur ce fichier de Boisgontier son code efface les données des onglets existants
et il réécrit.
J'aimerais pour mon code un bouton de commande (Modifications Onglets )
avec un message d'alerte. Par Exemple ( Attention vous allez modifier les données .. )
Mais il ne doit pas effacer l'onglet existant car il aura des données uniques pour cet onglet
que je ne dois pas effacer.
Merci de votre Aide.
A+

 

[Regueiro]

Re : Création Auto Feuilles depuis modèle et modif. ultérieure

Bonsoir à tous.
J'aurais besoin de votre aide ?
Je n'arrive pas m'en sortir avec ce code.
Merci.
A+

 

[Regueiro]

Re : Création Auto Feuilles depuis modèle et modif. ultérieure

Bonjour le Forum
Je cherche toujours une âme charitable pour me donner un coup de main.

Est-ce que avec un code de type
Private Sub Worksheet_Change(ByVal Target As Range)
Si je change les données dans ma base maquette,
les données seront directement modifiées dans l'onglet concerné.
Ou alors avec un bouton de commande " modifier les données "
ou un message box.

Merci de votre Aide
a+