Excel vba
toto10091
Messages postés
1
Date d'inscription
jeudi 19 mai 2005
Statut
Membre
Dernière intervention
19 mai 2005
-
19 mai 2005 à 20:09
jpleroisse Messages postés 1788 Date d'inscription mardi 7 novembre 2000 Statut Membre Dernière intervention 11 mars 2006 - 19 mai 2005 à 22:06
jpleroisse Messages postés 1788 Date d'inscription mardi 7 novembre 2000 Statut Membre Dernière intervention 11 mars 2006 - 19 mai 2005 à 22:06
A voir également:
- Excel vba
- Excel vba doevents - Conseils pratiques -Visual Basic / VB.NET
- Tous les codes vba excel - Conseils pratiques -Visual Basic / VB.NET
- Byval vba - Conseils pratiques -Visual Basic / VB.NET
- Code vba excel formulaire pdf ✓ - Forum Visual Basic 6
- Excel vba dernière ligne ✓ - Forum Visual Basic 6
2 réponses
zoglub14
Messages postés
62
Date d'inscription
mardi 25 mars 2003
Statut
Membre
Dernière intervention
16 octobre 2007
19 mai 2005 à 21:33
19 mai 2005 à 21:33
Hello,
va donc ici : http://www.excel-downloads.com/forums/2.htm
Les spécialistes du VBA Excel
Par contre conseil si tu veux une reponse soit plu précis et surtout n'oublie pas le BONJOUR et le MERCI
++
Zoglub
va donc ici : http://www.excel-downloads.com/forums/2.htm
Les spécialistes du VBA Excel
Par contre conseil si tu veux une reponse soit plu précis et surtout n'oublie pas le BONJOUR et le MERCI
++
Zoglub
jpleroisse
Messages postés
1788
Date d'inscription
mardi 7 novembre 2000
Statut
Membre
Dernière intervention
11 mars 2006
27
19 mai 2005 à 22:06
19 mai 2005 à 22:06
Bonsoir,
Voici un exemple de code, à toi de l'adapter suivant tes feuilles.
Sub AjoutFeuille()
Sheets("Feuil1").Select
ActiveWorkbook.Sheets.Add
ActiveSheet.Name = "Ajout"
Sheets("Feuil1").Select
Range("A1:B2").Select
Selection.Copy
Sheets("Ajout").Select
Range("A1:B2").Select
ActiveSheet.Paste
Sheets("Feuil2").Select
Range("A1:A3").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Ajout").Select
Range("A4:A6").Select
ActiveSheet.Paste
Application.CutCopyMode = False
End Sub
jpleroisse
Voici un exemple de code, à toi de l'adapter suivant tes feuilles.
Sub AjoutFeuille()
Sheets("Feuil1").Select
ActiveWorkbook.Sheets.Add
ActiveSheet.Name = "Ajout"
Sheets("Feuil1").Select
Range("A1:B2").Select
Selection.Copy
Sheets("Ajout").Select
Range("A1:B2").Select
ActiveSheet.Paste
Sheets("Feuil2").Select
Range("A1:A3").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Ajout").Select
Range("A4:A6").Select
ActiveSheet.Paste
Application.CutCopyMode = False
End Sub
jpleroisse