copier, ouvrir nouvel onglet et coller

[pascal21]

bonsoir le forum
J'ai crée un bouton pour recopier le contenu d'une feuille (feuil3) et j'aimerais que ce bouton crée une nouvelle feuille et colle le contenu de la feuille 3 dedans
merci de votre aide

 

[Staple1600]

Re : copier, ouvrir nouvel onglet et coller

Bonsoir


Tu as essayé de faire la manipulation en utilisant l'enregistreur de macros 😕

Ce qui donnerait ceci par exemple

Sub Macro1()
' Macro1 Macro
' Macro enregistrée le 07/03/2010 par  
Sheets("Feuil3").Select
Sheets("Feuil3").Copy After:=Sheets(3)
End Sub

Simplifiable en:

Sub Macro1()
 Sheets("Feuil3").Copy After:=Sheets(3)
End Sub

 

[pascal21]

Re : copier, ouvrir nouvel onglet et coller

bonsoir stapple
oui j'ai utilisé l'enregistreur de macros
mais je n'ai pas réussi à créer ce code

.Copy After:=Sheets(3)

ça devrit fonctionner maintenant
bonne soirée

 

[Staple1600]

Re : copier, ouvrir nouvel onglet et coller

Re

Tu peux aussi faire ainsi

Sheets("Feuil3").Copy After:=Sheets(Sheets.Count)

 

[pascal21]

Re : copier, ouvrir nouvel onglet et coller

merci ça fonctionne très bien
j'aimerais maintenant que ce code

name= range("b2").value

se rajoute dans les nouvelles feuilles
je ne le veux pas dans la feuille 3 mais uniquement dans les nouvelles feuilles
merci

 

[pascal21]

Re : copier, ouvrir nouvel onglet et coller

BONSOIR
Je relance la question sur le code à placer dans les nouvelles feuilles crées
merci

 

[Macpoy]

Re : copier, ouvrir nouvel onglet et coller

bonsoir le forum, pascal21, Staple1600
je crois bien que ce petit bout de code pourrait être une idée pour solutionner votre problème

Sheets.Add.Name = range("B2")
@ plus

 

[pascal21]

Re : copier, ouvrir nouvel onglet et coller

bonjour mac poy
l'idée est bonne mais ne convient pas
en effet celà crée bien une nouvelle feuille renommée mais pas avec le contenu de la feuille à copier
faudra que je fasse d'autres essais
merci quand même

 

[Macpoy]

Re : copier, ouvrir nouvel onglet et coller

bonjour le forum, pascal21, Staple1600
à voir ce bout intégré à votre code pourrait vous aider

Sheets("Feuil3").cells.copy
Sheets.Add.Name = Range("B2")
Range("A1").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("A1").PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
bonne journée.

 

[pascal21]

Re : copier, ouvrir nouvel onglet et coller

bonsoir
non ça ne marche pas non plus