Création feuille pour copies sélectives via checkbox

[aubelix]

Bonjour à tous les amis du Forum. 🙂

Je reviens de nouveau vers vous une aide à adapter une macro
au projet que j'essaie de finaliser grâce à l'aide de vous tous.

Lors de mes discussions précédentes, j'ai réussi à créer une feuille
par référence via un modèle.

Mon problème est le suivant :
Créer une seule feuile renommée de la valeur de la cellule G2.
Et c'est là que ça se gâte, recopier dans la feuille ainsi crée
toutes les références ou références choisies sélectivement par
un chexbox dans la feuille crée dans la cellule D23 en bordure rouge.
Sachant que cette cellule contient déjà des données.
Ecrire les références sous la dernière ligne détectée.

Merci pour votre aide.
Cordialement.

 

[aubelix]

Re 🙂

Ci-joint fichiers exemples pour vous donner un ordre d'idée.
Copier les données au lieu de les afficher pour le premier cas
et les copier dans la feuille crée dans le deuxième cas au lieu
de mettre des X

Par avance Merci.
Cordialement.

 

[aubelix]

Re : Création feuille pour copies sélectives via checkbox

Re 🙂

Pour la première question, j'ai mis ce code :

Private Sub Worksheet_Change(ByVal Target As Range)
Dim Plage As Range
 
Set Plage = Range("G2")
If Application.Intersect(Target, Plage) Is Nothing Then Exit Sub
On Error Resume Next
Sheets("1MODELE").Copy After:=Sheets(Sheets.Count) ActiveSheet.Visible = True 'affiche l'onglet
ActiveSheet.Range("G2") = Target.Value
ActiveSheet.Name = Target.Value
Sheets("BASE").Activate
End Sub

Mais il me reste la copie des Références via un ChktBox comme les exemples
que j'ai joint et que je ne sais pas adapter à mon cas.

Par avance, Merci pour aide.
Cordialement