Transfére - Copier - Renommer

chaelie2015

XLDnaute Accro
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
 

Pièces jointes

  • CHAL CANEVAS1.xlsm
    19.9 KB · Affichages: 34
Dernière édition:

Paf

XLDnaute Barbatruc
Re : Transfére - Copier - Renommer

Bonjour

à tester:
Code:
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

XLDnaute Accro
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:
HTML:
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
 
Dernière édition:

Paf

XLDnaute Barbatruc
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 ....
Code:
    Application.ScreenUpdating = False
    Sheets("Canevas").Visible = True

en fin de macro, juste avant End Sub

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


Bonne suite
 

Discussions similaires

Membres actuellement en ligne

Statistiques des forums

Discussions
311 725
Messages
2 081 941
Membres
101 846
dernier inscrit
Silhabib