XL 2010 AIDE EXCEL VBA COPIER COLLER FEUILLE COMPLÈTE AVEC GRAPH

R

richard31

XLDnaute Occasionnel
Bonjour

Je travaille beaucoup avec les formules mais par contre je ne connais pas le VBA . On m'a fait un code que je suis arrivé à adapter sur un autre travail, mais la, je bloque. Le code permet de copier une feuille Excel donc avec les tableaux et les mises en formes , sans les formules (pour qu'ils ne se mettent pas à jour) vers une nouvelle dont on à choisit le nom dans une liste et cela fonctionne avec une fenêtre de choix .. Mais dans cette feuille, j'ai des graphiques présents et j'aimerai qu'ils soient copiées, ce qui n'est pas le cas actuellement.. La feuille source s'appelle "Reporting"

la partie qui permet de copier (si j'ai bien tout saisi) est la suivante :

' Copie de la feuille "Reporting" sans les formules pour éviter que les données se mettent à jours
Application.ScreenUpdating = False
Sheets.Add After:=Sheets(Sheets.Count)
Sheets("Reporting").Cells.Copy
Sheets(Sheets.Count).Select
Sheets(Sheets.Count).Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
Sheets(Sheets.Count).Name = UCase(ComboBox1) & "_" & Format(Now, "yyyy")
[A1].Select

/////////////////////////////////////////////////////////////////////////////////


Le code complet est ci dessous :





Private Sub annuler_Click()
Unload Me
End Sub

Private Sub ComboBox1_Change()

End Sub

Private Sub Label1_Click()

End Sub

Private Sub OK_Click()
If ComboBox1 = "" Then
MsgBox ("VEUILLEZ SELECTIONNER LA SEMAINE A CREER")
Exit Sub
End If
For I = 1 To Sheets.Count
If UCase(Left(Sheets(I).Name, Len(ComboBox1))) = UCase(ComboBox1) Then
MsgBox ("La feuille " & UCase(ComboBox1) & " existe déjà, si vous désirez regénérer une feuille de données veuillez la supprimer avant toute action")
Exit Sub
End If
Next I
' Copie de la feuille "Reporting" sans les formules pour éviter que les données se mettent à jours
Application.ScreenUpdating = False
Sheets.Add After:=Sheets(Sheets.Count)
Sheets("Reporting").Cells.Copy
Sheets(Sheets.Count).Select
Sheets(Sheets.Count).Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
Sheets(Sheets.Count).Name = UCase(ComboBox1) & "_" & Format(Now, "yyyy")
[A1].Select
Application.ScreenUpdating = True
Unload Me
End Sub

Private Sub UserForm_Initialize()
ComboBox1.AddItem "Semaine42"
ComboBox1.AddItem "Semaine43"
ComboBox1.AddItem "Semaine44"
ComboBox1.AddItem "Semaine45"
ComboBox1.AddItem "Semaine46"
ComboBox1.AddItem "Semaine47"
ComboBox1.AddItem "Semaine48"
ComboBox1.AddItem "Semaine49"
ComboBox1.AddItem "Semaine50"
ComboBox1.AddItem "Semaine51"
ComboBox1.AddItem "Semaine52"
End Sub


///////////////////////////////////////////////////////


Merci les gens d'avance !
 
Trier par date Trier par votes
youky(BJ)

youky(BJ)

XLDnaute Barbatruc
Bonjour,
je n'ai pas testé mais essayer comme ceci
Bruno
VB: 
Private Sub OK_Click()
If ComboBox1 = "" Then
MsgBox ("VEUILLEZ SELECTIONNER LA SEMAINE A CREER")
Exit Sub
End If
For I = 1 To Sheets.Count
If UCase(Left(Sheets(I).Name, Len(ComboBox1))) = UCase(ComboBox1) Then
MsgBox ("La feuille " & UCase(ComboBox1) & " existe déjà, si vous désirez regénérer une feuille de données veuillez la supprimer avant toute action")
Exit Sub
End If
Next I
' Copie de la feuille "Reporting" sans les formules pour éviter que les données se mettent à jours
Application.ScreenUpdating = False
Sheets.Add After:=Sheets(Sheets.Count)
Sheets("Reporting").Copy
with Sheets(Sheets.Count)
.Select
.cells.value=.cells.value
.Name = UCase(ComboBox1) & "_" & Format(Now, "yyyy")
.[A1].Select
end with
Application.ScreenUpdating = True
Unload Me
End Sub
 
Vote positif 0 Vote négatif
R

richard31

XLDnaute Occasionnel
youky(BJ) à dit:
Bonjour,
je n'ai pas testé mais essayer comme ceci
Bruno
VB: 
Private Sub OK_Click()
If ComboBox1 = "" Then
MsgBox ("VEUILLEZ SELECTIONNER LA SEMAINE A CREER")
Exit Sub
End If
For I = 1 To Sheets.Count
If UCase(Left(Sheets(I).Name, Len(ComboBox1))) = UCase(ComboBox1) Then
MsgBox ("La feuille " & UCase(ComboBox1) & " existe déjà, si vous désirez regénérer une feuille de données veuillez la supprimer avant toute action")
Exit Sub
End If
Next I
' Copie de la feuille "Reporting" sans les formules pour éviter que les données se mettent à jours
Application.ScreenUpdating = False
Sheets.Add After:=Sheets(Sheets.Count)
Sheets("Reporting").Copy
with Sheets(Sheets.Count)
.Select
.cells.value=.cells.value
.Name = UCase(ComboBox1) & "_" & Format(Now, "yyyy")
.[A1].Select
end with
Application.ScreenUpdating = True
Unload Me
End Sub
Cliquez pour agrandir...

Bonjour

Cela ne fonctionne pas, copie sur une autre feuille, et me copie les formules des tableaux . je vais regarder de plus près mais merci ;)
 
