Excel Copie et Ajout feuille
Résolu
Laurence
-
Mike-31 Messages postés 18405 Date d'inscription Statut Contributeur Dernière intervention -
Mike-31 Messages postés 18405 Date d'inscription Statut Contributeur Dernière intervention -
Bonjour,
Je cherche une solution à ce petit problème pour moi à l'aide d'une macro.
Feuil1
- Dans une Colonne A, j' ai beaucoup de lignes mais avant de les modifier.
je voudrai copier cette colonne dans une feuille à côté nommer copie1.
- Si je souhaite après modification de la colonne A de ma feuil1,
faire une copie dans une autre feuille nommer copie2 .....
Merci.
Je cherche une solution à ce petit problème pour moi à l'aide d'une macro.
Feuil1
- Dans une Colonne A, j' ai beaucoup de lignes mais avant de les modifier.
je voudrai copier cette colonne dans une feuille à côté nommer copie1.
- Si je souhaite après modification de la colonne A de ma feuil1,
faire une copie dans une autre feuille nommer copie2 .....
Merci.
Configuration: Windows XP Firefox 3.0.7
4 réponses
-
Salut,
pourquoi un code VBA pour une manip, clic droit sur un onglet de feuille, clic gauche sur Insérer/Une Feuille et Ok
Double clic sur le nouvel onglet ou clic droit et renommer saisis Copie2 et un copier/coller de ta colonne Feuille1 ou copier/collage spécial et coches valeur pour ne pas copier des formules éventuelles contenues en colonne A feuille1.
Maintenant si tu tiens à un code VBA, reviens sur le forum on te fera ça
A+ -
Re,
Après chaque apostrophe le déroulement du code.
A placer dans un module VBA
Sub Macro2()
Dim shtoto As Worksheet
'la ligne ci-dessous crée la feuille
Set shtoto = Sheets.Add(After:=Sheets(Sheets.Count))
'la feuille ci-dessous Renomme la feuille
shtoto.Name = "Copie2"
'selectionne la feuille Copie1, colonne A
Sheets("Copie1").Select
Columns("A:A").Select
Selection.Copy
'revient feuille Copie2 et colle les valeur
Sheets("Copie2").Select
Selection.PasteSpecial Paste:=xlPasteValues
Application.CutCopyMode = False
End Sub
A+-
Bonjour,
Oui! c'est bien la macro que je veux, mais je voudrai si je reviens sur ma feuil1 et que je modifie qu'alors je puisse ré-exécuter ma macro pour qu'elle m'ouvre un nouvel onglet avec copie n°2, avec autant d'onglet que je veux du moment que j'exécute la macro avec la copie de feuil1 modifier et nouvel onglet avec des numéros différents ( copie n°2,copie n°3....)
Merci pour la macro et les explications, j'apprécie.
Sub Macro2()
Dim shtoto As Worksheet
'la ligne ci-dessous crée la feuille
Set shtoto = Sheets.Add(After:=Sheets(Sheets.Count))
'la feuille ci-dessous Renomme la feuille
shtoto.Name = "Copie n°1"
'selectionne la feuille Copie1, colonne A
Sheets("Feuil1").Select
Columns("A:A").Select
Selection.Copy
'revient feuille Copie2 et colle les valeur
Sheets("Copie n°1").Select
Selection.PasteSpecial Paste:=xlPasteValues
Application.CutCopyMode = False
End Sub
-
-
Salut Laurence,
Je ne t'ai pas oublié, voilà un code qui générera une copie chaque fois que tu le souhaiteras
Sub creation_feuille_Copie()
Dim sh As Worksheet
Dim i As Integer
' recherche du numéro
On Error Resume Next
If Err > 0 Then Err.Clear
For i = 1 To 100
Sheets("Copie n°" & i).Activate
' numéro trouvé
If Err.Number > 0 Then Exit For
Next i
With Sheets("Feuil1")
.Copy after:=Sheets(Sheets.Count - 1)
ActiveSheet.Name = "Copie n°" & i ' référence
End With
'efface le bouton exporté
ActiveSheet.Shapes("Button 1").Delete
'revient feuille1
Sheets("Feuil1").Select
End Sub
Un petit exemple à récupérer avec le lien,
https://www.cjoint.com/?dunyaf4yuQ
tiens moi au courant
A+-
Bonjour, Mike-31
Je viens d'essayer ta macro, et ça marche du tonnerre !!
Je me régale à l'appliquer.
Je me demandai si il est possible d'avoir toutes ces macros sous la main "dans un classeur, peut-être"
sans devoir ouvrir un classeur pour lui appliquer la macro.
Car j'ai du mal à me souvenir que tel fichier contient tel macro.
Vraiment, merci pour cette macro.
A+
-
-
Re,
Il te suffit de créer un pense bête dans la macro exemple dans le code visual basic, tes macro commence par
Sub Nom de la macro ()
' Ici tu peux mettre tout le texte que tu souhaites pour te souvenir de l'action de la macro
' la seule chose impérative est de mettre au début de chaque une apostrophe pour que la ligne soit ignorée
la tu as tout le code VBA
Edn Sub
N'oublis pas de mettre ton statut en résolu ou demande à un modérateur de le faire pour toi en cliquant sur le triangle jaune en haut de ton post
Merci A+
