Excel Copie et Ajout feuille
Résolu/Fermé
Laurence
-
17 mars 2009 à 09:28
Mike-31 Messages postés 18310 Date d'inscription dimanche 17 février 2008 Statut Contributeur Dernière intervention 29 mars 2024 - 18 mars 2009 à 15:42
Mike-31 Messages postés 18310 Date d'inscription dimanche 17 février 2008 Statut Contributeur Dernière intervention 29 mars 2024 - 18 mars 2009 à 15:42
A voir également:
- Excel Copie et Ajout feuille
- Liste déroulante excel - Guide
- Si et excel - Guide
- Feuille de pointage excel - Télécharger - Tableur
- Copie cachée - Guide
- Word et excel gratuit - Guide
4 réponses
Mike-31
Messages postés
18310
Date d'inscription
dimanche 17 février 2008
Statut
Contributeur
Dernière intervention
29 mars 2024
5 073
17 mars 2009 à 11:14
17 mars 2009 à 11:14
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+
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+
Mike-31
Messages postés
18310
Date d'inscription
dimanche 17 février 2008
Statut
Contributeur
Dernière intervention
29 mars 2024
5 073
17 mars 2009 à 13:27
17 mars 2009 à 13:27
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+
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
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
Mike-31
Messages postés
18310
Date d'inscription
dimanche 17 février 2008
Statut
Contributeur
Dernière intervention
29 mars 2024
5 073
18 mars 2009 à 13:23
18 mars 2009 à 13:23
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+
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+
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+
Mike-31
Messages postés
18310
Date d'inscription
dimanche 17 février 2008
Statut
Contributeur
Dernière intervention
29 mars 2024
5 073
18 mars 2009 à 15:42
18 mars 2009 à 15:42
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+
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+
17 mars 2009 à 13:08
La manip, je sais la faire; mais c'est en vba que je sais pas comment faire.
Merci.