Macro Excel semainier
Résolu/Fermé
A voir également:
- Macro Excel semainier
- Liste déroulante excel - Guide
- Telecharger macro convertir chiffre en lettre excel - Télécharger - Tableur
- Formule excel - Guide
- Macro word - Guide
- Si et excel - Guide
3 réponses
gbinforme
Messages postés
14946
Date d'inscription
lundi 18 octobre 2004
Statut
Contributeur
Dernière intervention
24 juin 2020
4 684
9 févr. 2017 à 22:04
9 févr. 2017 à 22:04
Bonjour,
Avec ce code tu devrais le faire : à toi de jouer avec le nom des feuilles.
Avec ce code tu devrais le faire : à toi de jouer avec le nom des feuilles.
Sheets("Feuil1").UsedRange.Copy Destination:=Sheets("Feuil2").Range("A1")
hich24
Messages postés
1619
Date d'inscription
mardi 2 octobre 2007
Statut
Membre
Dernière intervention
11 avril 2023
752
10 févr. 2017 à 17:57
10 févr. 2017 à 17:57
bonsoir ,
essaye cette macro
Sub Macro1()
'
' Macro1 Macro
'
Dim numero As String
Sheets.Add After:=Sheets(Sheets.Count)
numero = ActiveSheet.Index
Sheets(numero - 1).Select
Cells.Select
Selection.Copy
Sheets(Sheets.Count).Select
ActiveSheet.Paste
End Sub
essaye cette macro
Sub Macro1()
'
' Macro1 Macro
'
Dim numero As String
Sheets.Add After:=Sheets(Sheets.Count)
numero = ActiveSheet.Index
Sheets(numero - 1).Select
Cells.Select
Selection.Copy
Sheets(Sheets.Count).Select
ActiveSheet.Paste
End Sub
gbinforme
Messages postés
14946
Date d'inscription
lundi 18 octobre 2004
Statut
Contributeur
Dernière intervention
24 juin 2020
4 684
10 févr. 2017 à 19:07
10 févr. 2017 à 19:07
Bonsoir hich24,
Lorsque tu proposes une macro :
- évites les 'select' qui ne servent qu'à l'enregistreur et alourdissent le traitement.
- utilises les balises qui facilitent la lecture
Ta macro peut se résumer à ceci qui fait exactement le même traitement
Lorsque tu proposes une macro :
- évites les 'select' qui ne servent qu'à l'enregistreur et alourdissent le traitement.
- utilises les balises qui facilitent la lecture
Ta macro peut se résumer à ceci qui fait exactement le même traitement
Sub Macro1() ' ' Macro1 Macro ' Sheets.Add After:=Sheets(Sheets.Count) ActiveSheet.Previous.UsedRange.Cells.Copy Destination:=[A1] End Sub
hich24
Messages postés
1619
Date d'inscription
mardi 2 octobre 2007
Statut
Membre
Dernière intervention
11 avril 2023
752
10 févr. 2017 à 19:49
10 févr. 2017 à 19:49
merci bien gbinforme je suis debutant dans les macro
gbinforme
Messages postés
14946
Date d'inscription
lundi 18 octobre 2004
Statut
Contributeur
Dernière intervention
24 juin 2020
4 684
10 févr. 2017 à 21:11
10 févr. 2017 à 21:11
Mais tu sais l'on a tous commencé un jour sans savoir trop par quel bout attaquer !
Aussi c'est utile d'utiliser l'enregistreur pour avoir la syntaxe mais après tu n'as plus besoin des 'select' qui d'une part alourdissent le code et d'autre part obligent à l'affichage des différents objets que tu manipules.
Bonne continuation car c'est en pratiquant que l'on progresse et à bientôt sur le forum.
Aussi c'est utile d'utiliser l'enregistreur pour avoir la syntaxe mais après tu n'as plus besoin des 'select' qui d'une part alourdissent le code et d'autre part obligent à l'affichage des différents objets que tu manipules.
Bonne continuation car c'est en pratiquant que l'on progresse et à bientôt sur le forum.
10 févr. 2017 à 15:06
J'ai un peu de mal à me faire comprendre :p
Mais je vais chipoter un peut à ton écriture pour voir si je peux trouver un solution.
Un grand merci en tout cas.