Vote positif 0 Vote négatif
Efgé

Efgé

XLDnaute Barbatruc
Bonjour à tous

Dans le vide puisque sans fichier pour tester:

VB: 
' Copie de la feuille "Reporting" sans les formules pour éviter que les données se mettent à jours
Application.ScreenUpdating = False
Sheets("Reporting").Copy after:=Sheets(Sheets.Count)
With ActiveSheet
    .Name = UCase(ComboBox1) & "_" & Format(Now, "yyyy")
    With .UsedRange
        .Value = .Value
    End With
End With
Application.ScreenUpdating = True

Cordialement
 
Vote positif 0 Vote négatif
R

richard31

XLDnaute Occasionnel
Efgé à dit:
Bonjour à tous

Dans le vide puisque sans fichier pour tester:

VB: 
' Copie de la feuille "Reporting" sans les formules pour éviter que les données se mettent à jours
Application.ScreenUpdating = False
Sheets("Reporting").Copy after:=Sheets(Sheets.Count)
With ActiveSheet
    .Name = UCase(ComboBox1) & "_" & Format(Now, "yyyy")
    With .UsedRange
        .Value = .Value
    End With
End With
Application.ScreenUpdating = True

Cordialement
Cliquez pour agrandir...
je colle le fichier juste avec la feuille qui m intéresse. Donc le code déjà présent fonctionne pour copier et coller les tableaux sans les formules pour ne pas que les valeurs se mettent à jours. Mais je n'arrive donc pa sà rajouter la copie de tous les graphiques présents et les coller en images.. J'ai essayé en enregistrant une macro et rajouter le code ensuite mais vue que je ne maîtrise pas du tout VBA àa merde ..
 

Pièces jointes

  • Copie de Reporting-16-10-.xlsm
    54.2 KB · Affichages: 25
Vote positif 0 Vote négatif
R

richard31

XLDnaute Occasionnel
Efgé à dit:
Re

En remplaçant ta partie de code par la mienne, tu as le résultat demandé (avec de vrais graphiques)

Cordialement
Cliquez pour agrandir...
ça fonctionne mais les tableaux restent liés à des données d'autres feuilles. En fait il faut une copie des graph en images. je ne dois garder aucunes liaisonset aucunes formules dans les tableaux ( ce qui fonctionne avec l ancien code ). J ai trouvé la commande en copie image :
Selection.CopyPicture Appearance:=xlScreen, Format:=xlPicture
eT
ActiveSheet.Pictures.Paste.Select

Mais comment sélectionner tous les graph et surtout donc les coller dans la nouvelle feuille.. pfff
 
Dernière édition:
Vote positif 0 Vote négatif
Efgé

Efgé

XLDnaute Barbatruc
Re

Chez moi, les graphiques sont liés à la source crée et non la feuille d'origine.
upload_2017-10-16_15-36-0.png


Je ne me lance pas dans la création d'images multiples.
D'autres auront certainement des suggestions.

Cordialement
 
Vote positif 0 Vote négatif
R

richard31

XLDnaute Occasionnel
Efgé à dit:
Re

Chez moi, les graphiques sont liés à la source crée et non la feuille d'origine.
Regarde la pièce jointe 998752

Je ne me lance pas dans la création d'images multiples.
D'autres auront certainement des suggestions.

Cordialement
Cliquez pour agrandir...
Oui je parle des graphiques en dessous Effectivement ces deux là fonctionnent ;)
Je vais essayer de trouver comment faire ça ou une commande qui transforme tous les graphiques d'une page en Image .

Merci quand même !
 
Vote positif 0 Vote négatif

Discussions similaires

G
  • Résolu(e)
XL 2013 copier coller valeur d'une colonne dynamique
Réponses
13
Affichages
320
gwenn49
G
R
  • Résolu(e)
XL 2019 creer une macro pour copier des info d un onglet a un autre dans le meme classeur
Réponses
4
Affichages
252
robpellan52
R
F
  • Résolu(e)
Microsoft 365 Message Box oui/non
Réponses
2
Affichages
104
Francky79
F
M
  • Question
XL 2010 Calcul possible dans la zone de liste pour le débit et le crédit lors d'une recherche basée sur la zone de texte
Réponses
0
Affichages
400
Mody200
M
P
  • Question
Microsoft 365 sauvegarder en JPG
Réponses
12
Affichages
320
PISTACHE-007
P
O
  • Question
XL 2010 aide sur code VBA collationnement de données
Réponses
10
Affichages
431
olivier388
O
M
  • Question
Microsoft 365 Erreur de format
Réponses
5
Affichages
95
Marvin57
M
M
  • Résolu(e)
XL 2016 Filtre auto VBA
Réponses
3
Affichages
564
MickaeL_D
M
Usine à gaz
  • Résolu(e)
XL 2021 Ecrire dans une une autre feuille
Réponses
3
Affichages
295
Usine à gaz
Usine à gaz
tactic6
  • Question
XL 2016 Aide pour userform (sujet clos)
Réponses
8
Affichages
156
tactic6
tactic6

Membres actuellement en ligne

22 membres et 451 invités.

Partager cette page

Tutos vidéos

Power Query : Ajouter des requêtes (Excel et Power BI)
Créez votre première fonction LAMBDA dans Excel en 3 étapes!
LAMBDA, l’arme secrète de Microsoft pour Excel !
Office Insider - Découvrez les nouveautés Excel avant tout le monde

Statistiques des forums

Discussions
312 025
Messages
2 084 742
Membres
102 651
dernier inscrit
Poppy-Stef