Transfére - Copier - Renommer

[chaelie2015]

BONJOUR @ Tous
Je suis en train de préparer une application (qui est en cours) partie par partie.VOILA...
Dans le fichier joint ,j’ai mets tous les détails de mon souci.
Mon Problème est : je envie de créer une copie de la feuille « A »( transfère des donnée de la feuille A vers canevas) selon le canevas et la renommer selon la DATA6 ,on cliquant sur le bouton « valider »
MERCI

 

[Paf]

Re : Transfére - Copier - Renommer

Bonjour

à tester:

Sub Macro()
Dim DerLig As Integer, NumLig As Integer, WCible As Worksheet, TabTmp, FeuilleExistante

 With Worksheets("A")

 'vérifie que la feuille à créer n'existe pas
    FeuilleExistante = IsError(Evaluate("='" & .Range("T10") & "'!A1"))
    If Not FeuilleExistante Then
        MsgBox " impossible de poursuivre. La feuille " & .Range("T10") & " existe déjà"
        Exit Sub
    End If

 'Création nouvelle feuille
     Worksheets("Canevas").Copy After:=Worksheets(Worksheets.Count)
     ActiveSheet.Name = .Range("T10")
     Set WCible = ActiveSheet
 ' Copie des données
     DerLig = .Range("B" & Rows.Count).End(xlUp).Row
     TabTmp = .Range("B25:B" & DerLig)
     WCible.Range("B14").Resize(UBound(TabTmp)) = TabTmp
     
 'copie des différentes cellules
     WCible.Range("D2") = .Range("E14")
     WCible.Range("E4") = .Range("E15")
     
     '..... à compléter
     
 End With
End Sub

Il suffit de compléter pour les cellules non prises en compte.

A+

 

[chaelie2015]

Re : Transfére - Copier - Renommer

Bonsoir PAF
je suis désolé pour le retard, c'est nickel, merci infiniment
A+
NB: comment faire pour signaler mon souci est résolut ???

 

[Paf]

Re : Transfére - Copier - Renommer

Re,

Pour mettre en résolu: modifier le tout premier message et rajouter RESOLU dans le titre

Bonne suite

 

[chaelie2015]

Re : Transfére - Copier - Renommer(RESOLU)

Re
MERCI PAF pour la solution que tu as proposée;
JE SUIS EN TRAIN DE PREPARER UN CODE POUR QUE LA FEUILLE "CANEVAS" SOIT VeryHidden, bien sure sans bloquer le code
Salutation
Edit:

Private Sub Workbook_SheetDeactivate(ByVal Sh As Object)
 If Sh.Name = "Canevas" Then
 Sheets("Canevas").Visible = False
 End If
 End Sub

ça n'a rien donné
Salutations

 

[Paf]

Re : Transfére - Copier - Renommer(RESOLU)

re,

Sheets("Canevas").Visible = xlVeryHidden

pas testé

Bonne suite

 

[chaelie2015]

Re : Transfére - Copier - Renommer(RESOLU)

Re
Tout d'abord merci de prendre du temps pour vous pencher sur ma question.
j'ai une erreur d'execution 1004

La méthode copy de la classe Workshoot a échoué

a cette ligne

Worksheets("Canevas").Copy After:=Worksheets(Worksheets.Count)

Salutations

 

[Paf]

Re : Transfére - Copier - Renommer(RESOLU)

re

la ligne est située avant ou après Sheets("Canevas").Visible = xlVeryHidden

si situé après, c'est une conséquence du VeryHidden.

à voir demain

A+

 

[chaelie2015]

Re : Transfére - Copier - Renommer

Bonjour PAF
Si tu parles de la ligne

Worksheets("Canevas").Copy After:=Worksheets(Worksheets.Count)

elle est dans la macro que tu as proposée et le code

Sheets("Canevas").Visible = xlVeryHidden

il est dans une autre macro dans Private Sub Workbook_SheetDeactivate(ByVal Sh As Object) (voir Poste #5)
Salutations

 

[Paf]

Re : Transfére - Copier - Renommer

Re

la copie se fait alors que la feuille est VeryHidden,=> plantage.

Une solution (il y en a peut-être d'autres) est de "démasquer" la feuille Canevas avant le traitement, puis de la "remasquer" en fin.

en début de macro, juste après Dim ....

    Application.ScreenUpdating = False
    Sheets("Canevas").Visible = True

en fin de macro, juste avant End Sub

    Sheets("Canevas").Visible = xlVeryHidden
    Application.ScreenUpdating = True

Bonne suite

 

[chaelie2015]

Re : Transfére - Copier - Renommer

Bonjour;
MERCI PAF,ça fonctionné parfaitement.
Salutations