Dupliquer une feuille excel sous VBA
Fermé
nicolas
-
5 juil. 2013 à 12:27
melanie1324 Messages postés 1504 Date d'inscription vendredi 25 mai 2007 Statut Membre Dernière intervention 31 janvier 2018 - 5 juil. 2013 à 14:13
melanie1324 Messages postés 1504 Date d'inscription vendredi 25 mai 2007 Statut Membre Dernière intervention 31 janvier 2018 - 5 juil. 2013 à 14:13
A voir également:
- Dupliquer une feuille excel sous VBA
- Dupliquer ecran - Guide
- Feuille de pointage excel - Télécharger - Tableur
- Liste déroulante excel - Guide
- Déplacer une colonne excel - Guide
- Calculer une moyenne sur excel - Guide
1 réponse
melanie1324
Messages postés
1504
Date d'inscription
vendredi 25 mai 2007
Statut
Membre
Dernière intervention
31 janvier 2018
154
5 juil. 2013 à 14:13
5 juil. 2013 à 14:13
coucou,
dans ta demande tout n'est pas clair mais voici un premier jet, copies colles dans un module et tu auras cette macro. Tout ce qui est en vert sont des commentaires. le reste sont les actions de ta macro.
Sub copiercoller()
Sheets("Feuillegenerale").Select ' permet de sélectionner ta feuille générale, remplaces feuillegenerale par ton nom de feuille
Cells.Copy 'permet de copier toute ta feuille
Sheets("A1").Select ' sélectionnes ta feuille A1, si elle se nomme autrement change le nom
Cells(1, 1).Select 'sélectionne la première cellule
ActiveSheet.Paste 'colle tes cellules de ta feuille générale
ActiveSheet.Name = Sheets("feuillegenerale").Cells(3, 2) ' rédéfinit ton nom à partir de la feuille générale de la cellule située à 3ème ligne et de la 2èmé colonne
End Sub
dans ta demande tout n'est pas clair mais voici un premier jet, copies colles dans un module et tu auras cette macro. Tout ce qui est en vert sont des commentaires. le reste sont les actions de ta macro.
Sub copiercoller()
Sheets("Feuillegenerale").Select ' permet de sélectionner ta feuille générale, remplaces feuillegenerale par ton nom de feuille
Cells.Copy 'permet de copier toute ta feuille
Sheets("A1").Select ' sélectionnes ta feuille A1, si elle se nomme autrement change le nom
Cells(1, 1).Select 'sélectionne la première cellule
ActiveSheet.Paste 'colle tes cellules de ta feuille générale
ActiveSheet.Name = Sheets("feuillegenerale").Cells(3, 2) ' rédéfinit ton nom à partir de la feuille générale de la cellule située à 3ème ligne et de la 2èmé colonne
End Sub