Création d'une macro
Aimy_67300
Messages postés
2
Statut
Membre
-
michel_m Messages postés 18903 Date d'inscription Statut Contributeur Dernière intervention -
michel_m Messages postés 18903 Date d'inscription Statut Contributeur Dernière intervention -
Bonjour,
J'ai besoin de votre aide car je cherche à créer une macro mais je ne sais pas comment arriver au résultat souhaité.
J'ai une première feuille Excel qui présente l'activité en semaine 44 et je souhaiterai via un bouton de macro créer la semaine suivante S45.
C'est à dire copier la feuille dans un nouvel onglet et modifier le numéro de semaine ainsi que les dates.
Jusqu'à cette étape ma macro fonctionne.
Par contre j'aimerais que quand je clique à nouveau sur le bouton de macro de la semaine 45 la semaine 46 soit créée. Je ne sais pas comment réaliser cette action.
Ci-dessous le code que j'ai :
Sub Semaine_suiv()
'
' Semaine_suiv Macro
'
'
Sheets("Feuil1").Select
Sheets("Feuil1").Copy Before:=Sheets(2)
Range("B2").Select
ActiveCell.FormulaR1C1 = "=Feuil1!RC+1"
Range("C11").Select
ActiveCell.FormulaR1C1 = "=Feuil1!RC+7"
Range("D11").Select
ActiveCell.FormulaR1C1 = "=Feuil1!RC+7"
Range("D11").Select
Selection.AutoFill Destination:=Range("D11:G11"), Type:=xlFillDefault
Range("D11:G11").Select
Range("C12").Select
Selection.End(xlToRight).Select
Range(Selection, Selection.End(xlToLeft)).Select
Range("WZM12").Select
ActiveWindow.ScrollColumn = 16237
ActiveWindow.ScrollColumn = 1
Range("C12").Select
Range(Selection, Selection.End(xlDown)).Select
Range("C12:G18").Select
Selection.ClearContents
Range("H1").Select
End Sub
Merci par avance pour votre aide.
J'ai besoin de votre aide car je cherche à créer une macro mais je ne sais pas comment arriver au résultat souhaité.
J'ai une première feuille Excel qui présente l'activité en semaine 44 et je souhaiterai via un bouton de macro créer la semaine suivante S45.
C'est à dire copier la feuille dans un nouvel onglet et modifier le numéro de semaine ainsi que les dates.
Jusqu'à cette étape ma macro fonctionne.
Par contre j'aimerais que quand je clique à nouveau sur le bouton de macro de la semaine 45 la semaine 46 soit créée. Je ne sais pas comment réaliser cette action.
Ci-dessous le code que j'ai :
Sub Semaine_suiv()
'
' Semaine_suiv Macro
'
'
Sheets("Feuil1").Select
Sheets("Feuil1").Copy Before:=Sheets(2)
Range("B2").Select
ActiveCell.FormulaR1C1 = "=Feuil1!RC+1"
Range("C11").Select
ActiveCell.FormulaR1C1 = "=Feuil1!RC+7"
Range("D11").Select
ActiveCell.FormulaR1C1 = "=Feuil1!RC+7"
Range("D11").Select
Selection.AutoFill Destination:=Range("D11:G11"), Type:=xlFillDefault
Range("D11:G11").Select
Range("C12").Select
Selection.End(xlToRight).Select
Range(Selection, Selection.End(xlToLeft)).Select
Range("WZM12").Select
ActiveWindow.ScrollColumn = 16237
ActiveWindow.ScrollColumn = 1
Range("C12").Select
Range(Selection, Selection.End(xlDown)).Select
Range("C12:G18").Select
Selection.ClearContents
Range("H1").Select
End Sub
Merci par avance pour votre aide.
4 réponses
-
Bonjour,
On va te faire çà!
ta version Excel ?Mettre le classeur sans données confidentielles en pièce jointe sur
https://mon-partage.fr
Dans lien de téléchargement
faire un clic droit- copier l’adresse du lien et le coller dans votre message en cours sur ccm
Dans l'attente
-
Merci beaucoup pour votre réponse et votre aide Michel.
Vous trouverez ci-dessous le lien vers le document :
https://mon-partage.fr/f/HSzXmRdc/ -
Re
et voilà
a la bourre car problèmes externes
création d'une feuille "param" qui crée les nouvelles semaines à partir d'un seul bouton sur la dite feuille
donc, pas de nettoyage de l'ancienne semaine dans la nouvelle
Edit 17:59 h
https://mon-partage.fr/f/LSiCkjVQ/
-
