Création feuille pour copies sélectives via checkbox

aubelix

XLDnaute Impliqué
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.
 

Pièces jointes

  • CREATION_FICHE_REPORT_REF_SELECTIONNEES.zip
    36.9 KB · Affichages: 21
Dernière édition:

aubelix

XLDnaute Impliqué
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.
 

Pièces jointes

  • Class_CheckBox.zip
    17.3 KB · Affichages: 27
  • USF_CheckBox.xls
    36 KB · Affichages: 50
  • USF_CheckBox.xls
    36 KB · Affichages: 50
  • USF_CheckBox.xls
    36 KB · Affichages: 49
  • ListBoxMultiselect2(1).xls
    46.5 KB · Affichages: 51
Dernière édition:

aubelix

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

Re :)

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

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
 

Discussions similaires

Réponses
2
Affichages
372

Statistiques des forums

Discussions
312 848
Messages
2 092 788
Membres
105 534
dernier inscrit
EmilieG60